ufff, perdon en vez de crear y destruir el objeto dentro del bule, hazlo solo una vez algo asi:
<%
SQL="SELECT mail FROM SUSCRIPCION order by id"
Set Rs = Conexion.Execute(SQL)
set objCDOMail = Server.CreateObject("CDONTS.NewMail")
Do while not rs.eof
Correo = Rs("mail")
HTML = HTML & "<html>" & chr(13)
HTML = HTML & "<head>" & chr(13)
HTML = HTML & "<title>Tu titulo</title>" & chr(13)
HTML = HTML & "<body>" & chr(13)
HTML = HTML & "Prueba" & chr(13)
HTML = HTML & "</body>" & chr(13)
HTML = HTML & "</html>" & chr(13
objCDOMail.From ="
[email protected]"
objCDOMail.To =Correo
objCDOMail.Subject = "Envio de mail"
objCDOMail.BodyFormat=0 'Estas dos línes
objCDOMail.MailFormat=0 'permiten formatear mejor el mensaje
objCDOMail.Body = HTML
objCDOMail.Send 'Lo Enmvio
rs.movenext
loop
Set objCDOMail = Nothing
%>
Suerte