Kan i se fejlen?

<%

If LCase(Request("action")) = "send" Then
   
    If request.form("hmail") <> "" and request.form("dmail") <> "" Then
       
        strText = ""
        strText = strText & "Kære Ansøgere!" & vbCrLf & vbCrLf
        strText = strText & "Vi har nu modtaget din anmodning om optagelse hos SASF." & vbCrLf & vbCrLf
        strText = strText & "Kontroller venligst at de indtastede data er korrekte." & vbCrLf & vbCrLf   
        strText = strText & "Oplysninger om Herren" & vbCrLf   
        strText = strText & "Navn:  " & Request("hnavn") & vbCrLf   
        strText = strText & "Fødselsdag/år:  " & Request("hfoedt") & vbCrLf
        strText = strText & "Adresse 1:  " & Request("hadr1") & vbCrLf
        strText = strText & "Adresse 2:  " & Request("hadr2") & vbCrLf & vbCrLf
        strText = strText & "Postnr.:  " & Request("hpostnr") & vbCrLf & vbCrLf
        strText = strText & "By:  " & Request("hby") & vbCrLf & vbCrLf
        strText = strText & "Telefon nr.:  " & Request("htelefon") & vbCrLf & vbCrLf
        strText = strText & "Mail:  " & Request("hmail") & vbCrLf & vbCrLf       
        strText = strText & "Oplysninger om Damen" & vbCrLf   
        strText = strText & "Navn:  " & Request("dnavn") & vbCrLf   
        strText = strText & "Fødselsdag/år:  " & Request("dfoedt") & vbCrLf
        strText = strText & "Adresse 1:  " & Request("dadr1") & vbCrLf
        strText = strText & "Adresse 2:  " & Request("dadr2") & vbCrLf & vbCrLf
        strText = strText & "Postnr.:  " & Request("dpostnr") & vbCrLf & vbCrLf
        strText = strText & "By:  " & Request("dby") & vbCrLf & vbCrLf
        strText = strText & "Telefon nr.:  " & Request("dtelefon") & vbCrLf & vbCrLf
        strText = strText & "Mail:  " & Request("dmail") & vbCrLf & vbCrLf
        strText = strText & "Turnerings oplysninger" & vbCrLf   
        strText = strText & "Kategori:  " & Request("kategori") & vbCrLf   
        strText = strText & "Organisation:  " & Request("organisation") & vbCrLf
        strText = strText & "Række:  " & Request("raekke") & vbCrLf & vbCrLf & vbCrLf
        strText = strText & "Med venlig hilsen" & vbCrLf & vbCrLf
        strText = strText & "blabla" & vbCrLf & vbCrLf

        Set JMail = Server.CreateObject("SMTP server")
        JMail.ServerAddress = "SMTP"
        JMail.Sender = "Afsender-mail"
        JMail.SenderName = "Subj."
        JMail.AddRecipient Request("hemail")
        JMail.AddRecipientBCC "modtager-mail"
        Jmail.Subject = "Anmodning om tilmelding"
        JMail.Body = strText

JMail.Execute
Set JMail = Nothing
       
    else
   
        error = "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='red'> Du skal udfylde felterne E-mail før du kan afsende!</font></color>"
       
    end if

end if
   
%>