una funzione che ti manda la mail tramite form (ce ne sono tantissime)
e quando mandi la mail te la metti in un db con una insert.
ecco una funzione che uso spesso per le mail:
codice:
function inviamail(a, testo, oggetto, mittente)
		'invia una mail ad un contatto 'a' con testo 'testo',  oggetto 'oggetto' ad un contatto 'mittente'
  Set objMail = server.createObject("CDONTS.NewMail")
  'Immissione del destinatario 
  objMail.To = a
  'immissione del mittente 
  objMail.From = mittente
  'immissione del soggetto della mail
  objMail.Subject = oggetto
  'immissione del testo della mail
  objMail.Body = testo
  objMail.BodyFormat = 0
  objMail.MailFormat = 0
  objMail.Send()
end function
dopodichè fai:
codice:
query="insert into tuodb (mail) values ('"&a&"')"
dove a è il destinatario della mail