Problema con bucle infinito

[haven]

Tengo una lista de correo la cual me envia un correo a todos los usuarios de esa lista, el problema es que no se que pasa con el código que lo que hago es mandar 5000 mensajes seguidos al primero que figura en mi base de datos (vaya, jeje, esto debe ser un mailbomber, coñe, pero no quiero eso,no veas que rato he estado para borrar los 5000 mensajes que e enviado a mi correo ). el código es este:


strAccessDB = "../administracion_file/entrada"


strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=JJ; DBQ=" & Server.MapPath(strAccessDB)

Set RSts = Server.CreateObject("ADODB.Recordset")
SQLts = "SELECT * FROM CORREO"
RSts.open SQLts, strCon

Do While Not RSts.eof

set mailObj = Server.CreateObject("CDONTS.NewMail")

sCuerpo = "DATOS"

mailObj.BodyFormat = 0
mailObj.MailFormat = 0

mailObj.From = "[email protected]"

mailObj.To = RSts("Email")

mailObj.Subject = "MENSAJE"
mailObj.Body = sCuerpo
mailObj.Send

Loop

Alguien sabe como solucionar esto????

Un saludo

[u_goldman]

Creo que te falta mover el rs no?

mailObj.To = RSts("Email")

mailObj.Subject = "MENSAJE"
mailObj.Body = sCuerpo
mailObj.Send

RSts.MoveNext
Loop

[haven]

, coñe, es verdad, ni me había dado cuenta, vale compañero un saludo.