Nyhedsbrev timeout fra server

Hejsa
Jeg sender et nyhedsbrev på denne måde, jeg udvælger alle som skal have det fx. 120 mailadresser og looper over dem sådan her:

----------------
Do Until rs.eof

Set Message = Server.CreateObject("JMail.SMTPMail")

    Message.ContentTransferEncoding = "8bit"
    Message.Charset = "ISO-8859-1"

        Message.Priority = 1
        Message.ServerAddress = "mail.minmail.dk"
        Message.Sender = "minmail@minmail.dk"
        Message.Subject = "Nyhedsbrev"
        Message.Body = "Hej " & Navn & "" & vbCrLf & vbCrLf
        Message.Body= Message.Body + "Dette er et nyhedsbrev& vbCrLf & vbCrLf


Message.AddRecipient rs("email")


Message.Execute
set Message = nothing
RS.MoveNext
Loop
----------------------------

Men jeg får en gejl fra serveren "script timeout" når den har sendt ca. 40 mails. Hvis jeg sender under 40 går det fint.

Er der noget galt i den måde jeg gør det på?