<table border=0 align="center">
<tr>
<td>N°</td>
<td>Nome</td>
<td>Cognome</td>
<td>Telefono</td>
</tr>
<%
'istruzione sql
sql=" SELECT * FROM tabella ORDER by id"
'apro la connessione
Set strConn = Server.CreateObject("ADODB.Connection")
urldb = Server.MapPath("/mdb-database/db.mdb")
Conn_String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & urldb
strConn.open Conn_String
'faccio eseguire l'istruzione sql
Set rs=strConn.Execute(sql)
do while not rs.EOF
%>
<tr>
<td><%response.write (rs("id")) %></td>
<td><%response.write (rs("nome")) %></td>
<td><%response.write (rs("cognome")) %></td>
<td><%response.write (rs("telefono")) %></td>
</tr>
<%
'fa scorrere tutto il database
rs.MoveNext
loop
rs.Close
strConn.Close
Set strConn=nothing
set cn=nothing
%>
</table>