<% pgeNmeG = Request.ServerVariables("PATH_INFO") pgeNmeG = Replace(pgeNmeG,"/","_") pgeNmeG = Replace(pgeNmeG,"\","_") LogToG = (pgeNmeG) CounterFileG = Server.MapPath(LogToG + ".txt") Set xFSG = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set xMCG = xFSG.OpenTextFile(CounterFileG, 1, 0, 0) usercntG = xMCG.Readline set xFSG = Nothing usercntG = FormatNumber(usercntG + 1,0) Set xFSG = CreateObject("Scripting.FileSystemObject") set xRCG = xFSG.CreateTextFile (CounterFileG, 1, 0) xRCG.WriteLine usercntG Set xRCG = Nothing %>