Buenas, que tal? estoy tratando de adpatar un codigo que ví en este foro de envío de emails a una lista de correos que tengo en una base de datos, el script original esta en Aspmail y yo uso CDONTS. Me quedo así pero me da error
<%
Set oConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("../midata/lista.mdb")&";"
sql = "select * from Suscriptores"
rs.open sql, oConn, 1, 2
Dim Email, OBJ_EMAIL
Email = rs("Email")
If Not rs.EOF Then
Do While Not rs.EOF
rs.MoveNext
Loop
End If
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
OBJ_EMAIL.From = "[email protected]"
OBJ_EMAIL.To = Email
OBJ_EMAIL.Subject = "Lista de correo"
OBJ_EMAIL.Body = "Mensaje" & vbcrlf&_
OBJ_EMAIL.Send
Set OBJ_EMAIL = Nothing
Response.Redirect "confirmacion_envio.asp"
rs.Close
Set rs = Nothing
oConn.Close()
%>
Muchas gracias de antemano
