He modificado el codigo:
<%
Set Ob_Conn = Server.Createobject("ADODB.Connection")
Ob_Conn.Open "basedatos"
set Rs = Server.CreateObject("adodb.recordset")
Dim Temp
Rs.Open("SELECT * FROM mail")
set objCDOMail = Server.CreateObject("CDONTS.NewMail")
Do while not Rs.eof
Correo = Rs("mail")
objCDOMail.From ="Laika@maestrosdelweb"
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 DA ESTE ERROR :
ADODB.Recordset error '800a0e7d'
Operación no permitida en un objeto que hace referencia a una conexión cerrada o no válida.
/newsletter20.asp, line 16
