TimeOut

som den skriver, så kan du jo ændre Server.ScriptTimeOut, til en tid der passer dig..

fx Server.ScriptTimeOut = 30 (mener det angives i minutter)

Hvor skal det sættes ind i min kode


<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"SpawnedMailer.mdb\")

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form(\"myemail\")
mTo = Request.Form(\"to\")
mSubject = Request.Form(\"subject\")
mbcc = Request.Form(\"users\")
mBody = Request.Form(\"body\")
mArchive = Request.Form(\"archive\")

response.write(\"Nyhedsbrevet er sendt til:<br><br>\" & mbcc )


strSQL = \"SELECT MailingAddy, MailingID FROM MailingList\"
set Res = Conn.Execute(strSQL)
while not Res.EOF
  Set Mail = Server.CreateObject (\"CDONTS.NewMail\")
  Mail.From = mFrom
  Mail.To = res(\"MailingAddy\")
  Mail.Subject = mSubject                                                                                                                                                                                                                                                                                                                                                                   
  Mail.Body = mBody & \"----------------------------------------------------------------------------\" & vbcrlf & \"Ønsker du at ændre din Email addresse kan du trykke på det her link: \"  & vbcrlf & \"www.vipiil.dk/mail/MailEdit.asp?Action=Redigere&num=\" & res(\"MailingID\") & vbcrlf & vbcrlf & vbcrlf & \"STOP med at modtage dette nyhedsbrev. Klik her:\"  & vbcrlf & \"www.vipiil.dk/mail/MailEdit.asp?Action=Slet&num=\" & res(\"MailingID\")
  Mail.BodyFormat = 1
  Mail.Mailformat = CDOMailFormatMIME
  Mail.Send
  Set Mail = Nothing
Res.MoveNext
wend

if mArchive = \"1\" then

set conn=Server.CreateObject(\"ADODB.Connection\")
conn.Provider=\"Microsoft.Jet.OLEDB.4.0\"
conn.Open(Server.Mappath(\"SpawnedMailer.mdb\"))

ArchiveSQL = \"INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES (\'\" & mSubject & \"\',\'\" & mBody & \"\');\"
conn.Execute ArchiveSQL
response.write(\"<br><br><br><font color=\'#FF0000\'>Brevet er nu Arkiveret!</font><br><br>\")

conn.close

end if

response.write(\"<br><br><br><center><a href=\'AdminIndex.asp\'>ADMIN HOME</a><center>\")

%>


Og overruler den en evt default fra serveren

Jeg har ikke kontrol over serveren

bare sæt det ind lige i starten

Du kan også skrive et punktum (Response.write \".\") for hver gang du sender en e-mail. Derved burde du kunne undgå timeout.

I øvrigt mener jeg scripttimout på sideniveau angives i sekunder

Default er 90 sekunder.

Er det så kun får den her side det gælder eller

ja

ja, det gælder kun det script/side

Problemet med at sætte scripttimeout er at brugeren kan blive utålmodig og trykke refresh. Og så har du endnu en side der står og sender mail\'s til de samme sæt af personer.

undre mig lige en gang....hvorfor også 800 mails?

jeg kan høre på det hele at du ikke skal have min mailadresse...

never mind.. kiggede ikke koden igennem ordentligt...

http://www.html.dk/dokumentation/objects/asp/intr246s.htm

læs om server.scripttimeout her.

Prøv at overveje at lægge en Response.write \".\" ind efter Res.MoveNext. Jeg tror der vil spare dig for nogle tilfælde af \'Invalid User Error\' og en script timeout.

derudover.

Er det virkeligt nødvendigt at erklære mail objectet 800 gange inde i dit loop?

Prøv at læg det før loopet sammen med
from, subject, bodyformat og mailformat

Læg derudover linien med: Set mail = nothing
Efter loopet

Ja for så får jeg en email med kun en til >>til hver og ikke bcc eller mange emails i cc

Hvordan tester jeg det uden at sende emails

Jeg ved godt hvordan jeg tester det , men kan jeg evt se om time outen virker

Er vi sikre på at det ikke er Session.Timeout den er gal med

Nej, Session.Timeout er noget andet.
Prøv med at gemme resultat fra db i en array med arrayRes = Res.GetRows()
Bagefter kan du loope igennem med:
For i=0 to ubound(arrayRes, 2)
    \'arrayRes(0, i) =MailingAddy
    \'arrayRes(1, i) =MailingID
    Call SendMail(arrayRes(0, i), arrayRes(1, i))
Next

PS: Du skal lave funktionen SendMail

Tak for hjælpen.....og undskyld den sene respons