email virker ikke

Efter at have fed hjælpe herinde.og er kommet langt med det som jeg har gang i så er der kun 1 ting som ikek virker.. Mine emails bliver ikke sendt..

Her er hele koden.. som den ser ud nu..
Den melder ingen fejl. Men selve mailen kommer aldrig frem.

Det som jeg håber en eller anden kan svare mig på er om de felter som man ser i formularen bliver sendt med i selve emailen..
Hvis ikke: hvordan får jeg dem så til det...??..


<% @language=VBScript %>
<% response.buffer = true %>
   
    <form action="admin1.asp" method="post">
   
    <table border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td colspan="3" nowrap><span class="almbolder"><b>
        Spring k&oslash;en over!
        - indhent tilbud online...</b></span><br>

        <span class="alm"><br>
        Vi p&aring;t&aelig;nker arrangement den</span> <input type="text" name="Dato" size="10" value="00/00/0000" maxlength="10"><br><br>
<tr>

        <td nowrap valign="top"><span class="alm">- og vil gerne have et<br>
        uforpligtende tilbud p&aring;:</span><br>


        <textarea name="Uforpligtende tilbud paa" cols="28" rows="7" wrap="virtual"></textarea></td>
        <td nowrap valign="top"><span class="alm">
       
    Hvis du ønsker at komme i kontakt med en <br>
    speciel booker så vælg nedenunder.
   
    <br>
        <Select Name="Personer">
            <Option value="Calle@cb-oleb.dk">Calle</Option>
            <Option selected value="Thomas@cb-oleb.dk">Thomas A.</Option>
            <Option value="Torben@cb-oleb.dk">Torben</Option>
          </Select>
   
        </span><br>
    </tr>
<br>
        <table border="0" cellpadding="2" cellspacing="0">
    <tr>
    <td nowrap>
        <table border="0" cellpadding="0" cellspacing="0" frame="">
    <tr>
    <td>
        <table border="0" cellpadding="1" frame="" cellspacing="0">
    <tr>
        <td width="55" valign="middle"><span class="alm">Firma</span></td>
        <td><input type="text" name="Firma" size="40"></td>
    </tr>
    <tr>
        <td width="55"><span class="alm">Navn</span></td>
        <td><input type="text" name="Navn" size="40" value="Skal udfyldes"></td>
    </tr>
    <tr>
        <td width="55"><span class="alm">Stilling</span></td>
        <td><input type="text" name="Stilling" size="40"></td>
    </tr>
    <tr>
        <td width="55"><span class="alm">Adresse</span></td>
        <td><input type="text" name="Adresse" size="40"></td>
    </tr>
    <tr>
        <td width="55"><span class="alm">Postnr.</span></td>
        <td><input type="text" name="Postnr" size="4" maxlength="4"></td>
    </tr>
    <tr>
        <td width="55"><span class="alm">By</span></td>
        <td><input type="text" name="By" size="40"></td>
    </tr>
    <tr>
        <td width="55"><span class="alm">Telefon</span></td>
        <td><input type="text" name="Telefon" size="20" value="Skal udfyldes"></td>
    </tr>
    <tr>
        <td width="55"><span class="alm">Telefax</span></td>
        <td><input type="text" name="Telefax" size="20"></td>
    </tr>
    <tr>
        <td width="55"><span class="alm">E-mail</span></td>
        <td><input type="text" name="Email" size="40"></td>
    </tr>
    </table>
   
    <br>
<input type="submit" value="Send">
</form>

<%

afsender = request.form("navn")

If request.form("Navn") <> "" AND request.form("Telefon") <> "" Then

varmodtageremail = Request.Form("Personer")

set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
'msg.From = afsender
msg.FromName = afsender
msg.AddRecipient varmodtageremail
msg.Subject = overskrift
msg.Body = body
response.write "så er din forespørgsel sendt"

End If
%>