<table border="2" cellpadding="2" cellspacing="0">
<tr>
<td>Società</td>
<td>
<p align="center">Indirizzi
</td>
<td>Tel</td>
<td>
<p align="center">Cancella utente
</td>
</tr>
<%
Dim objRec
'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>")
Response.Write(objRec("Societa"))
Response.Write("<td><p align=""center""><a href=""mailto:")
Response.Write(objRec("EMail"))
Response.Write(""">")
Response.Write("<tr><td>")
Response.Write(objRec("Tel"))
'creazione link ai record da cancellare
Response.Write("</a></td><td><p align=""center"">
X</td></tr>")