JMail problem

Når jeg sender denne formular med jmail, modtager jeg ikke en email ??



<%
Dim fornavn, efternavn, klasse, email, besked, startpos, snabela
       
    fornavn= Trim(Lcase(Request.Form("fornavn")))
    efternavn= Trim(Lcase(Request.Form("efternavn")))
    klasse= Trim(Request.Form("klasse"))
    email= Trim(Request.Form("email"))
    besked= Trim(Request.Form("besked"))
    startpos=1
    snabela="@"
       
    If Len(fornavn)<2 Then
        Response.Redirect("send_formular_form.asp?fejlmeddelelse=1")
       
    ElseIf Len(efternavn)<2 Then
        Response.Redirect("send_formular_form.asp?fejlmeddelelse=2")

    ElseIf Len(klasse)<2 Then
        Response.Redirect("send_formular_form.asp?fejlmeddelelse=3")

    Elseif instr(startpos, email, snabela) < 3 or instr(startpos, email, ".") < 3  Then
    Response.Redirect("send_formular_form.asp?fejlmeddelelse=4")

    Elseif instr(startpos, email, " ") > 0 Then
    Response.Redirect("send_formular_form.asp?fejlmeddelelse=4")

    Elseif instr(startpos, email, "@") < instrrev(email, "@") Then
    Response.Redirect("send_formular_form.asp?fejlmeddelelse=4")

    Elseif instr(startpos, email, " ") > 0 Then
    Response.Redirect("send_formular_form.asp?fejlmeddelelse=4")

    Elseif instr(startpos, email, "@") < instrrev(email, "@") Then
    Response.Redirect("send_formular_form.asp?fejlmeddelelse=4")

    ElseIf Len(besked)<2 Then
        Response.Redirect("send_formular_form.asp?fejlmeddelelse=5")
           
    Else

        Dim JMail
        Set JMail = Server.CreateObject("JMail.Message")
            JMail.ContentType = "text/html"
            JMail.Logging = true
            JMail.silent = true
            JMail.From = "email"
            JMail.FromName = " " & fornavn & " " & efternavn & " "
            JMail.AddRecipient "modtagernavn@navn.dk"
            JMail.Priority = 3
            JMail.Subject = "Besked fra " & fornavn & " " & efternavn & "  "
            JMail.Body = "Besked fra:"  & fornavn & " " & efternavn & " " & vbCRLf & "klasse:" & klasse & " " & vbCRLf & "Email:" & email & " " & vbCRLf & "besked:" & besked & " " & vbCRLf & " "
       
    if not JMail.Send("mail.navn.dk") then
    Response.Write "Mailen kunne ikke afsendes grundet:<br>"
    Response.Write JMail.log
    else
        Set JMail = Nothing

        With Response
                .Write"<HTML>"
                .Write"<head><title>Tak for din besked</title>"
                .Write"</head>"
                .Write"<body bgcolor=#ffffff>"
                .Write"[<a href='send_formular_form.asp'><b>Tilbage</b></a>]"
                .Write"<center>"
                .Write "<br><br><p>Kære<b><font color='#000000'> " & fornavn & " " & efternavn & "<font></b><br><br>"
                .Write "Tak for din besked<br>"
                .Write"</center>"
                .Write"</body>"
                .Write"</html>"
        End With
    End If
    End If
%>