fejl: Send til flere end 22

det passer ikke.

Det er rigtigt... eller det har været rigtigt engang. Jeg ved ikke om fejlen er rettet. Jeg kender en som har haft problemmer med det måske der er Azero.dk som har problemmet, for det eneste sted jeg lige kan finde noget omkring det er på Azero.dk support sider:

JMail smider hver 22-ende e-mail væk, hvorfor?
Når du sender e-mails fra hjemmesider via websmtp.dit-domaene.dk og JMail skal du huske at lukke din connection, minimum efter hver tyvende e-mail. Gør du ikke dette vil hver 22-ende e-mail i en løkke, ikke blive sendt. Herunder er et eksempel på en løkke, der laver en JMail.Close for hver 20-ende e-mail:

Ok hvordan løser jeg det problem ?

Spørgsmålet er også om problmmet stadig findes i JMail...

På Azero.dk skriver de:

For i = 1 to intCount

  If CInt(i/20) = i/20 Then JMail.Close
Next

jeg bruger denne kode:
<!--#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
tempConn = \"PROVIDER=MSDASQL;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
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open tempConn
    strSQL = \"SELECT email FROM adresse\"
    Set rs = myConn.Execute(strSQL)
    arrEmail = rs.GetRows()

    \'// 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.et_eller_andet.dk\"

    JMail.Sender = \"sth@et_eller_andet.dk\"

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

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

    JMail.AddRecipient \"sth@et_eller_andet.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
   
    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 \"<p><font face=arial size=2>Besked er sendt til mailliste</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>


Så betyder det at jeg ikke løber ind i fejlen ?

Jeg lukker, kan ikke bruge ovenstående svar