Guarda, è molto semplice.

<%
'Apri la connessione al databese
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../mdb-database/mailing.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")
Set RS = Conn.Execute("SELECT * FROM iscritti ORDER BY id")

'Gli dici che deve proseguire fino a quando non finisce il file
Do while NOT RS.EOF

Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "mailing@tuosito.it"
Mail.To = RS("email") 'Estrae le email dal db
Mail.Subject = "L'oggetto"
Mail.Body = "Il testo della mail"
Mail.importance = 0
Mail.Send
Set Mail = Nothing

'Passi al prossimo
RS.MoveNext
loop

'liberi le risorse
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>

Poi puoi fare in modo di gestire la mailing dal web in modo che diventa tutto più semplice ;)
Spero di esserti stato d'aiuto
Ciao

--
Antonio G.
http://www.antoniog.it
antonio_giulian@hotmail.com