500 internal error

Det her giver 500 Intern server fejl
Nogen der kan se fejlen ?

<%
if Request.Querystring(\"action\")=\"skriv\" then
    \'Skriv brev
    \'brev: Svar på et brev
    \'Til: modtager hvis valgt
%>
    <form action=\"post.asp\" method=\"post\">
    <table border=0>
    <tr><td>Til</td><td>
    <%
    if not Request.Querystring(\"til\")=\"\" then
        til=Request.Querystring(\"til\")
        Response.Write(\"<input type=\'hidden\' name=\'til\' value=\'\"&til&\"\'>\")
        Response.Write(til)
    else
        Response.Write(\"<select name=\'til\'><option value=\'\'>Vælg modtager</option>\")
       
        Set rs = Server.CreateObject(\"ADODB.RecordSet\")
        strSQL = \"SELECT user FROM users ORDER BY user asc\"
        strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"usersys.mdb\")
        rs.Open strSQL, strDSN, 1
        If Not (rs.BOF Or rs.EOF) Then
           
              Do While Not rs.EOF
                  \'For hver entry
   
            userr=rs(\"user\")
            Rsponse.Write(\"<option value=\'\"&userr&\"\'>\"&userr&\"</option>\")

            rs.MoveNext
            Loop
        End If
        \'Efter while
        rs.Close
        Response.Write(\"</select>\")
        Set rs = Nothing
       
    end if
    %>
    </td></tr>
    <tr><td>Emne</td><td><input type=\"text\" name=\"emne\"></td></tr>
    <tr><td>Besked</td><td><textarea rows=10 cols=60 name=\"besked\"></textarea></td></tr></table>
    <input type=\"submit\" value=\"Send\">
    </form>
    <%
end if
%>