codice:
<%
Dim i
i = 1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM tabella where visualizza=true ORDER BY id DESC"
rs.open sql, objConn, 3, 3
do until rs.eof


Response.Write("&nomesito_="& i & (rs("titolo"))&"&")%>


<%
rs.movenext
i = i +1
loop
rs.close
set rs=nothing %>