hvorfor sender dette script ikke mail

hvorfor sender dette script ikke mail, der ligger en database i samme bibliotek som hedder adresse.mdb  tabellen hedder adresse og der et et felt der hedder email hvor den skal hente mailadresserne.
Jmail er instaleret

<!--#include file=\"protect.inc\"-->


<%
\' --------------------------------------------------------------------------------
\' Dette eksempel er skrevet af Dennis Knappe
\' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
\' --------------------------------------------------------------------------------
Response.Buffer = True
strMode = Request.QueryString(\"mode\")

\'// Dette er vores connection streng til databasen
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"adresse.mdb\")

If Request.Form(\"Send\") <> \"\" Then
    \'// Her putter vi værdien af de indtastede felter i en variabel
    strSender = Request.Form(\"Afsender\")
    strSubject = Request.Form(\"Emne\")
    strMessage = Request.Form(\"Besked\")

    \'// Her åbner vi databasen, og trækker alle email adresse ud i et array

SQLstmt = \"SELECT * FROM adresse ORDER BY navn;\"

Conn.Execute (SQLstmt)
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"adresse.mdb\")

Set rs = conn.Execute(SQLstmt)
email=RS(\"email\")

response.write  email
 

   
   
    \'// Her laver vi et loop igennem vore email array, og sender beskeden til alle de tilmeldte
    Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
   
    JMail.ServerAddress = \"mail.renny.dk\"

    JMail.Sender = \"mail@renny.dk\"

    JMail.Sendername = Request.form(\"Afsender\")

    JMail.Subject = Request.form(\"Emne\")

    \'JMail.AddRecipient \"mail@renny.dk\"
   
    JMail.body = Request.form(\"Besked\")

    \'JMail.Priority = 3

    JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
 
            Do while not RS.eof

    JMail.AddRecipientBCC \"\"& RS(\"email\")&\"\"
    RS.movenext
    loop
    response.write  email


   
\'    JMail.Execute

    \'// Her sletter vi alt buffered output, og redirecter siden, med et parameter der fortæller at vi har sendt til listen
    Response.Clear
  Response.Redirect(\"mailliste.asp?mode=finish\")
End If
%>
<html>

<head>
<title>Mailliste</title>
<body style=\"background-color: #FFCC00\">

<body>
<div align=\"center\"><center>

<table border=\"0\" width=\"600\" cellspacing=\"0\" cellpadding=\"3\" style=\"border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 2px solid rgb(0,0,0)\">
  <tr>

    <td width=\"100%\" bgcolor=\"#000000\"><p align=\"center\"><font face=\"verdana\" size=\"4\" color=\"#FFFFFF\"><strong> Send E-mail til alle kunder.</strong></font></td>
  </tr>

  <tr align=\"center\">
    <td width=\"100%\"><%
Select Case strMode
Case \"finish\"
response.write  email
response.write \"test\"
    Response.Write \"<p><font face=arial size=2>Besked er sendt til alle kunder i databasen </font></p>\"
    Response.Write \"<p><font face=arial size=2><a href=default.asp>Tilbage til forside</a></font></p>\"
Case Else
%>

<form method=\"POST\" action=\"mailliste.asp\">
      <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
        <tr>
          <td valign=\"middle\" align=\"left\" colspan=\"2\"><font face=\"verdana\" size=\"2\"><strong><br>
          </strong>Indtast venligst oplysningerne i følgende felter:<strong><br>
          &nbsp; </strong></font></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\"><strong><div align=\"right\"><p><font face=\"verdana\" size=\"2\">Afsender</font></strong></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Afsender\" size=\"70\"></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\"><div align=\"right\"><p><font face=\"verdana\" size=\"2\"><strong>Emne</strong></font></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Emne\" size=\"70\"></td>
        </tr>
        <tr>
          <td valign=\"top\" align=\"left\"><div align=\"right\"><p><font face=\"verdana\" size=\"2\"><strong>Besked</strong></font></td>
          <td valign=\"middle\" align=\"left\"><textarea rows=\"10\" name=\"Besked\" cols=\"60\"></textarea></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\" colspan=\"2\"><br>
          <input type=\"submit\" value=\"Send\" name=\"Send\"></td>
        </tr>
      </table>
    </form>
<% End Select %>
    </td>
  </tr>
  <tr align=\"center\">
    <td width=\"100%\" bgcolor=\"#000000\"><p align=\"center\"><font face=\"Verdana\" size=\"1\" color=\"#FFFFFF\"><br>
    </a></font></td>
  </tr>
</table>
</center></div>
</body>
</html>