Jmail - Mange mails

jeg kører en mailforsendelse således:

if not rs.eof then
do
send_email = rs("emailadresse")


set jmail = server.createobject("JMAIL.SMTPMail")
jMail.sendername = "dig"
jMail.sender = "dig@dig.dk"
jMail.Subject = "overskrift"
jMail.ServerAddress = "smtp.test.dk"
jMail.AddRecipient send_email
JMail.ContentType = "text/html"

jMail.Body = "test"
jMail.Lazysend = true
jMail.Priority = 3

jMail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
antal = antal + 1

jMail.Execute

  jMail.ClearRecipients
if antal = 20 then
        jMail.Close
        antal = 0
    end if
rs.movenext
loop while not rs.eof
set rs = nothing
end if

'den lukker jmail efter 20 og starter op igen og det virker

Super , it worked, takker og hav en god dag :D

i lige måde og tak for point ;-))