<% dim base_url dim default_style dim default_ext dim page dim logfile dim fsoObject dim fsoFile dim fsoTS dim cnt base_url = "http://www.punchinpat.com/graphcount/" default_style = "web1" default_ext = "gif" page = request.querystring("page") logfile = server.mappath("logs\" & page & ".log") Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") if fsoObject.FileExists(logfile) then set fsoFile = fsoObject.GetFile(logfile) set fsoTS = fsoFile.OpenAsTextStream cnt = clng(fsoTS.ReadAll) else cnt = 0 end if cnt = cnt + 1 set fsoFile = fsoObject.CreateTextFile(logfile, true) fsoFile.writeline(cstr(cnt)) fsoFile.Close for x = 1 to len(cstr(cnt)) digit = mid(cstr(cnt),x,1) src=base_url & "styles/" & default_style & "/" & digit & "." & default_ext Response.write "document.write('');" & vbcrlf next %>