Urgente PARA ASTON, error '80040108'

Laika · #1 (**permalink**) 06/03/2002, 03:32

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>Ho la que tal te va...</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

Korrikalari · #2 (**permalink**) 06/03/2002, 05:51

Hola Laika:

Ya que Aston debe andar bastante liado, lo intentaremos los demas...

Cuando dices: "Me sale ese error...", a qué error te refieres ? porque no lo veo...

Korrikalari

Aston · #3 (**permalink**) 06/03/2002, 07:20

Pues sí que tiene razón Korrikolary, yo tampoco diviso el error por ninguna parte.

Pon el error que te da a ver si pudiéramos ayudarte. Un saludo. :)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

Laika · #4 (**permalink**) 06/03/2002, 09:12

Gracias por vuestra ayuda amigos, este es el error que me da:

error '80040108'
/newsletter15.asp, line 22

Y me envia el mail solo al primero :(

Haber si me podeis dar con la solucion.
Ante todo, Muchas gracias

Laika

Korrikalari · #5 (**permalink**) 06/03/2002, 10:53

Hola de nuevo Laika:

Parece que el error se produce en el Rs.movenext

Veo que instancias la conexión, pero no el recordset. Prueba a insertar (antes de crear el recordset):

set Rs = Server.CreateObject("adodb.recordset")

Comprueba asimismo que el contenido del recordset es correcto antes de probar enviar los e-mails (por ir descartando problemas, digo...).

Korrikalari

Laika · #6 (**permalink**) 08/03/2002, 06:53

Hola amigos:

Ayer no puede hacer nada. Haber si durante el dia de hoy lo soluciono.

Sino me funcionara con lo que me has dicho,
¿Como puedo mirar si el contenido del recordset es correcto?

Gracias por vuestra ayuda
Laika ;)

Laika · #7 (**permalink**) 08/03/2002, 13:02

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>Ho la que tal te va...</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

Laika · #8 (**permalink**) 10/03/2002, 06:43

Ayuda por fisss :( :(

Sergiete · #9 (**permalink**) 11/03/2002, 04:32

No lo he mirado mucho, pero "RS.Movenext" no debería ser "RS.Movenext()". A ver si es eso.

Saludos.

Laika · #10 (**permalink**) 11/03/2002, 09:36

Hola :(

Tampoco me funciona con eso, me mandaelmail solo al primero de la base de datos. Da este error:

error '80040108'
/newsletter22.asp, line 22

El codigo que me ha quedado es elsiguiente:

<HTML>
<head>
<TITLE> Email Masivo</TITLE>
<title>Mail</title>
</head>

<BODY>

<%
Set Ob_Conn = Server.Createobject("ADODB.Connection")
Ob_Conn.Open "basedatos"
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>Ho la que tal te va...</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
%>
</body></html>

Haber si alguien puede dar con la solucion.
Gracias
Laika