1100 BCC via ASPMail

Jeg har en mailliste på foreløbig 1100 modtagere. Nedenstående kode tager 100 ad gangen og sætter ind i BCC-feltet. Men det går uhyggeligt langsomt på serveren.
(Det skal sige, at når jeg fjerner mail-funktionen, så afvikles koden lige så hurtigt, som man kunne forvente).
Hvad er galt?

'---------------------------------------------------------
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.udbyder.dk"
Mailer.FromName = "Organisation"
Mailer.FromAddress = "info@udbyder.dk"
Mailer.ReplyTo = "info@udbyder.dk"
Mailer.Subject = emne
Mailer.ContentType = "text/html"
Mailer.BodyText = Tekst        
Mailer.CharSet = 2
'----------------------------------------------------------
       
       
'Vi finder det højeste ID i tabellen
Set rsHojst = MyConn.Execute("SELECT TOP 1 EmailNewsID FROM EmailNews ORDER BY EmailNewsID DESC")
    Max = rsHojst("EmailNewsID")
rsHojst.Close
Set rsHojst = Nothing
           
Do While Max > -24
                   
    Hojst = Max + 1
    Laveste = Max - 25
                   
    SQL = "SELECT EmailNewsEmail FROM EmailNews WHERE (EmailNewsID < "& Hojst &") AND (EmailNewsID > "& Laveste &")"
       

    set rsModtagere    = MyConn.Execute(SQL)
    if rsModtagere.eof then
        Max = 0
    else
        while not rsModtagere.eof
            Email = rsModtagere("EmailNewsEmail")
            Mailer.AddBCC ""& Email &"", ""& Email &""
            response.write ""& Email &", "
        rsModtagere.MoveNext
        wend

'------------------------------------
Mailer.SendMail
if not Mailer.SendMail then
  Response.Write "<br>Der er sket en fejl:<br>"
  Response.Write Mailer.Response
  Response.Write "<br>"
end if
Mailer.ClearAllRecipients
'------------------------------------

    end if

    rsModtagere.Close
    Set rsModtagere = Nothing

    Max = Max - 25
    Loop
                               
   
'-------------------------------
Set Mailer = nothing
'-------------------------------