Timeout

Min kod för att skicka ut nyhetsbrev ser ut så här:

<%
   Dim rs, mail, subject, message, data_source, sql_select, no

   message = Request.Form("message")
 
   sql_select = "select email from users"
   data_source = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")

   Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
   Set rs = Server.CreateObject("ADODB.Recordset")
   rs.Open sql_select, data_source

   server.scripttimeout = 3600

   While Not rs.EOF
   Mailer.Timeout = 3600
   Mailer.CharSet = 2
   Mailer.FromName = "gratistavlingar.com"
   Mailer.FromAddress= "nyhetsbrev@gratistavlingar.com"
   Mailer.RemoteHost = "mail.host.com"
   Mailer.AddRecipient "", rs("email")
   Mailer.Subject = Request.Form("subject")
   Mailer.BodyText = message
   Mailer.SendMail
   rs.MoveNext
   Wend
   rs.Close
   Set rs = Nothing
   Set mail = Nothing

Skall jag ha båda Timeout-satserna,

server.scripttimeout = 3600
Mailer.Timeout = 3600

eller bara den översta? Och, är det i så fall korrekt värde (3600) som jag har angett? Kan jag ange ett större värde?

------------------
http://www.gratistavlingar.com

om mailern har en timeout-property så bör inte den vara satt lägre än script timeout.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>

[Redigerat av @nders den 06 feb 2001]