He modificado unalinea y me ha quedado esto:
<%
Set Ob_Conn = Server.Createobject("ADODB.Connection")
Ob_Conn.Open "mibasededatos.mdb"
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
%>
Ahora si me manda el e-mail pero solo a la primera direccion de la tabla de la base de datos. A persar de mandarme el mail de da este error:
error '80040108'
/newsletter14.asp, line 22
Me pueden ayudar?Ya solo me queda eso por solucionar.
Laika