Mail script, dræber server.

HAr dette mail script, der har en grim tendens til at ligge serveren ned. Ikke timeout, men død, fryser, kaput :) Det er den besked jeg ahr fået fra min host.

Spørgsmålet er så hvad jeg kan gøre for at optimere hastigheden.

Nogen der har et forslag?

---------------------KODEN-----------------------------

Set RS_Mail = Server.CreateObject("ADODB.RecordSet")
RS_Mail.open "Select * From [modtager] WHERE subs LIKE '%new%' order by id", Conn_mail,1,3

set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = "nyhedsmail@gamepad.dk"
msg.FromName = "Gamepad Live-Update"
msg.AddRecipient  "nyhedsmail@gamepad.dk"

Do while not RS_Mail.eof
If Trim(RS_Mail("mail")) <> "" then
  msg.AddRecipientBCC RS_Mail("Mail")
End If
RS_mail.movenext
loop

msg.Subject = "Gamepad.dk Nyhed: " & request.form("titel")
msg.Body = "<span style='font-family: verdana; font-size: 11px;'>Nyhed <b>" & Request.Form("teaser") & vbCrLf & "<br><br>" & vbCrLf & "<a href='http://gamepad.dk/indhold/nyhed.asp?id=" & id & "'><b>Læs nyheden her</b></a><br><br><i>Afsendt fra 'Mail-Robot' på GamePad.dk.</i></span>"

---------------------KODE SLUT--------------------------