Jmail - Opdel i flere emails - 552 5.5.3 Too many recipients

Hej eksperter,

jeg vil gerne sende en mail ud til min mailliste og min kode virker - Sådan da - De først 100 får en e-mail mens jeg får en fejlmeddelelse for resten: 552 5.5.3 Too many recipients.
Så vidt jeg har fundet frem til så er det smtp serveren der svarer fejlmeddelelsen tilbage.
Jeg skal sende til ca. 160.

Er der nogen der kan hjælpe mig med at få mit script til at sende f.eks 90 af gangen?


Min kode ser sådan ud (jeg har fjernet XX):
<%
  set msg = Server.CreateOBject( "JMail.Message" )
  Set upload = Server.CreateObject( "w3.Upload" )
  msg.Logging = True
  msg.Silent = True
  Server.ScriptTimeout = 600

  'Check for attachments and add them to the email
  set attachment = upload.Form( "attachment" )
  if attachment.IsFile then
  msg.AddCustomAttachment attachment.filename, attachment.item, false
  end if


  msg.from        = upload.form("fra")
  msg.Subject      = upload.form("emne")
  'JMail.Subject      = "" & request.form("emne") & ""
  msg.AddRecipient  "XX"

response.expires = 0
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("XX")
SQLstmt = "SELECT * FROM XX;"
Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt)
DO WHILE NOT rs.EOF
msg.AddRecipientBCC rs("email")
rs.MoveNext
LOOP

  msg.Priority      = 3
  msg.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")


  ' ********** Her starter selve email-en
  msg.Body = upload.form("besked")
  ' ********** Her slutter selve email-en

  ' To capture any errors which might occur, we wrap the call in an IF statement
if not msg.Send( "XX" ) then
    Response.Write "ERROR MESSAGE: " & msg.ErrorMessage & "<br/>" & vbCrLf
    Response.Write "ERROR SOURCE: " & msg.ErrorSource & "<br/>" & vbCrLf
    Response.Write "LOG: <pre>" & msg.Log & "</pre>" & vbCrLf
'  Response.write "<pre>" & msg.log & "</pre>"
else
  Response.write "Message sent succesfully!"
end if
  Set msg = Nothing
RS.Close
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>