<%
fp = Server.MapPath("visitors.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
ct = Clng(a.ReadLine)
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
a.close
Set a = fs.CreateTextFile(fp, True)
a.WriteLine(ct)
end if 
a.Close
Remote = Request.ServerVariables ("REMOTE_ADDR")
'Response.Write ct 
'Response.Write Remote
   sFilname = Server.MapPath(".") & "\sitelog.txt"
   sFileLine = Now
   sFileLine = sFileLine & " | " & Request.ServerVariables("SCRIPT_NAME")
   sFileLine = sFileLine & " | " & Request.ServerVariables("HTTP_REFERER")
   sFileLine = sFileLine & " | " & Request.ServerVariables("REMOTE_HOST")
   sFileLine = sFileLine & " | " & Request.ServerVariables("HTTP_USER_AGENT")
   Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
   Set objFile = objFileSys.OpenTextFile(sFilname, 8, True)
   objFile.WriteLine(sFileLine)
   objFile.Close 


%>