Hvorfor virker denne mailer ikke

Hej jeg er nybegynder i asp.
og jeg har lavet denne mailer, som jeg mener burde virke, med den sender ikke nogen mail.

Jeg ville blive meget glad hvis nogen ville sige mig hvor fejlen ligger.  Her kommer scriptet.
---------------------------------------------
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<%
Dim myMail, strPro, strSpe, strOmf, strUds, strOpl, strFor, strBes, strNav, strVir, strEma, aspInfo
Set myMail = Server.CreateObject(\"CDONTS.NewMail\")
strPro = Trim(Request.Form(\"strpro\"))
strSpe = Trim(Request.Form(\"strspe\"))
strOmf = Trim(Request.Form(\"stromf\"))
strUds = Trim(Request.Form(\"struds\"))
strOpl = Trim(Request.Form(\"stropl\"))
strFor = Trim(Request.Form(\"strfor\"))
strBes = Trim(Request.Form(\"strbes\"))
strNav = Trim(Request.Form(\"strnav\"))
strVir = Trim(Request.Form(\"strvir\"))
strEma = Trim(Request.Form(\"strema\"))
%>
<%
aspInfo = aspInfo & \"Mail til mig.\"
aspInfo = aspInfo & \"<br>\"
aspInfo = aspInfo & now
aspInfo = aspInfo & \"<br>\"
aspInfo = aspInfo & \" 1.: \"
aspInfo = aspInfo & strPro
aspInfo = aspInfo & \" 2.: \"
aspInfo = aspInfo & strSpe
aspInfo = aspInfo & \" 3.: \"
aspInfo = aspInfo & strOmf
aspInfo = aspInfo & \" 4.: \"
aspInfo = aspInfo & strUds
aspInfo = aspInfo & \" 5.: \"
aspInfo = aspInfo & strOpl
aspInfo = aspInfo & \" 6.: \"
aspInfo = aspInfo & strFor
aspInfo = aspInfo & \" 7.: \"
aspInfo = aspInfo & strBes
aspInfo = aspInfo & \" 8.: \"
aspInfo = aspInfo & strNav
aspInfo = aspInfo & \" 9.: \"
aspInfo = aspInfo & strVir
aspInfo = aspInfo & \" 10.: \"
aspInfo = aspInfo & strEma

myMail.From =\"Fra@a.dk\"
myMail.To =\"Til@b.dk\"
myMail.Subject =\"Test\"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = aspInfo
myMail.Send
Set myMail = Nothing
%>
Ok.! <br>
<% = now %>
</Head>
</html>