Jag har ett nyhetsbrev i asp som använder sig av Jmail.
Jag har ca. 500 prenumeranter.
Problemet är att väldigt ofta när jag skickar iväg ett nyhetsbrev så kommer det bara till de 200-300 första prenumeranterna.
Det ska komma ett meddalnde att "Brevet är skickat", men ofta så tar det väldigt lång tid och till slut så blir det "sidan kan inte visas..." innan brevet hunnit skickas till alla.
Finns det något sätt jag kan förbättra i koden för att göra det stabilare?
Koden som skickar ser ut såhär:
<%
response.buffer = true
Server.ScriptTimeout = 1000000
dim useraction,subject,comm,emails,conn,rs,sql
dim totalMails
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT emails from emails"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount
useraction=request("action")
select case useraction
case "send"
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
SQL = "SELECT emails from emails order by id"
rs.open sql,conn
do while not rs.eof
emails=rs("emails")
subject = request.form("subject")
comm = request.form("comm")
Dim msg
Set msg = Server.CreateObject("JMail.SMTPMail")
msg.ServerAddress = "smtp.digikom.net"
msg.AddRecipient emails
msg.Sender = "mail@www.com"
msg.SenderName = "Homepage"
msg.Subject = subject
msg.body = comm
msg.Execute
rs.movenext
loop
set msg = nothing
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write "<script>alert('Brevet är skickat!');"
response.write "location.href='send.asp'</script>"
response.end
end select
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
------------------
MVH, Korak
www.eskobar.nu