Sikre, at der ikke kommer timeout

Ohøj til alle!

Jeg har understående script til nyhedsbrevs udsending. Jeg er lidt urolig for, at der vil komme timeout, hvis der er mange mail modtagere. Jeg læste det her indlæg, hvor der står, at man skal bruge mail.merge. (http://www.eksperten.dk/spm/508990)

Jeg har forsøgt mig lidt frem og tilbage, men har ikke kunne få det til at virke. Nogle der er rare, at vise mig hvordan? :) På forhånd tak.


#### SCRIPT ####

%
Response.Buffer = True

strMode = Request.QueryString("mode")

If Request.Form("Send") <> "" Then
    '// Her putter vi værdien af de indtastede felter i en variabel
    strSender = Request.Form("Afsender")
    strSubject = Request.Form("Emne")
    strMessage = Request.Form("Html")
    strMailServer = Request.Form("Mailserver")

    '// Her åbner vi databasen, og trækker alle email adresse ud i et array
    Set myConn = Server.CreateObject("ADODB.Connection")
    myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../database/database.mdb")

    strSQL = "SELECT email FROM nyhedsbrev"
    Set rs = myConn.Execute(strSQL)
    arrEmail = rs.GetRows()
    myConn.Close
    Set myConn = Nothing

    '// Her laver vi et loop igennem vore e-mail array og sender beskeden til alle de tilmeldte
    Select Case Request.Form("MailKomponent")
    Case "JMail"
        Response.Write "<p><font face=verdana size=1><b>Der udsendes brev</b><br><br>"
        Set objMail = Server.CreateObject("JMail.SMTPMail")
        objMail.Silent = True
        objMail.ServerAddress = strMailserver
        objMail.Sender = strSender
        objMail.Subject = strSubject
        objMail.HTMLBody = strMessage
    objMail.ContentType = "text/html"
        For num = 0 to Ubound(arrEmail,2)
            objMail.AddRecipient arrEmail(0, num)
            If objMail.Execute Then
                Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") Sendt!</font><br>"
            Else
                Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") Fejl</font><br>"
            End If
            objMail.ClearRecipients
        Next
        Set objMail = Nothing
    Case "ASPMail"
        Response.Write "<p><font face=arial size=2><b>Udsender med ASPMail</b><br><br>"
        Set objMail = Server.CreateObject("SMTPsvg.Mailer")
        objMail.FromAddress = strSender
        objMail.RemoteHost = strMailserver
        objMail.Subject = strSubject
        objMail.BodyText = strMessage
        For num = 0 to Ubound(arrEmail,2)
            objMail.AddRecipient "Nyhedsmodtager", arrEmail(0, num)
            If objMail.SendMail Then
                Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
            Else
                Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
            End If
            objMail.ClearRecipients
        Next
        Set objMail = Nothing
    Case "OCXMail"
        Response.Write "<p><font face=arial size=2><b>Udsender med OCXMail</b><br><br>"
        Set objMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")
        For num = 0 to Ubound(arrEmail,2)
            strResult = objMail.SendMail(strMailserver, arrEmail(0, num), strSender, strSubject, strMessage)
            If strResult = "" Then
                Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
            Else
                Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
            End If
        Next
        Set objMail = Nothing
    End Select
    Response.Write "<br><font color=blue><b>Nyhedsbrevet er nu udsendt!</b></font></font></p>"
    Response.End
End If
%>