<%'Carica dbase e tabelle relative set conn=server.createobject("adodb.connection") conn.open = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("app_data/db1.mdb") sql= "select * from prodotti order by famiglia" set rs=server.createobject("adodb.recordset") rs.open sql, conn, 1, 3 '.............. sql2= "select * from famiglie_prodotti order by famiglia " set rs2=server.createobject("adodb.recordset") rs2.open sql2, conn, 1, 3 rs2.movefirst '... fine caricamento %> <% nfamiglia="" rs.movefirst do while not (rs.EOF) if nfamiglia <> rs("famiglia") then%>
<%=rs("famiglia")%>
<% nfamiglia = rs("famiglia") end if%>
<%=rs("prodotto")%>
<%=rs("descrizione")%>
<%response.write rs("codice") & " - " & rs("confezione")%>
<%rs.movenext loop %>

 


<%rs2.movefirst do while not (rs2.EOF)%> <%rs2.movenext loop%>
   
" class="LinkDx"><%=rs2("famiglia")%>
   
   
   
   
_________________________________________________________________________________________________________________________________________________________________
QuickbeautyHQ tutti i diritti riservati - Urbanbeauty SRL - via Gramsci 59\A, 15121 Alessandria - C.F. e P.IVA: 02248140069 - < Contatti >