hvorfor virker dette ikke?

<!-- METADATA TYPE=\"typelib\" FILE=\"C:\\Program files\\Common Files\\System\\ado\\msado15.dll\" -->
<%
Dim objConn
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;\" & _
          \"Data Source=C:\\inetpub\\wwwroot\\owd\\loginsystem\\new\\protect.mdb;\" & _
          \"Persist Security Info=False\"

Const ForAppending = 8

Dim strLogFileName
strLogFileName = \"C:\\RobertLogFile.log\"

Dim objLogFileFSO
Set objLogFileFSO = Server.CreateObject(\"Scripting.FileSystemObject\")

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

Sub WriteToLog (strNewEntry)
  Dim strLogEntry

  strLogEntry = FormatDateTime(now) & \" - \"
  strLogEntry = strLogEntry & strNewEntry
  objLogFileTS.WriteLine strLogEntry
End Sub

Sub CloseLog()
  objLogFileTS.Close
End Sub



Dim objRS
Dim strSQL

Set objRS = Server.CreateObject(\"ADODB.Recordset\")
objRS.Open \"robert\", objconn, adOpenStatic, adLockReadOnly, adCmdTable 

objRS.MoveLast
Response.Write \"Robet kan i øjeblikket svare på \" & objRS(\"id\") & \" Spørgsmål.<BR><BR>\"
objRS.MoveFirst

Response.Write \"<FORM ACTION=spm.asp METHOD=post>\" & _
                \"<INPUT TYPE=TEXT NAME=spm SIZE=45><BR><BR>\" & _
                \"<INPUT TYPE=submit VALUE=\"\"Find Dit Svar\"\" Name=Action>\" & _
                \"</FORM>\"

If Request.form(\"ACTION\") = \"Find Dit Svar\" then
  strSQL = \"SELECT * FROM robert\" & _
          \"WHERE spm LIKE \'\" & Request.Form(\"spm\") & \"\'\"

If Request.Form(\"spm\") = \"\" Then
  Response.Write \"<FONT COLOR=#ff0000>du skal skrive noget i feltet for at Robert kan svare på det.</FONT>\"
Else
  objRS.Filter = \"spm = \'\" & Request.Form(\"spm\") & \"\'\"
  If objRS.EOF Then
  Dim strSpm
  strSpm = Request.Form(\"spm\")
  Response.Write \"Spørgsmålet:<B> \" & strSpm & \"</B> findes ikke i databasen. Prøv at \" & _
                  \"formulere det anderledes \" & _
                  \"ellers kan du kontakte os på anden vis for at få svar på dit spørgsmål.\"
  WriteToLog \"spm ikke kendt af databasen: \" & strSpm
  CloseLog

  Else
  Response.Write \"<B>Dit Spørgsmål</B>: \" & Request.Form(\"spm\") & \"<BR><BR>\" & _
                \"<B>Roberts Svar</B>: \" & objRS(\"svar\")
  End If
End If
End If


%>

Databasen ligger som den skal men af en eller anden årsag virker dette ikke. det fungede fint på mit eget intranet men ligeså snart det kom ud på en webserver gik der ged i det!
hvad er der galt? har det noget med virtual directories at gøre?
please help!