Hola amigos, estoy utilizando un script para enviar un boletín de novedades a multiples direcciones de email.
El script funciona con una conexion a base de datos desde la cual extrae el nombre y email de cada usuario.
El problema es que al realizar la tarea solo recibe el boletín el ultimo registro de la base de datos. Ya me me he cerciorado de la selección del select y es correcta a que s e puede deber. No encuentro el error. Os dejo el codigo...
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../data/links.mdb"))
strSQL="Select * from links"
Set objRS = oConn.Execute(strSQL)
while (not objRS.Eof)
Server.ScriptTimeout=7200
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Mailer.FromName = "Servicio de Usuarios de Enoforum.com"
Mailer.FromAddress = "
[email protected]"
Mailer.Subject = request.form("asunto")
Mailer.RemoteHost = "mail.rapidsite.net"
Mailer.AddRecipient objRS("contacto"), objRS("email")
Mailer.BodyText = request.form("cabecera") & request.form("mensaje") & request.form("pie")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
if Mailer.SendMail then
' Message sent Ok, redirect to a confirmation page
Response.redirect "indextext-final.asp"
else
' Message send failure
Response.Write ("An error has occurred.")
' Send error message
Response.Write ("The error was " & Mailer.Response)
end if
%>