Foros del Web » Programando para Internet » ASP Clásico »

Problema al enviar un mail en un sistema de boletines

Estas en el tema de Problema al enviar un mail en un sistema de boletines en el foro de ASP Clásico en Foros del Web. Tengo una base de datos en MySQL en la que guardo e-mails y paginas en html. La idea es intentar un sistema de boletines de ...
  #1 (permalink)  
Antiguo 05/09/2005, 05:13
 
Fecha de Ingreso: marzo-2005
Mensajes: 197
Antigüedad: 19 años, 3 meses
Puntos: 1
Problema al enviar un mail en un sistema de boletines

Tengo una base de datos en MySQL en la que guardo e-mails y paginas en html. La idea es intentar un sistema de boletines de tal modo que se envie siempre el ultimo boletin a todos los e-mails de la base de datos, pero al intentarlo, me da este error:

Cita:
Persits.MailSender.4 error '800a0006'

501 Syntax error in parameters or arguments

/conexion.asp, line 50
El código de mi página es este:

Cita:
<%
dim conn
dim conn_string
dim sql1, sql2, sql3

Set conn = Server.CreateObject("ADODB.Connection")
conn_string = "Driver={MySQL ODBC 3.51 Driver};Server=ipserver;Port=3306;Database=db;Uid= user;Pwd=pass;Option=3;"
conn.Open(conn_string)

sql1 = "SELECT MAX(IdMensaje) FROM MailingAUsuarios"
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1 = conn.Execute(sql1)
rs1.MoveFirst()

while not rs1.EOF
sql2 = "SELECT * FROM MailingAUsuarios WHERE IdMensaje="&rs1("MAX(IdMensaje)")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs2 = conn.Execute(sql2)
rs2.MoveFirst()

while not rs2.EOF
sql3 = "SELECT * FROM mailing2"
Set rs3 = Server.CreateObject("ADODB.Recordset")
Set rs3 = conn.Execute(sql3)
rs3.MoveFirst()

while not rs3.EOF
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.dominio.com"
Mail.FromName = "dominio.com"
Mail.Subject = rs2("MensajeTEXT")
Mail.IsHTML = true
Mail.Body = rs2("MensajeHTML")
Mail.AddAddress rs3("email")
Mail.Send
rs3.MoveNext()
wend

rs2.MoveNext()
wend

rs1.MoveNext()
wend

conn.close
set conn = nothing
%>
La línea 50 es en concreto esta:

Cita:
Mail.AddAddress rs3("email")
¿Alguien tiene alguna idea de qué es lo que me está fallando o de qué es lo que puede fallar?

Muchísimas gracias por adelantado.
  #2 (permalink)  
Antiguo 05/09/2005, 06:28
Avatar de PMP
PMP
 
Fecha de Ingreso: febrero-2003
Ubicación: Chacabuco - Buenos Aires
Mensajes: 214
Antigüedad: 21 años, 3 meses
Puntos: 1
No probaste antes de la linea 50 poner un Response.write(rs3("email")) para ver si tiene algun valor? porque por ahi no tiene ningun valor o es nulo.

Saludos
  #3 (permalink)  
Antiguo 05/09/2005, 08:18
 
Fecha de Ingreso: marzo-2005
Mensajes: 197
Antigüedad: 19 años, 3 meses
Puntos: 1
Sí, le puse el response.write y el registro que llega es un e-mail válido, de ahí que no entienda el que el script no funcione.

Gracias de todos modos por tu colaboración.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:06.