<%

set rs = Server.CreateObject("ADODB.Recordset")


SQL = "SELECT * FROM tabella"
rs.Open SQL, obj, 1, 1
if rs.EOF or rs.BOF then
'Response.Write "non ci sono dati"

End If
do until rs.EOF
cont= cont + 1
%>
this.item<%=cont%> = "<%=rs("dati")%>"
<%rs.movenext

loop
rs.Close

%>