<html>
<head>
<html> <head>
<title></title>
<body bgcolor=#A52A2A>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:/mdb/Gestione_PI_Tickets.mdb")
set rs1 = server.createobject("ADODB.recordset")
sql1 = "select * from Tabella1"
rs1.open sql1, objconn
if not rs1.eof then
do while not(rs1.eof)
dim variabil1
variabile1 = rs1("id")
%>
<table border="0" cellspacing="1" bgcolor="white"cellpadding="1" align="center" bordercolor="green">
<tr>
<th bgcolor="#DCDCDC" >MUENU</th>
<tr>
</table >
</br>
<table border="0" cellspacing="1" align="center" bordercolor="red">
<tr>
<th bgcolor="#DCDCDC" >Primo</th>
</tr>
<tr>
<td><font size="2" face="verdana"><%response.write(rs1("primo"))%></font></td>
</tr>
<tr>
<th bgcolor="#DCDCDC" >secondo</th>
</tr>
<tr>
<td><font size="2"face="verdana"><%response.write(rs1("secon do"))%></font></td>
</tr>
<tr>
<th bgcolor="#DCDCDC" >terzo</th>
</tr>
<tr>
<td><font size="2"face="verdana"><%response.write(rs1("terzo "))%></font></td>
</tr>
<%
rs1.movenext
Loop
end if
'chiudo connessione
objConn.close
set objconn=nothing
%>
</table>
</table>
</body>
</html>