Vil dette virke? (Opdeling af JMail nyhedsbrev i bidder)

Hej,

Jeg sidder og skal til at udsende et nyhedsbrev og det slår mig at jeg egentlig ikke har testet om det virker, så hvis der er en haj der lige gider at kigge det igennem inden jeg belemrer mine brugere med det.

Server.ScriptTimeout = 5000

'//Indsætter nyehdsbrev i tabel og sender nyhedsbrev
if request.form("submitNyhedsbrev") <> "" then
    oprettet = dato()& tid()
    strBrev = request.form("nyhedsbrev")
    sql = "INSERT INTO nyhedsbreve (oprettet, brev) VALUES ('" & oprettet & "', '" & strBrev & "')"
    conn.execute(sql)

        '// JMail sender oprettelsesmail
    Set JMail          = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = "xxx"
    JMail.Sender        = "xxx"
    JMail.SenderName    = "xxx"
    JMail.Subject      = "Nyhedsbrev"
    JMail.Priority      = 3
    JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

        'Henter brugeres emailadresser
        sql = "SELECT email, brugernavn FROM brugere WHERE godkendt = 1;"
        set rs = conn.execute(sql)

        JMail.Body = "Kære " & rs("navn") & "," & vbCrlf & vbCrlf
        JMail.Body = JMail.Body & strBrev
        JMail.Body = Jmail.Body & "Med venlig hilsen " & vbCrLf       
        JMail.Body = Jmail.Body & "webmaster " & vbCrLf

       
'Rutinen nedenfor deler brugerne op i bidder
i=0
Do while Not rs.eof
  i = i + 1
 
        JMail.ClearRecipients
        JMail.AddRecipient rs("email")
        JMail.Execute
 
      if i = 20 then
        JMail.Close
        i = 0            '//Nulstiller tælleren
    end if
    rs.movenext
loop

        JMail.Close
        Set Jmail = Nothing
        rs.close
set rs = nothing   
end if