<%@ Language=VBScript %>

Categoria <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Trevievent" ricerca="SELECT * FROM Categorie" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open ricerca,Conn,adOpenStatic if not rs.EOF then rs.MoveFirst Do While Not rs.EOF id_categoria=rs("id") categoria=rs("Nome") %> <%=categoria %> <% rs.MoveNext Loop end if %> <% rs.Close Conn.Close %>