JMail timeout
Hej...Jeg looper gennem databasen og sender efterfølgende en mail ud til mine brugere via JMail. Der er ca. 175 brugere - og mit problem er at scriptet får time out. Er der en vej omkring dette (hosten kører ikke med JMail pro - kan med andre ord ikke sætte i kø)...?!?
Koden ser ud som flg.:
<%
'--------------- HENT BRUGER DATA FRA DATABASE ---------------
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
SQL = "SELECT email,brugernavn FROM brugere WHERE defaultbruger = false AND verifieduser = true"
set RS = myconn.execute(SQL)
'--------------- SEND MAIL TIL BRUGERE ---------------
countemail = 0
do until RS.eof
email = RS("email")
brugernavn = RS("brugernavn")
emne = request.form("emne")
besked = request.form("besked")
finalbesked = Replace(besked, vbCrLf, "<br>")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "pasmtp.tele.dk"
JMail.Sender = "fra@domæne.dk"
JMail.Subject = "" & emne & ""
JMail.Body = "<HTML>Hej " & brugernavn & "<br><br>" & finalbesked & "</HTML>"
countemail = countemail +1
JMail.AddRecipient email
JMail.Execute
JMail.clearrecipients()
Set JMail = Nothing
RS.MoveNext
Loop
RS.Close
MyConn.Close
Set MyConn = Nothing
Response.write "E-mail sendt til " & countemail & " bruger(e)"
%>
