Mailscript der kun sender til 1000 modtagere af gangen

hvordan kan man ændre mit mailscript så det sender til eksempelvis 1000 brugere af gangen - så det ikke kommer noget server script timeout

kode:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/scandlines.asp" -->
<%
Dim rsNyhedsbrev
Dim rsNyhedsbrev_numRows
Set rsNyhedsbrev = Server.CreateObject("ADODB.Recordset")
rsNyhedsbrev.ActiveConnection = MM_scandlines_STRING
rsNyhedsbrev.Source = "SELECT *  FROM BorderShopNyhedsbrev  ORDER BY IDnyhedsbreve DESC"
rsNyhedsbrev.CursorType = 0
rsNyhedsbrev.CursorLocation = 2
rsNyhedsbrev.LockType = 1
rsNyhedsbrev.Open()
rsNyhedsbrev_numRows = 0

    Overskrift    = (rsNyhedsbrev.Fields.Item("Overskrift").Value)
    Tekst        = (rsNyhedsbrev.Fields.Item("Tekst").Value)

Dim rsEmails
Dim rsEmails_numRows
Set rsEmails = Server.CreateObject("ADODB.Recordset")
rsEmails.ActiveConnection = MM_scandlines_STRING
rsEmails.Source = "SELECT *  FROM BorderShop"
rsEmails.CursorType = 0
rsEmails.CursorLocation = 2
rsEmails.LockType = 1
rsEmails.Open()
rsEmails_numRows = 0

  on error resume next
  Do While Not rsEmails.EOF
  strEmail = (rsEmails.Fields.Item("Email").Value)
  strNavn  = (rsEmails.Fields.Item("Fornavn").Value)
 
  Set JMail          = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "websmtp.border-wines.dk;websmtp.border-wines.dk;mailrelay.andersenit.dk"
  JMail.Sender        = "admin@border-wines.dk"
  JMail.SenderName      = "Border Shop"
  JMail.ContentType  = "text/html"
  JMail.Subject      = Overskrift
  JMail.AddRecipient    strEmail
  JMail.Priority      = 3
  JMail.AddHeader      "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
  Jmail.Body          = replace(Tekst, "ModtagerensNavn", strNavn)
 
  JMail.Execute
  Set JMail = Nothing
  rsEmails.MoveNext
  Loop

rsEmails.close
Set rsEmails = Nothing

rsNyhedsbrev.Close()
Set rsNyhedsbrev = Nothing

Response.Redirect("oversigt_nyhedsbrev.asp")
%>