Creazione e gestione di una semplice mailing list

20 marzo 2006

Amministriamo la nostra nuova mailing-list

Per prima cosa dobbiamo creare un breve script che provveda alle seguenti funzioni:

– stampare l’elenco degli utenti iscritti alla mailing-list

– permettere all’amministratore di cancellare un utente

Chiameremo questo file list.asp e, come detto, lo memorizzeremo nella cartella “admin”. Eccolo:

<!– #INCLUDE file = “login/riservato.asp” –>
<% response.buffer = True%>
<!– #INCLUDE virtual=”/source/moduli/store.asp” –>
<!– #INCLUDE virtual=”/source/moduli/adovbs.inc” –>
<%
‘elenco degli utenti registrati
%>
<html>
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=iso-8859-1″>
<title>Elenco utenti </title>
</head>
<body>
<p align=”center”><b>Elenco degli utenti</b></p>
<div align=”center”>
<table border=”2″ cellpadding=”2″ cellspacing=”0″>
<tr>
<td><p align=”center”>Indirizzi</td>
<td><p align=”center”>Cancella utente</td>
</tr>
<%
Dim objRec ‘oggetto recordset
‘creazione e apertura recordset
Set objRec = Server.CreateObject (“ADODB.Recordset”)
objRec.open “mailing_list”, objConn, adOpenKeyset, _
adLockReadOnly, adCmdTable
‘cicla i records
While Not objRec.EOF
‘tabella degli indirizzi
Response.Write(“<tr><td><p align=””center””><a href=””mailto:”)
Response.Write(objRec(“EMail”))
Response.Write(“””>”)
Response.Write(objRec(“EMail”))
‘creazione link ai record da cancellare
Response.Write(“</a></td><td><p align=””center””><a href=””delete.asp?id=”)
Response.Write(objRec(“ID”))
Response.Write(“””><b>X</b></a></td></tr>”)
objRec.MoveNext
Wend
‘chiusura e distruzione recordset e connessione
objRec.Close
Set objRec = Nothing
objConn.Close
Set objConn = Nothing
%>
</table>
</div>
<%
response.write(“<br/><br/><div align=’center’>
<a href=’default.asp’>Torna alla pagina di amministrazione</a></div>”)
%>
</body>
</html>

Il file è molto semplice e non rimane molto da aggiungere. Abbiamo creato la tabella contenente l’elenco degli indirizzi, e per ciascuno di essi abbiamo creato un link alla procedura per cancellarlo.

Anche ogni indirizzo è un link: per mezzo di un <a href=”mailto: ……..”> l’amministratore potrà anche inviare un messaggio a un singolo utente, con un semplice click.

Creiamo ora lo script per cancellare un utente, che è collegato al file list.asp utenti dal link appena creato. Chiameremo questo file delete.asp. È brevissimo:

<!– #INCLUDE file = “login/riservato.asp” –>
<!– #INCLUDE virtual=”/moduli/store.asp” –>
<!– #INCLUDE virtual=”/moduli/adovbs.inc” –>
<%
‘cancellazione utente
ID = Request.QueryString(“id”)
sql = “delete * from mailing_list where id = “&id&””
objConn.execute sql
objConn.Close
Set objConn = Nothing
response.write(“<div align=’center’><b>Record eliminato</b></div>”)
response.write(“<div align=’center’>
<a href=’default.asp’>Torna alla pagina di amministrazione</a></div>”)
%>

Se vuoi aggiornamenti su Creazione e gestione di una semplice mailing list inserisci la tua e-mail nel box qui sotto:
 
X
Se vuoi aggiornamenti su Creazione e gestione di una semplice mailing list

inserisci la tua e-mail nel box qui sotto:

Ho letto e acconsento l'informativa sulla privacy

Acconsento al trattamento di cui al punto 3 dell'informativa sulla privacy