Yo lo haría asi ojala me entiendas:
<%
Set rst = Cnn.Execute(sentenciaSQLMails)
Do while not rst.EOF
'Tomo el valor de la dirección de Mail
Set rst2 = Cnn2.Execute(sentenciaSQLNoticias)
Do while not rst2.EOF
'Tomo el valor de las noticias a enviar
'Construyo un HTML con las Noticias
mensaje = "<html><body><table><tr><td>" & rst2("campotitulo") & "</td></tr>"
mensaje = "<tr><td>" & rst2("camponoticia") & "</td></tr>"
armo_html_noticias = armo_html_noticias & mensaje
rst2.MoveNext
Loop
noticia_final = armo_html_noticias & "</table></body><html>"
'Envio en el cuerpo del mail la variable noticia_final, a la direccion de mail rst("mail") el Mail
' En este caso ocupamos el objeto CDO para envio de mail en asp.
Set oMail = Server.CreateObject("CDO.Message")
' asignamos los valores a las variables
para = rst("mail")
de = "
[email protected]"
asunto = "Boletín de Noticias"
mensaje = noticia_final
' ocupamos las variables
oMail.From = de
oMail.To = para
oMail.Subject= asunto
oMail.htmlBody = mensaje
oMail.Send
Set oMail = Nothing
rst.MoveNext
Loop
%>
Eso deberia funcionar. el html de ejemplo es algo básico pero te puede ayudar.
Suerte.