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.
097: 'Invio una mail con i dati appena immessi
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). Nella riga successiva viene detto all'istanza dell'oggetto CDONTS il mittente della mail. Alla riga centodue vi è la comunicazione all'oggetto mail (istanza di CDONTS) della mail di destinazione (quella fornita dall'utente in fase di registrazione). Le sette righe successive, compongono il testo della mail indicando il nome utente, la password e la mail fornita in fase di registrazione. In aggiunta vi è anche l'indirizzo IP e la data ed ora della registrazione. La data ed ora indicate nella mail sono quelle relative al server presso il quale è presente il nostro servizio. Alla riga centodieci vi è la comunicazione all'oggetto mail del corpo del messaggio di posta elettronica (variabile strBody). Una volta finito di completare l'oggetto mail, si effettua l'invio della stessa.
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.