<%
dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile(Server.MapPath("/database/log.htm"), 8,True)
' Write a line with a newline character.
' tf.WriteLine("Page: " & myLoc & "
")
if Request.ServerVariables("PATH_INFO") = "/welcome.asp" then
tf.WriteLine("Page: " & Request.ServerVariables("PATH_INFO") & "
")
tf.WriteLine("Date: " & Now() & "
")
tf.WriteLine("IP: " & Request.ServerVariables("REMOTE_HOST") & "
")
tf.WriteLine("Data : " & Request.ServerVariables("ALL_RAW") & "
")
' tf.WriteLine("Cookie : " & Request.ServerVariables("HTTP_COOKIE") & "
")
' Write three newline characters to the file.
else
tf.WriteLine( Request.ServerVariables("PATH_INFO") & "_________" & Now() & "
")
end if
tf.WriteBlankLines(1)
tf.Close
%>
David Brunover's Home Page