Hola, me estoy volviendo loco con este error. Mi código es el siguiente:
<%
Set Ob_Conn = Server.Createobject("ADODB.Connection")
Ob_Conn.Open "basededatos"
Set Rs=Ob_Conn.Execute ("SELECT * FROM mail")
set objCDOMail = Server.CreateObject("CDONTS.NewMail")
Do while not Rs.eof
Correo = Rs("mail")
objCDOMail.From ="
[email protected]"
objCDOMail.To =Correo
objCDOMail.Subject = "Envio de mail"
mensaje = "<html><body><b><i>Ho la que tal te va...</i></b></body></html>"
objCDOMail.Body = mensaje
objCDOMail.BodyFormat=0 'Estas dos línes
objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje
objCDOMail.Send 'Lo Enmvio
Rs.Movenext
Loop
Set objCDOMail = Nothing
%>
Me sale ese error y solo me manda el mail al primer registro del campo mail que hay en mi tabla. :(
Ayuda porfavor
Saludos
Laika