'connessione al database
Set objConn = Server.CreateObject("ADODB.Connection")
objRS = "dsn=Database_Nominativi"
objConn.Open objRS
Set RSEmail=objConn.Execute("Select E-mail From Nominativi")

'loop per prendere tutte le mail nella tabella
Do While not RSEmail.eof
  'invio e-mail
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From="INDIRIZZO_MITTENTE"
  objMail.To=rsEmails("EmailAddress") 'Indirizzo del destinatario estratto dal database
  objMail.Subject="OGGETTO_DELLA_MAIL"
  objMail.Body="TESTO_DELLA_MAIL"
  objMail.importance=0
  objMail.Send
  Set objMail = nothing
  rsEmail.movenext
loop

set rsEmail = nothing
objConn.close
Set objConn = nothing