<%@ LANGUAGE = VBScript %> <% id = Request.QueryString("id") %> <% nom = Request.QueryString("nom") %> <%Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "mac" Set OBJdbConnection2 = Server.CreateObject("ADODB.Connection") OBJdbConnection2.Open "mac" SQLQuery1 = "SELECT * FROM grups WHERE grup = '" & id & "'" Set Taula1 = OBJdbConnection.Execute(SQLQuery1) %>

<%= nom %> <% Do While Not Taula1.Eof %> " target="_self"><%= Taula1("nom") %> <% subgrup=Taula1("subgrup") SQLQuery2 = "SELECT * FROM grups WHERE subgrup2 = '" & subgrup & "'" Set Taula2 = OBJdbConnection2.Execute(SQLQuery2) %> <% Do While Not Taula2.Eof %> " target="_self"><%= Taula2("nom") %> <% Taula2.MoveNext Loop %> <% Taula1.MoveNext Loop OBJdbConnection.Close OBJdbConnection2.Close %>