JMail - Servertimeout
I får lige koden til at starte med.<%
Set RS1 = Server.CreateObject("ADODB.RecordSet")
RS1.open "select count(*) as ialt From [modtager]", Conn_crew
Do while not RS1.eof
%>
<font>Der er ialt <%=RS1("ialt")%> tilmeldte til brevet.</font>
<%
RS1.movenext
loop
RS1.close
set RS1 = nothing
%>
<%
ElseIf Request.QueryString("Action") = "send" Then
'Henter email adresser og looper dem!
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.open "Select * From [modtager] order by id", Conn_crew
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = "nyhedsmail@gamepad.dk"
msg.FromName = "Gamepad Nyhedsbrev"
msg.AddRecipient "nyhedsmail@gamepad.dk"
Do while not RS.eof
If Trim(RS("mail")) <> "" then
msg.AddRecipientBCC rs("Mail")
End If
rs.movenext
loop
msg.Subject = request("titel")
msg.Body = "<html><body bgcolor='#666666' text='#333333' link='#999999'><table width='800' border='0' cellspacing='0' cellpadding='6' align='center'><tr><td bgcolor='#FFFFFF'><table width='775' border='0' cellspacing='6' cellpadding='6' align='center'><tr><td><p align='center'><img border='0' src='http://www.gamepad.dk/indhold/img/gamepadlogoWhite.gif''></p><p align='left'>" & request("besked") & "</p><p><center><b><a href='http://www.gamepad.dk/indhold/afmeld.asp'>Du kan afmelde dig her</b></a></center></p></td></tr></table></td></tr></table></body></html>"
if not msg.Send("pasmtp.tele.dk") then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
Response.Write "Mailen er afsendt korrekt<br>"
end if
%>
------------------------------------
Server Timeout er sat til 1000 - men det hjælper ikke rigtigt da vores udbyder har sat et lavere max på deres server.
Mit spørgsmål er ganske simpelt hvad kan man gøre, for at optimere hastigheden og undgå dette?
