Konkurrence

Er der en der kan sige mig hvorfor jeg ikke kan få denne kode til at virke. Jeg har sat min email ind de steder hvor der står det og jeg har også asp-adgang...
<%@ Language=VBScript %>
<%Option Explicit%>

<%
dim strSvar, strEmail
dim strSubject, strBody, objMail

strSvar = \"\"
%>

<%
Select Case Request(\"SubmitForm\")
    Case \"Submit\"

    strSvar = Request.Form(\"chkSvar\")
    strEmail = Request.Form(\"txtEmail\")
   
    strSubject =    \"Konkurrence\"
    strBody =        \"Svar: \" & strSvar & chr(10) & chr(13)
    strBody =        strBody & \"E-mail: \" & strEmail & chr(10) & chr(13)

    SET objMail =    Server.CreateObject(\"CDONTS.Newmail\")
    objMail.Send    \"DIN E-MAIL ADRESSE\", \"DIN E-MAIL ADRESSE\", strSubject, strBody
    SET objMail =    nothing

End Select
%>

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>Konkurrence</title>
</head>

<body>

<form method=\"POST\">
  <p><input type=\"radio\" name=\"chkSvar\" value=\"Svar1\"
  <%if strSvar = \"Svar1\" then Response.Write(\"CHECKED\") end if%>>Svar 1</p>
  <p><input type=\"radio\" name=\"chkSvar\" value=\"Svar2\"
  <%if strSvar = \"Svar2\" then Response.Write(\"CHECKED\") end if%>>Svar 2</p>
  <p><input type=\"radio\" name=\"chkSvar\" value=\"Svar3\"
  <%if strSvar = \"Svar3\" then Response.Write(\"CHECKED\") end if%>>Svar 3</p>
  <p><input type=\"text\" name=\"txtEmail\" value=\"E-mail\" size=\"20\"></p>
  <p><input type=\"submit\" value=\"Submit\" name=\"SubmitForm\"><input type=\"reset\" value=\"Reset\" name=\"B2\"></p>
</form>

</body>

</html>