<% 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 "Thanatos" Brunover's Eeyores Page </body></html>