<% Dim strPath, File, file2, x,liCount, j ,resfile, d, i ,fl strPath = "counter7.txt" strPath = Server.MapPath(strPath) Set File = Server.CreateObject("Scripting.FileSystemObject") set file2=File.OpenTextFile(strPath) x=file2.readline set resfile = File.createTextFile (strPath) resfile.writeline(x+1) liCount=Cstr(x+1) j = Len(liCount) d=7 - j %> <% For i=1 to d step 1 Response.Write ("") Next For i=1 to j step 1 fl="digi" + Mid(liCount, i , 1) + ".gif" Response.Write ("" Next %>

Designed By Art in the Heartland Web Design & Marketing