Suponiendo que tenés un campo con el email llamado "email", recorrés el récordset y enviás un mail a cada uno. No tengo a mano un código de envío de correos con cdont, pero a manera de ejemplo servirá:
Set oMail = Server.CreateObject ("CDONTS.NewMail")
Sender = "
[email protected]"
Titulo = "prueba"
Texto = "Es sólo una prueba"
Do while not RS.EOF
Recipient = RS("Email")
oMail.Send Sender, Recipient, Titulo, Texto
RS.MoveNext
Loop
Set oMail = Nothing