500 internal server error (;

Kan ikke selv finde fejlen, kan nogen af jer fortælle
mig hvorfor jeg får en 500 server error på abusiness serveren?

<%
If Request.Form(\"Action\") = \"Login\" Then
   
    strUS = Trim(Replace(Request.Form(\"Brugernavn\"),\"\'\",\"\"))
    strPS = Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\"))

    If Len(strUS) > 0 And Len(strPS) > 0 Then

        Set myConn = Server.CreateObject(\"ADODB.Connection\")
        myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")

        strSQL = \"SELECT UserID FROM Users\"&_
            \" WHERE (Username = \'\" & strUS & \"\')\"&_
            \" AND (Password = \'\" & strPS & \"\')\"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
            intUS = rs(\"UserID\")
        Else
           
                logme = true

                log = right(\"0\" & year(now), 2) & right(\"0\" & month(now), 2) & right(\"0\" & day(now), 2) & \"db.txt\"

                Set fs = CreateObject(\"Scripting.FileSystemObject\")

                Set a = fs.OpenTextFile(server.mappath(log), 8, True, False)

                if request.servervariables(\"HTTP_REFERER\") <> \"\" then
                    a.skriv(time & \" : [\" & request.servervariables(\"REMOTE_ADDR\") & \"] - \" & request.servervariables(\"HTTP_REFERER\"))
                else
                    if logme then
                        a.skriv(time & \" : [\" & request.servervariables(\"REMOTE_ADDR\") & \"]\")
                    end if
                end if

            a.close

            strERR = \"Du blev ikke godkendt af systemet <br> Og vi har nu logget dit IP samt dato\"
        End If

        myConn.Close
        Set myConn = Nothing

        If Len(intUS) Then
            Session(\"UserID\") = intUS
            Response.Redirect(\"beskyttet.asp\")
        End If
    End If

End If

BR = Brugernavn
AD = Adgangskode

If Request(\"tjekfelt\") Then
    varFejl = false
End If

%>

<html><head>
<title>Login script</title>
</head><body>
<form method=\"POST\" action=\"login.asp\">
  <p><font size=\"4\">Angiv brugernavn og adgangskode</font></p><%=strErr%>
  <table border=\"0\">
    <tr>
      <td width=\"50%\"><%=BR%>:</td>
      <td width=\"50%\"><input type=\"text\" name=\"Brugernavn\" value=\"<%=Request BR%>\" size=\"20\"><br>
        <% If Request BR = \"\" Then
            Response.Write \"Feltet <%=BR%> skal udfyldes<br>\"
            varFejl = true
        End if
        %>
      </td>
    </tr>
    <tr>
      <td width=\"50%\"><%=AD%>:</td>
      <td width=\"50%\"><input type=\"password\" name=\"Adgangskode\" value=\"<%Request AD%>\" size=\"20\"><br>
          <% If Request AD = \"\" Then
            Response.Write \"Feltet <%=AD%> skal udfyldes<br>\"
            varFejl = true
        End if
        %>
      </td>
    </tr>
  </table>
  <p><input type=\"submit\" value=\"Login\" name=\"Action\"></p>
</form>
</body></html>


I er sku flinke (;

JaguarPof