OSTRICH PAGE - Legislazione

Imposta come pagina iniziale

Stampa questa pagina

Aggiungi ai preferiti

<% dim ArrayTotTipo (10,2) SQL = " SELECT DISTINCT tb_tipo_legge.ID_TIPO_LEGGE, tb_tipo_legge.TIPO_LEGGE FROM tb_tipo_legge, tb_leggi WHERE tb_tipo_legge.ID_TIPO_LEGGE = tb_leggi.ID_TIPO_LEGGE ORDER BY TIPO_LEGGE " OpenRS(SQL) if not(rs.BOF and rs.EOF)then TOT_LEGGE = 0 do until rs.EOF ArrayTotTipo(TOT_LEGGE,1) = rs.Fields("ID_TIPO_LEGGE").Value ArrayTotTipo(TOT_LEGGE,2) = rs.Fields("TIPO_LEGGE").Value rs.MoveNext TOT_LEGGE = TOT_LEGGE + 1 loop TOT_LEGGE = TOT_LEGGE - 1 end if CloseRS() for x = 0 to TOT_LEGGE %> <% SQL = " SELECT TITOLO_LEGGE, ID_LEGGE FROM tb_leggi WHERE tb_leggi.ID_TIPO_LEGGE = " & ArrayTotTipo(x,1) & " ORDER BY TITOLO_LEGGE " OpenRS(SQL) if not(rs.BOF and rs.EOF)then do until rs.EOF TITOLO_LEGGE = rs.Fields("TITOLO_LEGGE").Value ID_LEGGE = rs.Fields("ID_LEGGE").Value %> <% rs.MoveNext loop end if CloseRS() %> <% next %>

<%=GenHTML%>

<%=ArrayTotTipo(x,2)%>

<%=TITOLO_LEGGE%>