hvorfor får jeg ingen mail?

<%if Request.QueryString("level") = "kontakt" then%>
</font>
<table width="550" border="0" cellspacing="2" cellpadding="2" id="table1">
<tr><td valign="top" height="100">
    <div align="center">
        <table border="0" width="500" id="table17" cellspacing="0" cellpadding="0">
            <tr>
                <td>
                <font>
                <img border="0" src="images/bg-listtop.jpg" width="500" height="3"></font></td>
            </tr>
            <tr>
                <td background="images/bg-listmidt.jpg" height="20">
                <div align="center">
                    <table border="0" width="490" cellspacing="0" cellpadding="0" id="table18">
                        <tr>
                            <td height="200" valign="top">
                            <table width="100%" id="table27"><tr><td>
                                <b>
                                <img border="0" src="images/pilhojre.gif" width="18" height="9" vspace="1">
                                Kontakt</b></td><td>
                                &nbsp;</td></tr><tr><td colspan="2">

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0

'Her bliver variabler til inputene fra formen defineret
Dim strpNavn, strpEmail, strpEmne, strpBesked


'Resten af dokumentet består én stor IF-ELSE sætning som tjekker om formularen allerede
'er blevet udfyldt, hvis den ikke er viser den formularen, ellers sender scriptet form-mailen
'og skriver en lille response på skærmen til brugeren.

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
' Følgende linier henter dataen fra form-mailen.
strpNavn         = Trim(Request.Form("navn"))
strpEmail         = Trim(Request.Form("email"))
strpEmne        = Trim(Request.Form("emne"))
strpBesked        = Trim(Request.Form("besked"))

'Konfiguration: Her skal du angive din JMAIL server, afsenderen (Her skal normalt stå din e-mail),
'Titlen på e-mailen samt modtagerne (Hvis du vil have flere modtagere adskiller du blot modtagernes e-mail addresser med et komma.)


JMail.ServerAddress = "mail.markmadsen.dk"
JMail.Sender = "" & StrpEmail & ""
JMail.ReplyTo = "" & StrpEmail & ""
JMail.subject = "bestilling fra " & StrpNavn & ""
JMail.AddRecipient "admin@markmadsen.dk"
JMail.AddRecipientCC ""
JMail.AddRecipientBCC ""

'Her bliver e-mailen til og et "ENTER" bliver angivet med: "& VbCrLF"

JMail.Body = "Bestilling fra: " & VbCrLf & VbCrLf
JMail.Body = JMail.Body & "Navn: " & strpNavn & VbCrLf
JMail.Body = JMail.Body & "Dato: " & strpNavn & VbCrLf
JMail.Body = JMail.Body & "Adresse: " & strpAdresse & VbCrLf
JMail.Body = JMail.Body & "Email: " & strpEmail & VbCrLf
JMail.Body = JMail.Body & "Emne: " & strpEmne & VbCrLf
JMail.Body = JMail.Body & "Besked: " & strpBesked & VbCrLf
JMail.Body = JMail.Body & "" & strCv

'Her bliver form-mailens prioritet bestemt
' 1 - højeste (Haster / Vigtigt)
' 3 - normal
' 5 - lavest
JMail.Priority = 1

JMail.Execute
%>
<center><b>
<font size="2" face="Tahoma" color="#FF0000">
Din mail er sendt!</font></b><p><b><font face="Tahoma" size="2">
Du kontaktes hurtigst muligt.</font></b></p>
</center>
 
<%else%>
<form method="POST" action="default.asp?level=kontakt" onsubmit="return validate(this)">
    <div align="center">
        <table border="0" cellspacing="0" cellpadding="0" id="table1">
            <tr>
                <td width="75"><font size="2" face="Tahoma">Navn:</font></td>
                <td height="25" width="259">
                <input type="text" name="navn" size="40" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"> </td>
            </tr>           
            <tr>
                <td width="75"><font size="2" face="Tahoma">E-mail:</font></td>
                <td height="25" width="259">
                <input type="text" name="email" size="40" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></td>
            </tr>
            <tr>
                <td width="75"><font size="2">Emne</font><font size="2" face="Tahoma">:</font></td>
                <td height="25" width="259">
                <select style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt" name="emne" size="1">
                <option selected>Pakke</option>
                <option>Brev</option>
                <option>Rekommanderet</option>
                </select></td>
            </tr>
            <tr>
                <td width="75" valign="top">
                <font size="2">Besked</font><font size="2" face="Tahoma">:</font></td>
                <td height="25" width="259">
                <textarea rows="11" name="besked" cols="40" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></textarea></td>
            </tr>
            <tr>
                <td height="35" colspan="2">
                <p align="center">
                <input type="reset" value="Slet felter" name="B2" style="border: 1px solid #808080; background-color: #666666; font-family:Tahoma; font-size:8pt; color:#FFFFFF">
                <input type="submit" value="Send formular..." name="B1" style="border: 1px solid #808080; background-color: #666666; font-family:Tahoma; font-size:8pt; color:#FFFFFF; font-weight:bold"></td>
            </tr>
        </table>
    </div>
</form>
<%end if%>

Her er en lille hurtig omskrivning. Den er ikke teste endnu:

<% if Request.QueryString("level") = "kontakt" then%>

<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Dim strpNavn, strpEmail, strpEmne, strpBesked

strpNavn        = Trim(Request.Form("navn"))
strpEmail        = Trim(Request.Form("email"))
strpEmne        = Trim(Request.Form("emne"))
strpBesked        = Trim(Request.Form("besked"))

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Priority = 1
JMail.ServerAddress = "mail.markmadsen.dk"
JMail.Sender = StrpEmail
JMail.ReplyTo = StrpEmail
JMail.subject = "bestilling fra " & StrpNavn
JMail.AddRecipient "admin@markmadsen.dk"
JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

BodyText = "Bestilling fra: " & VbCrLf & VbCrLf
BodyText = BodyText & "Navn: " & strpNavn & VbCrLf
BodyText = BodyText & "Dato: " & strpNavn & VbCrLf
BodyText = BodyText & "Adresse: " & strpAdresse & VbCrLf
BodyText = BodyText & "Email: " & strpEmail & VbCrLf
BodyText = BodyText & "Emne: " & strpEmne & VbCrLf
BodyText = BodyText & "Besked: " & strpBesked & VbCrLf
BodyText = BodyText & "" & strCv
Mail.Body = BodyText
JMail.Silent = true
JMail.Execute
Set JMail = Nothing 

response.write "Din mail er sendt!" & "<br>" & "Du kontaktes hurtigst muligt."

end if %>
</font>
<table width="550" border="0" cellspacing="2" cellpadding="2" id="table1">
<tr><td valign="top" height="100">
    <div align="center">
        <table border="0" width="500" id="table17" cellspacing="0" cellpadding="0">
            <tr>
                <td>
                <font>
                <img border="0" src="images/bg-listtop.jpg" width="500" height="3"></font></td>
            </tr>
            <tr>
                <td background="images/bg-listmidt.jpg" height="20">
                <div align="center">
                    <table border="0" width="490" cellspacing="0" cellpadding="0" id="table18">
                        <tr>
                            <td height="200" valign="top">
                            <table width="100%" id="table27"><tr><td>
                                <b>
                                <img border="0" src="images/pilhojre.gif" width="18" height="9" vspace="1">
                                Kontakt</b></td><td>
                                &nbsp;</td></tr><tr><td colspan="2">
<form method="POST" action="default.asp?level=kontakt" onsubmit="return validate(this)">
    <div align="center">
        <table border="0" cellspacing="0" cellpadding="0" id="table1">
            <tr>
                <td width="75"><font size="2" face="Tahoma">Navn:</font></td>
                <td height="25" width="259">
                <input type="text" name="navn" size="40" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"> </td>
            </tr>           
            <tr>
                <td width="75"><font size="2" face="Tahoma">E-mail:</font></td>
                <td height="25" width="259">
                <input type="text" name="email" size="40" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></td>
            </tr>
            <tr>
                <td width="75"><font size="2">Emne</font><font size="2" face="Tahoma">:</font></td>
                <td height="25" width="259">
                <select style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt" name="emne" size="1">
                <option value="Pakke" selected>Pakke</option>
                <option value="Brev">Brev</option>
                <option value="Rekommanderet">Rekommanderet</option>
                </select></td>
            </tr>
            <tr>
                <td width="75" valign="top">
                <font size="2">Besked</font><font size="2" face="Tahoma">:</font></td>
                <td height="25" width="259">
                <textarea rows="11" name="besked" cols="40" style="border: 1px solid #808080; background-color: #CCCCCC; font-family:Tahoma; font-size:10pt"></textarea></td>
            </tr>
            <tr>
                <td height="35" colspan="2">
                <p align="center">
                <input type="reset" value="Slet felter" name="B2" style="border: 1px solid #808080; background-color: #666666; font-family:Tahoma; font-size:8pt; color:#FFFFFF">
                <input type="submit" value="Send formular..." name="B1" style="border: 1px solid #808080; background-color: #666666; font-family:Tahoma; font-size:8pt; color:#FFFFFF; font-weight:bold"></td>
            </tr>
        </table>
    </div>
</form>

fandt selv ud af det..