codice:
<%
'Connessuone al Database Access
Set Connessione = Server.CreateObject("ADODB.Connection")
Connessione.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("/cartella/database.mdb")
'Apertura tabella del Database
Set Record = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM tabella"
Record.Open Sql, Connessione
%>
<table>
<%
'Fino a che i Record non sono finiti
Do While not Record.EOF
%>
<tr>
<td><%=Record("id")%></td>
<td><%=Record("chiave1")%></td>
<td><%=Record("chiave2")%></td>
</tr>
<%
'Prossimo Record e Ripeti
Record.MoveNext
Loop
%>
</table>