Problem med nyhetsbrev

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
%>