drythirst
09-30-2004, 06:13 PM
I got a parse error on line two. I don't know what is wrong with the code. Maybe some of you ASPhreaks (lol no, jk ASP scripters) could help me. I will comment out a part with the line showing the prob.
<%
dim filesys, filetxt
# THIS LINE^^^
Const ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile(Server.MapPath("/ip_log.txt"), ForAppending, True)
filetxt.WriteLine("<p>")
filetxt.WriteLine("IP=" & Request.ServerVariables("REMOTE_ADDR"))
filetxt.WriteLine("<br>")
filetxt.WriteLine("Date: " & Date() & " at " & Time() &".")
filetxt.WriteLine("<br>")
filetxt.WriteLine("HTTP_USER_AGENT=" & Request.ServerVariables("HTTP_USER_AGENT"))
filetxt.WriteLine("<br>")
filetxt.WriteLine("HTTP_REFERER=" & Request.ServerVariables("HTTP_REFERER"))
filetxt.WriteLine("</p>")
filetxt.Close
Set filetxt = Nothing
Set filesys = Nothing
%>
<%
dim filesys, filetxt
# THIS LINE^^^
Const ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile(Server.MapPath("/ip_log.txt"), ForAppending, True)
filetxt.WriteLine("<p>")
filetxt.WriteLine("IP=" & Request.ServerVariables("REMOTE_ADDR"))
filetxt.WriteLine("<br>")
filetxt.WriteLine("Date: " & Date() & " at " & Time() &".")
filetxt.WriteLine("<br>")
filetxt.WriteLine("HTTP_USER_AGENT=" & Request.ServerVariables("HTTP_USER_AGENT"))
filetxt.WriteLine("<br>")
filetxt.WriteLine("HTTP_REFERER=" & Request.ServerVariables("HTTP_REFERER"))
filetxt.WriteLine("</p>")
filetxt.Close
Set filetxt = Nothing
Set filesys = Nothing
%>