Mira te dejo esto a ver si te sirve...
<%@ Language=VBScript %>
<%
Set Mail= Server.CreateObject("Persits.MailSender" )
mail.Host ="un servidor de mail.com"
mail.From ="
[email protected]"
mail.FromName="tusitio.com"
mail.AddAddress "tudireccion de mail","Suscriptor"
mail.Subject = "news"
mail.AppendBodyFromFile "e:\sites\qyr\admin\news.htm"
mail.IsHTML =true
sql="select * from usuarios where news= 'S'"
set rs= session("dbc").execute(sql)
do while not rs.eof
%>
<table>
<tr>
<td>
<%
Response.Write rs("email")aca vas viendo las dir que van saliendo
mail.AddBcc rs("email") aca cargas todas las dir en el campo oculto
%>
</td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
mail.Send mandas le mail
%>
Nota el componente es gratuito y para algunas fuciones hay que garpar , pero la base es gratis y esta muy biuno tenes mucha ayuda etc
cualquier duda contactame y te doy una mano
saludos