<%
pgeNme = Request.ServerVariables("PATH_INFO")
pgeNme = Replace(pgeNme,"/","_")
pgeNme = Replace(pgeNme,"\","_")
' Counts are logged to the cgi-bin, change path below if desired
LogTo = ("/cgi-bin/" + pgeNme)
CounterFile = Server.MapPath(LogTo + ".txt")
Set xFS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set xMC = xFS.OpenTextFile(CounterFile, 1, 0, 0)
usercnt = xMC.Readline
set xFS = Nothing
usercnt = FormatNumber(usercnt + 1,0)
Set xFS = CreateObject("Scripting.FileSystemObject")
set xRC = xFS.CreateTextFile (CounterFile, 1, 0)
xRC.WriteLine usercnt
Set xRC = Nothing
showHitCnt = usercnt
Response.Write "Visits to this page " & usercnt & " since October 2, 2007"
%> |
