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