Credo sia corretto però inviare al nostro nuovo utente un messaggio di posta elettronica che indica l'avvenuta registrazione indicando nel corpo della mail i dati forniti nella pagina di registrazione. In questo modo, l'utente può usufruire di un "promemoria" dei dati inserti.
098: on error resume next
099: Set mail = Server.CreateObject("CDONTS.NewMail")
100: strFrom = "Webmaster of innovatel.it<webmaster@innovatel.it>"
101: mail.From = strFrom
102: mail.to = strMail
103: strBody ="<br>Dati riassuntivi registrazione messaggistica<br><br>"
104: strBody = strBody & "_ username: <b>" & strLogin
&"</b><br>"
105: strBody = strBody & "_ password: <b>" & strCode
&"</b><br>"
106: strBody = strBody & "_ Indirizzo email: <b>"
& strMail &"</b><br><br>"
107: strBody = strBody & "Registrazione effettuata il: "
& now() &"<br>"
108: strBody = strBody & "Indirizzo I.P. : "& request.ServerVariables("REMOTE_ADDR")
&"<br><br>"
109: strBody = strBody & " *** Lo staff di innovatel.it *** "
110: mail.Body = strBody
111: mail.Subject = "Registrazione Messaggistica"
112: mail.mailFormat=0
113: mail.bodyFormat=0
114: mail.Send
115: set mail = nothing
L'invio della mail è realizzato col CDONTS. Alla riga novantanove vi è la dichiarazione dell'istanza dell'oggetto. Alla riga cento vi è la dichiarazione del mittente (da modificare quando si utilizza lo script
Una volta completato l'invio della mail si manda in modo automatico l'utente
alla propria pagina di messaggi personali.
117: 'Reindirizzamento utente alla pagina dei messaggi
118:
119: response.cookies("messaggeria")("login") =
strLogin
120:
121: response.redirect "messaggi.asp"
Sarebbe opportuno, prima di effettuare il redirect alla pagina messaggi.asp, "inviare" un messaggio all'utente per ringraziarlo della registrazione. Fa sempre piacere, non credete? Non ho inserito di proposito il codice di questo messaggio di ringraziamento per due motivi:
- Desidero guidarvi passo-passo nella realizzazione del progetto e quindi voglio evitare di esagerare con "le dosi" di codice.
- Se vi indicassi tutto il codice necessario per aver il progetto finito,
soffocherei la Vs. fantasia ed inventiva di programmatori.