<html>
<head>
<title></title>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:/mdb/db_pietrapinta.mdb")
set rs1 = server.createobject("ADODB.recordset")
sql1 = "select * from T_menu"
rs1.open sql1, objconn
%>
</table>
<table width="100%" border="0" bgcolor="red">
<tr align="center">
<th>Menu</th>
</tr>
</table>
<table border="1" cellspacing="1" cellpadding="1" align="center" bordercolor="blue">
<td>
Antipasto</td>
<%
do while not(rs1.eof)
%>
<tr>
<td><font size="2" font face="arial"><%response.write(rs1("Antipasto"))%></font></td>
<td><font size="3" font face="arial"><%response.write(rs1("prezzo"))%></font></td>
</tr>
</table>
</tr>
<%
rs1.MoveNext ' spostamento al record successivo
loop ' ciclo loop
%>
</table>
<%'chiudo e distruggo la connessione
objConn.close
set objconn=nothing
%>
</body>
</html>