Mailist, cdont .. URGENTEEEEE PLEASE!

[Canicasjr]

Hola amigos, disculpen, saben que estoy haciendo una pagina en la cual existen personas que se inscriben y a los que luego cada cierto tiempo quiero enviarles informacion acerca de mi sitio web, todos estan en una base de datos access y todo eso ...

pero quiero saber quien tiene por ahi un administrador de mailist ... en donde pueda crear el email y enviarlo a todos los usuarios de mi base...

en fin.. espero que me puedan ayudar, es super urgenteee

gracias a todos..

saludos
alejandro !!

[mars]

Hola... Aquí te va... esto va en un .asp y recibe los datos de un formulario... la base de datos la recibimos con todo y extensión: C:\directorio\base.mdb o bien, pon directamente todos los datos, si nunca cambian

<%
DIM Sender,Titulo,BD,Texto

'*** DEFINIMOS LOS DATOS BASICOS DEL MAIL ***
Sender = Request.Form("Sender")
Titulo = Request.Form("Titulo")
Texto = Request.Form("Mensaje")
BD = Request.Form("BD")

'*** ABRIR LA BASE DE DATOS ***
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & BD

Set rs = Server.CreateObject("ADODB.RecordSet")

'*** CREAMOS LA SENTENCIA SQL PARA EXTRAER LAS DIRECCIONES DE LA TABLA USUARIOS ***
sSQL = "Select * From Usuarios"
rs.Open sSQL, oConn, 3, 3

'*** REVISA LA EXISTENCIA DE CONTACTOS EN LA TABLA ***
If rs.eof and rs.bof Then
Response.Write "<BR><BR><center><b>No hay Contactos en tu Lista..."
Else
'*** HACEMOS BUCLE PARA ENVIAR LOS MAILS ***
do while not rs.EOF
'*** CREAMOS EL OBJETO MAIL ***
Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.MailFormat = 0
Recipient = rs.Fields ("Email")

oMail.Send Sender, Recipient, Titulo, Texto

Set oMail = Nothing

rs.MoveNext
Loop

Response.Write "<BR><BR></b>El Mensaje fue Enviado a Toda tu Lista..."

rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
End If
%>

[mars]

Perdón... me faltó comentarte un detalle... la base de datos debe contener un campo "Email" tipo texto, en el cual deben estar las direcciones de correo... Y obvio... todos los demás campos que quiereas

[Joselete]

Mars, gracias por el código... pero:

Me da este error el PWS...


ADODB.Recordset error '800a0e7d'

No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es válida en este contexto

uso:

DIM Empresa,Persona,Comentario,Email

Empresa = Request.Form("Empresa")
Persona = Request.Form("Persona")
Comentario = Request.Form("Comentario")
Email = Request.Form("Email")

set oConn=Server.CreateObject("ADODB.Connection")
'oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Data/clientes.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")

sSQL = "Select * From Usuarios"
rs.Open sSQL, oConn, 3, 3 ------> y aquí me dá el error

Alguna sugerencia??


Gracias!!

[mars]

Hola!!!

Está raro el mensaje porque es como si no tuvieras los permisos en el archivo para ejecutar la acción...

Checa probar con:

oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./BDForo\ForoCiencia.mdb")

O también cambia los cursores a:

RS.Open sql, oConn,3,1


Saludos!

[Joselete]

hey Mars!...

Cambié los cursores a lo q me dijiste y ahora...


ADODB.Recordset error '800a0bb9'

Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.



Aiiiiii!!! voy a probar la conexion con la BD

[Joselete]

con la otrs opción que me diste, sigue dando el mismo error q cambiando los cursores...

UFFFFFF!!!

Una ayudita please