Problem med ASPMail

I de gode gamle dage kunne jeg sende til et stort antal modtagere via en formular på en hjemmeside. Når jeg trykkede "send", så dukkede en ny side op, hvor den stille og roligt skrev modtagernavnene, efterhånden som mailsene blev sendt afsted.
Men i dag trykker jeg "send", og så sker der absolut INTET i flere minutter, hvorefter der pludselig dukker en side frem, hvor alle navnene er skrevet.
Men koden er uændret, den har hele tiden været:

while not rsModtagere.eof

        Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
            Mailer.RemoteHost = "******"
            Mailer.FromName = "********"
            Mailer.FromAddress = "" & Afsender & ""
            Mailer.AddRecipient ""&rsModtagere("Navn")&"",""&rsModtagere("Email")&""
            Mailer.Subject = emne
            Mailer.BodyText = besked & oplysninger
            Mailer.CharSet = 2

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

        Set Mailer = nothing

        '*********************
        'Et loop, der giver ventetid mellem afsendelserne
        '*********************
          starttime = Now()
          for i = 0 to 500000
              i = i+1
          next
        endtime = Now()

    response.write "Sendt til "&rsModtagere("Navn")&", "

rsModtagere.MoveNext
Wend

Hvad skal man sige til det?