Mailist, cdont .. URGENTEEEEE PLEASE!

[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
%>