Fejlmeddelelse: Server.ScriptTimeOut

Jeg har en nyhedsmail funktion, som sender alle nyheder ud til ca. 1500 emails. Det er første gang jeg har prøvet at attache 500 KB fil med sendingen, men når den har sendt ca. 30 emails ud, så få jeg denne fejlmeddelelse:
"The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeOut or by changing the value in the IIS administration tools. "

Er der nogen som kan fortælle mig hvordan jeg får får min kode til at sende til alle email adresserne uden at den stopper?
Hvordan bruger jeg Server.ScriptTimeOut i min kode? Det kommer til at tage ca. 30 min at sende ud til emails.

Min kode ser således ud:



sub mailAll

    SQL="select * from TblEmailListe"
    makeRS(SQL)
    dim antal
    antal =0
    'If Not rs = Nothing Then

        do while not rs.eof

            call sendMessage(rs("Email"))
            antal = antal + 1
            response.Write(rs("Email") & ": sendt! <br>")

            rs.Movenext
        loop

        Dim strSQL
        strSQL = "Insert into NyhedsBrevLog (NyhedsTitel, NyhedsText, UdsendtDato, mailCounter) values('" & request("Emne") & "', '" & message & "', '" & Now() & "', '" & antal & "')"
        cn.Execute(strSQL)



        'Skal skrive til log fil Antal, dato, nyhedstekst
        response.Write(" Slut <br> der er ialt blevet udsendt " & antal & " emails")
        rs.Close
    'End If

end sub




function sendMessage(strEmail)

    ' create email
    Set objNewMail = Server.CreateObject("CDONTS.NewMail")

    objNewMail.To = strEmail
    objNewMail.From = request("framail")
    objNewMail.Subject = request("Emne")
    objNewMail.Body = message

    if request("attach1") <> "" then

        objNewMail.Attachfile server.mappath(request("attach1"))

    end if

    ' send email
    objNewMail.Send
    Set objNewMail = Nothing
    'response.Write(strEmail & " sent <br>")

end function