Script timed out

[Mickel]

enviarmail.asp:
<%
sLetra=Request("letra")
if len(sletra)=0 then sletra="A"
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open strConnection
sSql="Select mails,asunto,mensaje from boletin where mails like '" & sletra & "%'"
Set registros = conexion.Execute("SELECT * FROM boletin")
Do While Not registros.EOF
Recipient =registros.Fields("mails").Value
Sender = "mi correo"
titulo = Request.Form("asunto")
texto= Request.Form("mensaje")+"by:<br>splashman"
Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.MailFormat = 0
oMail.Send Sender, Recipient, titulo, texto
Set oMail = Nothing
registros.MoveNext
loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
if chr(sletra)<90 then
sUrl="enviarmail.asp?letra=" & chr(sletra)+1
Response.Redirect sUrl
else
Response.Write "Correos Enviados por Completo!"
end if
%>