Enviar mas de un mail con Persist

[eduvivi]

Bueno ftmad y Epa2, y a todos los que me trataron de ayudar con esto ya lo solucione
EL tema es asi
Prepare una BD Access y le puse un campo que se llama mail, entonces en el Mail.AddAddress rs("mail"), lo mande a buscar todos los mails que estan en ese campo en vez de enviarlo por el formulario
Primero hice la conexion a la BD...
<%
Dim rs, Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("base.mdb")
strSQL = "Select * From tabla"

Set RS = Conn.Execute(strSQL)
%>
Despues...
<% do until rs.EOF%>

Despues...
puse todo lo del Persist MailSender
bla bla bla y el
Mail.AddAddress rs("mail")

y finalmente cierro todo...
<%
rs.MoveNext
loop
rs.close
set rs=nothing
Conn.Close
Set Conn = Nothing
%>

Bueno espero que me entiendan sino cualquier duda avisenme

Gracias de nuevo