Hvad er der galt?

Hejsa -

Jeg er igang med at lave et admin til udsendelse af nyhedsbrev, men mailen bliver ikke sendt.

Den løber godt nok koden igennem osv. og melder ikke fejl, men jeg får ikke nogen mail!

Her er min kode:

<%
Option Explicit
%>
<%
Dim Connect, rs

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"jupiter\"

Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM Test\", Connect, 1, 3
%>
<html>
<head>
<title>Jupiter - Administration</title>
</head>
<body bgcolor=\"#999999\">
<form method=\"post\" action=\"news_letter.asp?action=send\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"5\" width=\"600\">
    <tr>
        <td width=\"600\" align=\"left\" colspan=\"2\"><font face=\"Verdana\" size=\"4\">Send Nyhedsbrev</font></td>
    </tr>
    <tr>
        <td width=\"100\" align=\"left\"><font face=\"Verdana\" size=\"2\">Til:</font></td>
        <td width=\"500\" align=\"left\">
            <select name=\"receiver\">
                <option selected value=\"\">Vælg modtagere</option>
                <option value=\"<%
                                do until rs.EOF
                                    Response.Write(\"\"&rs(\"Mail\")&\"\")
                                rs.MoveNext
                                loop
                                %>\">Testliste</option>
            </select>
        </td>
    </tr>
    <tr>
        <td width=\"100\" align=\"left\"><font face=\"Verdana\" size=\"2\">Fra:</font></td>
        <td width=\"500\" align=\"left\"><input type=\"TEXT\" name=\"navn\" size=\"30\" value=\"Jupiter Webmaster\"></td>
    </tr>
    <tr>
        <td width=\"100\" align=\"left\"><font face=\"Verdana\" size=\"2\">Svar-mail:</font></td>
        <td width=\"500\" align=\"left\"><input type=\"TEXT\" name=\"email\" size=\"30\" value=\"Jupiter@Scanbox.Com\"></td>
    </tr>
    <tr>
        <td width=\"100\" align=\"left\"><font face=\"Verdana\" size=\"2\">Emne:</font></td>
        <td width=\"500\" align=\"left\"><input type=\"TEXT\" name=\"subject\" size=\"30\"></td>
    </tr>
    <tr>
        <td width=\"100\" align=\"left\" valign=\"top\"><font face=\"Verdana\" size=\"2\">Text:</font></td>
        <td width=\"500\" align=\"left\"><textarea name=\"body\" rows=\"20\" cols=\"50\"></textarea></td>
    </tr>
    <tr>
        <td width=\"100\" align=\"left\"></td>
        <td width=\"500\" align=\"left\"><input type=\"SUBMIT\" name=\"submit\" value=\"Send nyhedsbrev\"></td>
    </tr>
</table>
</form>
<%
Select Case Request.QueryString(\"action\")

Case \"send\"

Dim Mail, Fra, Afsender, Modtager, Tekst, Emne

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"jupiter\"

Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM Test\", Connect, 1, 3

Set Fra = Request.Form(\"navn\")

Set Afsender = Request.Form(\"email\")

Set Modtager = Request.Form(\"receiver\")

Set Emne = Request.Form(\"subject\")

Set Tekst = Request.Form(\"body\")

Set Mail = Server.CreateObject(\"CDONTS.NewMail\")
Call Mail.Send(Fra, rs(\"Mail\"), Emne, Tekst)
Set Mail = Nothing

Response.Redirect(\"news_letter_ok.asp\")

End Select
%>
</html>
</body>