Hvad er der galt her?

<%
Const ForAppending = 8

Dim strLogFileName
strLogFileName= \"C:\\home\\test\\www\\LogFile.txt\"
Dim objLogFileFSO
set objLogFileFSO = CreateObject(\"Scripting.FileSystemObject\")
Dim objFile
set objFile = ObjLogFileFSO.GetFile(Server.MapPath(Request.ServerVariables(\"PATH_INFO\")))

Dim objLogFileTS
If objLogFileFSO.FileExists (strLogFileName) Then
set objLogFileTS = objLogFileFSO.OpenTextFile(strLogFileName, ForAppending)
Else
set objLogFileTS = objLogFileFSO.CreateTextFile(strLogFileName)
End if

Sub WriteToLog ()
Dim strLogEntry
strLogEntry = FormatDateTime (Now) & \" ¤ \"
strLogEntry = strLogEntry & objFile.Name & \" ¤ \"
strLogEntry = strLogEntry & Request.ServerVariables(\"REMOTE_HOST\") & \" ¤ \"
strLogEntry = strLogEntry & Request.ServerVariables(\"HTTP_USER_AGENT\") & \" ¤ \"
strLogEntry = strLogEntry & Request.ServerVariables(\"HTTP_REFERER\")
objLogFileTS.WriteLine strLogEntry
objLogFileTS.Close
End Sub
%>