100 point til den som får det her emailværk til at virke

Hej

Nu tror jeg at jeg har prøvet ALT for at få det her til virke..

Som læst i overskriften.. 100 point..

her er hele koden...
Når man sender så melder den ingen fejl, men der kommer bare aldrig en email.

PS: når i tester om email funktionen virkr så må der IKKE bruges de email adr. som er i koden, men prøv evt. jeres egen..

<% @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>

<%

body = request.form("Uforpligtende tilbud paa")
afsender = request.form("navn")
telefon = request.form("telefon")
varmodtageremail = Request.Form("Personer")

If afsender <> "" AND Telefon <> "" Then
    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
'----------------------------------------------------------------------
%>