Problema com codigo de news

Fiz uma newsletter que pega emails cadastrados em um BD para envio de novidades,são mais de 400 emails cadastrados.Estou utilizando o componente: SoftArtisans.SMTPMail O Problema é que ao enviar a news ou há uma demora muito grande no recebimento ou dá um erro de script time outComo resolvo isso ?O script esta abaixo:<% assunto = Request.form("assunto")mensagem = Request.form("texto")Texto = mensagem &"<br>"set conexao = Server.CreateObject("ADODB.Connection") conexao.Open MM_Con_bd_STRINGstringSQL="Select * From Cadastro_emails" set registros = conexao.execute(stringSQL) Do While Not registros.eof Destino = registros("Email") set Mailer = Server.CreateObject("SoftArtisans.SMTPMail") Mailer.FromName = "contato@recantoboavista.com.br"Mailer.Subject = assuntoMailer.HTMLText = TextoMailer.AddRecipient DestinoMailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.SendMail registros.movenext LoopRegistros.Close set Registros = nothing Conexao.Close set Conexao = nothing response.write"<script>alert('Newsletter enviada com sucesso');location.href='newsletter.asp';</script>"%> agradeço a quem puder me ajudar .