Løkke med Jmail

Jeg har lavet en løkke som skal sende mails ud til alle deltagere i en konkurrence.
Nu er der desværre nogle deltagere som ikke har fået mails i et hvilket undre mig lidt.

Er der evt. nogen der kan se om mit script skulle indeholde en fejl?

---------------------------------------------
<%
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("db.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open strDSNSQL = "SELECT * FROM RUNDER ORDER BY rundenr;"
Set rs = conn.Execute(SQL)

Response.write "<form name=opdaterpoint action=sendmails.asp method=post>"
Response.write "Vælg rundenr<br><select name=rundenr class=dropdown>"
Do while not rs.EOF
    Response.write "<option value="&rs("rundenr")&"> Sælgerrunde "&rs("rundenr")&"</option>"
    rs.movenext 
Loop
Response.write "<br><br><input class=Submitknap type=submit value='Send mails' name=opdater></form></tr></td></table>"

If Request.Form("opdater") <> "" Then
    r =  Trim(Request.Form("rundenr"))
    'Sender mails ud til spillere

    SQL = "SELECT * FROM SPILLERE ORDER BY spillernavn"
    Set rs = Conn.Execute(SQL)

    If NOT rs.BOF AND NOT rs.EOF then
      rs.movefirst
      Do while not rs.EOF
        spillernavn = rs("spillernavn")

        mailbesked = ""
        Set JMail          = Server.CreateObject("JMail.SMTPMail")
        JMail.ContentType  = "text/html"
        JMail.Logging         = True
        JMail.Silent        = True
        JMail.ServerAddress = "websmtp.domænenavn.dk"
        JMail.Sender        = "robot@domænenavn.dk"
        JMail.Subject      = ""
        JMail.AddRecipient  rs("email")
        JMail.Priority      = 3
        JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

        if r>2 then
            'Rundepoint
            SQL2 = "SELECT SPILLERE.spillerID, POINTS.rundeNr, Sum(POINTS.point) AS AntPoint FROM SPILLERE INNER JOIN POINTS ON SPILLERE.spillerID = POINTS.spillerID " & _
                "GROUP BY SPILLERE.spillerID, POINTS.rundeNr HAVING SPILLERE.spillerID="&rs("spillerID")&" AND POINTS.rundeNr="&r
            Set rs2 = Conn.Execute(SQL2)

            'Samlede point
            SQL3 = "SELECT SPILLERE.spillerID, Sum(POINTS.point) AS AntPoint, SPILLERE.placering, SPILLERE.placeringnu " & _
                "FROM SPILLERE INNER JOIN POINTS ON SPILLERE.spillerID = POINTS.spillerID " & _
                "GROUP BY SPILLERE.spillerID, SPILLERE.placering, SPILLERE.placeringnu HAVING SPILLERE.spillerID="&rs("spillerID")
            Set rs3 = Conn.Execute(SQL3)

            'N0 1 point
            SQL4 = "SELECT TOP 1 SPILLERE.forhandlerID, Sum(POINTS.point) AS Antpoint, SPILLERE.spillernavn " & _
                "FROM FORHANDLER INNER JOIN (POINTS INNER JOIN SPILLERE ON POINTS.spillerID = SPILLERE.spillerID) ON FORHANDLER.forhandlerID = SPILLERE.forhandlerID " & _
                "GROUP BY SPILLERE.forhandlerID, SPILLERE.spillernavn ORDER BY Sum(POINTS.point) DESC;"
            Set rs4 = Conn.Execute(SQL4)
            mailbesked = mailbesked & "En masse tekst til deltagerne"

            JMail.HTMLBody = mailbesked
            Jmail.Body = HTMLBody
        end if

        If Not JMail.Execute Then
            Response.Write("ERROR MESSAGE: " & JMail.ErrorMessage & "<br>" & vbCrLf)
            Response.Write("ERROR SOURCE: " & JMail.ErrorSource & "<br>" & vbCrLf)
            Response.Write("LOG: <pre>" & JMail.Log & "</pre>" & vbCrLf)
        End If
        Set JMail = Nothing
        rs.movenext
      Loop
    End if
end if
response.write mailbesked
%>
-------------------------------------------------