Adesso apriamo la pagina inviaPassw.asp.

Creiamo un recordset (Recordset1)
andiamo in vista avanzata e nella scheda SQL scriviamo:

SELECT *
FROM Tabella1
WHERE email LIKE 'var'

quindi aggiungiamo la variabile var

var        1      Request("email")

Adesso andiamo in vista codice e scriviamo, subito dopo il codice del recordset, il seguente codice:

<% If (Recordset1.EOF) Then %>
<% Response.Redirect "vuoto.asp" %>
<% end if %>

che significa:
se il recordset Recordset1 è vuoto, vai alla pagina vuoto.asp.

Nella pagina vuoto.asp scriveremo:
Il tuo nominativo non è presente nel database.

In questo modo se un utente inserisce un indirizzo e-mail sbagliato o che non risulta nel DB, riceve il messaggio appena visto.

Adesso inseriamo il codice che riguarda il componente CDONTS:

<% if (cStr(Request("Submit")) <> "") Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "sitoRegistrazione"
objCDO.To = Recordset1("email")
objCDO.Subject = "invio password"
objCDO.Body = " Salve " & Recordset1("nome") & VbCrLf &_
"in seguito alla tua richiesta di invio della password " & VbCrLf &_
"la tua password è: " & Recordset1("password") & VbCrLf & VbCrLf & VbCrLf &_
"-----------------------" & VbCrLf &_
"nome del sito" & VbCrLf &_
"saluti" & VbCrLf &_
"-----------------------"
objCDO.Send()
Set objCDO = Nothing
Response.Redirect("grazie2.asp")
End If
%>

Spieghiamo il codice:

if (cStr(Request("Submit")) <> "") Then
questo significa: processa il codice sottostante se Submit è diverso da ""(nulla).
Quindi se il pulsante Submit (della pagina IFrame2.asp) è stato premuto, si esegue questo codice.

Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "sitoRegistrazione"
objCDO.To = Recordset1("email")
objCDO.Subject = "invio password"
questo è il normale codice che si scrive quando si usa CDONTS;
sitoRegistrazione è l'indirizzo e-mail del nostro sito
Recordset1("email") è l'indirizzo estratto dal database, e corrisponde (se esiste) a quello inserito dall'utente nel form di richiesta.
"invio password" è l'oggetto del messaggio

Adesso analizziamo il corpo del messaggio:
abbiamo scelto questo modo, che ci permette di scrivere diverse righe nel corpo del messaggio

" Salve " & Recordset1("nome") & VbCrLf &_
Il testo tra le doppie virgolette "Salve" viene scritto come testo, il simbolo & unisce Recordset1("nome") al codice precedente, mentre VbCrLf &_ significa un'andata a capo.
l'ultima riga del corpo del messaggio
"-----------"
non deve contenere il codice VbCrLf &_

In questo modo, inserendo più righe diamo un aspetto ordinato al messaggio, ed utilizziamo
Recordset1("nome") per salutare l'utente e
Recordset1("password") per inviargli la password.

objCDO.Send() invia l'email
Set objCDO = Nothing libera le risorse

Quindi reindirizziamo l'utente alla pagina grazie2.asp, nella quale un messaggio lo avvisa che la password gli è stata inviata,

Infine chiudiamo il codice con end if (che avevamo aperto con If ..... Then)