<%@ Language=VBScript %> <% id=request("scelta") 'response.write(id) %> <% if id=2 then %>

Sottocategoria <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Trevievent" ricerca="SELECT * FROM sottocategorie" 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_cat2") categoria=rs("Nome") %> <%=categoria %> <% rs.MoveNext Loop end if %> <% rs.Close Conn.Close %>

<%else %> <%If id=3 Then%> <%else %> <%if id=1 then %> <%else %> <%if id=0 then %> <%end if %> <%end if %> <%end if %> <%end if %>