ASP – Creazione di una mailing list | Pignatelli.com - programmazione e social media marketing

Home > ASP > ASP – Creazione di una mailing list

ASP – Creazione di una mailing list

31 Luglio 2008 Nicola Lascia un commento Vai ai commenti

Requisiti :

Server con IIS ( Internet Information Service) installato;
Creazione file .mdb (formato Access) per gli username e le password degli utenti autorizzati;
Installazione del componente CDONTS nel proprio Server;

In questo tutorial vi spiegherò come creare una propria mailing list personale. Dovete creare un file Access contenente un solo campo, chiamato Email, di tipo testo; il nome del file sarà mail_list.mdb.

Poi dovete creare un form contenente un campo testo di nome email dove l’utente possa inserire la sua mail; nell’action del form scrivete il nome della pagina a cui inviare i dati del form, nel mio esempio allegato sarà modifica_mailing_list.asp.

Ora passiamo alla creazione della pagina suddetta dove è inserito lo script.

Innanzitutto inseriamo i controlli di routine per vedere se l’e-mail inserita ha un formato esatto, e se non è già stata inserita nel database. Ecco il codice :

1. <% DIM email
2. email = Trim( Request(”email”) )
3. if ErroreEmail(email) = TRUE then
4. Response.Write ” ERRORE nel formato E-mail ! “
5. else
6. DIM ObjConn, ObjRS, SqlString
7. Set ObjConn = Server.CreateObject(”ADODB.Connection”)
8. ObjConn.Open “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” &
server.MapPath(”/database/mail_list.mdb”)
9. SqlString = “SELECT * FROM lista WHERE Email LIKE ‘” & email & “‘”
10. SET ObjRS = ObjConn.Execute(SqlString)
11. if NOT ObjRS.EOF then
12. Response.Write ” Sei già iscritto ! “
13. else
14. DIM ObjMail, testo
15. Set ObjMail = Server.CreateObject(”CDONTS.Newmail”)
16. ObjMail.From = email
17. ObjMail.To = “info@miosito.com”
18. ObjMail.Subject = “Iscrizione alla Mailing list di www.miosito.com”
19. ObjMail.Body = email
20. ObjMail.Send
21. SET ObjMail = NOTHING
22. SqlString = “INSERT INTO lista (Email) VALUES (’” & email & “‘)”
23. ObjConn.Execute SqlString
24. Set ObjMail = Server.CreateObject(”CDONTS.Newmail”)
25. ObjMail.From = “info@miosito.com”
26. ObjMail.To = email
27. ObjMail.Subject = “Iscrizione alla Mailing list di www.miosito.com”
28. testo = “Ti ringrazio di esserti iscritto alla mia mailing list.” &_
“Ora in poi sarai avvisato di ogni novità presente nel sito.” &_
vbCrLf & “Nel caso la tua e-mail sia stata iscritta per sbaglio ” &_
“ti chiedo scusa e gentilmente vorrei che facessi un replay ” &_
“a questo messaggio con nel soggetto scritto: Cancellazione ” &_
“dalla mailing list.” & vbCrLf & “Tanti saluti e grazie ancora.”
29. ObjMail.Body = testo
30. ObjMail.Send
31. SET ObjMail = NOTHING
32. Response.Write ” Iscrizione effettuata”
33. end if
34. ObjRS.Close
35. Set ObjRS = NOTHING
36. ObjConn.Close
37. Set ObjConn = NOTHING
38. end if %>