<%Set Connessione = Server.CreateObject("ADODB.Connection")
Connessione.open "prova","",""
Set Tabella = Connessione.Execute("SELECT * FROM lista")%>
<TABLE BORDER=1>
<% Do While Not Tabella.EOF %>
    <TR><% For i = 0 to Tabella.Fields.Count - 1 %>
    <TD VALIGN=TOP><font face=verdana size=1>
    <% = Tabella(i) %> </TD>
<% Next %></TR>
<% Tabella.MoveNext
Loop
RS.Close
Connessione.Close%>
</TABLE>