Listas de Correo en ASP y ACCESS

[leoninono2]

Hola a todos,

He creado una BD Access 2003 con la finalidad de enviar confirmaciones de que hay un nuevo registro en un boletin de noticias, esta base de datos contiene 2 campos:

un campo llamdo idEmail (autonumerico) y otro Email (texto, 50 caracteres)

Utilizo el componente de correo ASPEmail (Persits.MailSender) como gestor de correo (ya que és el único que proporciona mi proveedor de alojamiento - he probado los otros componentes CDO, CDONTS, CDOSYS y no funcionan - y cuando intento enviar los mensajes de correo se envian los mensajes a un unico registro, pero no al resto de los registros.
La funcion que utilizo para enviar correo es correcta y no me da problemas, a continuación detallo el código:

Dim objMail
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 LISTA_CORREO (Tengo esta opción desactivada)
objMail.AddBcc LISTA_CORREO (Aquí está el problema)
objMail.Subject = Aquí pongo el asunto
objMail.Body = Aquí pongo el cuerpo del mensajel
objMail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
Set objMail = Nothing

Bien, la variable LISTA_CORREO la saco de de un include al fichero que hace la conexión a la BD con el contenido de los registros con las direcciones email.

Este es el codigo de la conexión a la BD y donde genero la consulta:


<!--#include file="../alertas/DBConnect.inc" -->'Aquí tengo la conexión a la BD

Dim con, rs2, strSql
'Conecto a la BD
Set con = GetDBConnection()
'Genero consulta y obtengo direcciones email de la BD
strSql = "SELECT Email FROM Suscriptores" (Nombre del campo y la tabla de la BD)
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open strSql, con, 1, 2

<%
If Not rs2.EOF Then
Do While Not rs2.EOF
Dim LISTA_CORREO
LISTA_CORREO = rs2("Email")
rs2.MoveNext
Loop
End If
rs2.Close
Set rs2 = Nothing
con.Close()
Set con = Nothing

%>


Y así de esta forma solo consigo enviar a un unico registro, cuando la BD tiene más de uno.

No sé como salir de a quí. Agradecería vuestra ayuda.