Parse Error: Line 2

OK, i got a parse error on line 2 of this code:
I was wondering if any of you could see what might be wrong.

[code=php]
<?php
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

?>
[/code]

Thanks in advance!!

Also in #PHP _↴