Hola leoninono2:
Según está el bucle, el valor de LISTA_CORREO se pisa con el valor del siguiente correo en cada vuelta, con lo que al final, tendrá el valor del último registro de la tabla.
Por otra parte, AddAdress, AddBcc, etc. tienen dos argumentos como máximo: email y nombre -que es opcional. Si quieres enviar el correo a varios, tendrás que invocar a AddAdress, AddCc, etc. tantas veces como destinatarios tenga el mail:
AddAdress "
[email protected]", "pepe"
AddAdress "
[email protected]", "pepe2"
...
Pero como estás haciendo una lista de correo, no interesa que los destinatarios vean en el mail toda la lista de correos (por la L.O.P.D.), sino que solo debe aparecer el correo del destinatario, por lo que la mejor manera de hacerlo es con un procedimiento para el envío del correo, que se invocará en cada vuelta del bucle que recupera todas las direcciones de correo de la tabla. Es decir:
...
do while not rs2.EOF
call sendMail("pepe pérez", "
[email protected]", "nombreDestino", rs2(0), "asunto", "body")
rs2.moveNext
loop
...
sub sendMail(nombreDe, mailDe, nombrePara, mailPara, asunto, body)
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.FromName= "Aquí pongo el Remitente"
objMail.host= Aquí pongo el Host
objMail.Port= Aquí pongo el puerto
objMail.Username = Aquí pongo el nombre de usuario de la cuenta de correo
objMail.Password = Aquí pongo el password
objMail.addAddress mailPara, nombrePara
objMail.Subject = asunto
objMail.Body = body
objMail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
Set objMail = Nothing
end sub
Si hay muchos correos en la tabla, mejor que mail.send, usa mail.sendToQueue ó mail.queue (dependiendo de la versión de ASPEmail que use tu hosting) ya que asi el servidor mandará los envíos a una cola en vez de quedar a la espera de mandar todos los mails, lo cual hará que nada más dar al botón de envío, el servidor te de respuesta y no se quede colgado hasta acabar con todos los envíos.
Y una nota sobre el diseño de la tabla de correos: yo no usaría un campo autonumérico y otro con el mail, sino que usaría solo el mail como clave principal. De este modo, te aseguras de que cada mail aparece solo una vez y por tanto, se envía un solo correo a cada destinatario (evitando así inconsistencias) y si quieres, añade un campo de nombre para que al enviar el correo al destinatario le llegue con su nombre y no parezca SPAM.
Espero haberme explicado bien.
Saludos!!