Hvor er fejlen

Får en 500 Internal server error, men kan ikke selv se nogen fejl??

<%

With Response

    .Write    \"<html>\"
    .Write    \"<head>\"
    .Write  \"<title>\"
    .Write    \"Maillist Administrations \" & Request.QueryString(\"catagory\")
    .Write    \"</title>\"
    .Write    \"</head>\"
    .Write    \"<body>\"
    .Write    \"<a href=\"\"admin.asp?catagory=mail\"\">Send mail</a>&nbsp;&nbsp;&nbsp;|\"
    .Write    \"&nbsp;&nbsp;&nbsp;<a href=\"\"admin.asp?catagory=remove\"\">Frameld email adresse</a>&nbsp;&nbsp;&nbsp;|\"
    .Write    \"&nbsp;&nbsp;&nbsp;<a href=\"\"admin.asp?catagory=add\"\">Tilmeld email adresse</a>&nbsp;&nbsp;&nbsp;|\"
    .Write    \"&nbsp;&nbsp;&nbsp;<a href=\"\"admin.asp?catagory=edit\"\">Rediger email adresse</a>&nbsp;&nbsp;&nbsp;|\"
    .Write    \"&nbsp;&nbsp;&nbsp;<a href=\"\"admin.asp?catagory=history\"\">Tidligere sendte emails&nbsp;&nbsp;&nbsp;|</a>\"
    .Write    \"&nbsp;&nbsp;&nbsp;<a href=\"\"admin.asp?catagory=options\"\">Opsætning</a>\"
   
cat = Request.QueryString(\"catagory\")
    Select Case cat
    Case \"mail\"
   
If Request.Form(\"send\") = \"send\" Then
   
    from = Request.Form(\"from\")
    about = Request.Form(\"about\")
    text = Request.Form(\"text\")

    Set besked = Server.CreateObject(\"Persits.MailSender\")
        besked.Host = \"mail.cliche.dk\"
        besked.From = from
       
        besked.AddAddress \"andreas@cliche.dk\"

        besked.Subject = about
        besked.Body = text

    On Error Resume Next
        besked.Send
    If Err <> 0 Then
        Response.Write \"Følgende fejl opstod: \" & Err.Description
    End If

Else
   
    .Write    \"&nbsp;&nbsp;&nbsp;<b>Emne</b><br>\"
    .Write    \"&nbsp;&nbsp;&nbsp;<input type=\"\"text\"\" name=\"\"about\"\"><br>\"
    .Write    \"&nbsp;&nbsp;&nbsp;<b>Fra email</b><br>\"
    .Write    \"&nbsp;&nbsp;&nbsp;<select name=\"\"from\"\">\"
    .Write    \"<option value=\"\"support@cliche.dk\"\">Support</option>\"
    .Write    \"<option value=\"\"info@cliche.dk\"\">Info</option>\"
    .Write    \"<option value=\"\"nyheder@cliche.dk\"\">Nyheder</option>\"
    .Write    \"</select><br>
    .Write    \"&nbsp;&nbsp;&nbsp;<b>Besked</b><br>\"\"
    .Write    \"&nbsp;&nbsp;&nbsp;<textarea name=\"\"text\"\"></textarea><br><br>\"
    .Write  \"<input type=\"\"hidden\"\" name=\"\"send\"\" value=\"\"send\"\">\"
    .Write    \"&nbsp;&nbsp;&nbsp;<input type=\"\"submit\"\" value=\"\"send\"\">\"

End If
   
    Case Else
    .Write  \"jieajhfeq\"
    End Select
    .Write    \"</body>\"
    .Write    \"</html>\"

End With

%>