On Behalf of Mertensia Springs Trout & Wilderness Conservation Club.... Welcome !
Visit the Photo Gallery for more
<%
Dim fs
Dim Path
Dim LogPath
Dim fCounter
Dim fLog
Dim Counter
Set fs = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("./counter.txt")
Set fCounter = fs.OpenTextFile(path)
LogPath = server.mappath("./log.txt")
Set fLog = fs.OpenTextFile(LogPath,8)
counter = fCounter.ReadLine
If Session("counter") = "" then
Session("counter") = counter
counter = counter + 1
fCounter.close
Set fCounter = fs.CreateTextFile(path, True)
fCounter.WriteLine(counter)
fLog.Write(Date() & ";" & Time() & ";" & Request.ServerVariables("REMOTE_ADDR") & vbcrlf)
End If
fCounter.Close
fLog.Close
set fCounter = Nothing
set fLog = Nothing
%>
