Jmail qeueing ??

Jeg har de 2 scripts her der sender via jmail. Mit problem er at hvis bare en af medlemmerne har en fyldt postkasse eller sådan noget lignende, så stopper den med at sende fordi den ikke laver qeueing.


dette er _send.asp
<%
    \'If you decide to use JMail, you will need to add a FROMNAME in the call in sendmail.asp
    sub SendJMail(sTo, sSubject, sBody, sFrom, sFromName)
        \'TO DO: Change the mail configuration
        sMailServer = \"counselor.dk\"
        sMailSender = sFrom
        sMailSenderName = sFromName
       
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ServerAddress = sMailServer
        JMail.Sender = sMailSender
        JMail.Sendername = sMailSenderName
        JMail.Subject = sSubject
        JMail.AddRecipient sTo
        JMail.Body = sBody
        JMail.Execute
    end sub


    sub SendASPMail(sTo, sSubject, sBody, sFrom)
        \'TO DO: Change the mail configuration
        Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
        Mailer.FromName  = sFrom
        Mailer.FromAddress= sFrom
        Mailer.RemoteHost = \"counselor.dk\"
        Mailer.AddRecipient sTo, sTo
        Mailer.Subject    = sSubject
        Mailer.BodyText  = sBody
        if Mailer.SendMail then
          Response.Write \"Mail sent...\"
        else
        Response.Write \"Mail send failure. Error was \" & Mailer.Response
        end if
    End sub
%>

Og her \"sende\" siden:
sendmail.asp

<!--#include virtual=\"/root/_db.asp\"-->
<!--#include virtual=\"/root/_send.asp\"-->
<!--#include virtual=\"/root/sendsms.asp\"-->

<%
    if request(\"cmdSend\") <> \"\" then
        sSubject = request(\"txtSubject\")
        sFrom = request(\"txtFrom\")
        sGetBody = request(\"txtBody\")
        if request(\"chkNotification\") <> \"\" then sFilter = \" WHERE subNotifications = True\"
        if request(\"chkNewsletter\") <> \"\" then
            if len(sFilter) <> 0 then
                sFilter = sFilter & \" OR subNewsletter = True\"
            else
                sFilter = \" WHERE subNewsletter = True\"
            end if
        end if

        if request(\"chkAllUsers\") <> \"\" then sFilter = \"\"
       
        OpenDB sConnUsers
       
        if (request(\"chkAllUsers\") <> \"\") OR (request(\"chkNotification\") <> \"\") OR (request(\"chkNewsletter\") <> \"\") then
            sSQL = \"SELECT * FROM Users\" & sFilter
            rs.Open sSQL,,,adCmdTable

            response.write \"<br>Beginning MailSender Sequence...<br><br>\"

            do while not rs.eof or rs.bof
                sFirstName = rs(\"FirstName\")
                sTo = rs(\"eMail\")
                sBody = \"Hej \" & sFirstName & \" \" & sGetBody
                SendJMail sTo, sSubject, sBody, sFrom, sFromName
                \'SendCDOMail sTo, sSubject, sBody, sFrom

                response.write \"Mail sent to:: \" & rs(\"UserName\") & \":: \" & sTo & \"<br>\"
                rs.movenext
            loop

            response.write \"<br>All mails sent! <a href=\"\"sendmail.asp\"\">Click here</a> to return to MailSender.\"
            rs.Close
        end if
       
        strFra = \"Counselor.dk\"  \' Skal rette til FRA
        strBesked = sGetBody
        if request(\"chkSMSNewsletter\") <> \"\" then
            strSQL = \"SELECT mobil FROM users WHERE (SMSMD = true) AND (Mobil<>\'\');\"
            rs.Open strSQL,,,adCmdTable
            do while not rs.EOF
                Response.write SMSsender(rs(\"mobil\"),strFra,strBesked) & \"<br>\"
                rs.movenext
            loop
        end if
        \'rs.Close
        %>