VENDITA USATO
<% Set Conn=Server.CreateObject("ADODB.Connection") strConn="driver={Microsoft Access Driver (*.mdb)}; " strConn=strConn & " DBQ=" & Server.MapPath("db/db.mdb") strConn=strConn & ";pwd=" & strCode Conn.Open strConn sql = "SELECT * FROM categorie WHERE categoria_prodotti='2' ORDER BY ordinamento ASC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn ,3,3 totcat=rs.RecordCount 'response.write("The number of records is: " & totcat) %> <% if totcat > 1 then %>
Mostra tutti gli articoli
<% do while not(rs.eof)%>
Filtra per <%=rs(3)%>
<% rs.movenext
loop
%>
<% do while not(rs.eof)%>
<% Set Conn2=Server.CreateObject("ADODB.Connection")
strConn2="driver={Microsoft Access Driver (*.mdb)}; "
strConn2=strConn2 & " DBQ=" & Server.MapPath("db/db.mdb")
strConn2=strConn2 & ";pwd=" & strCode
Conn2.Open strConn2
sql2 = "SELECT * FROM prodotti WHERE categorie='" & rs(0) & "' ORDER BY ordinamento ASC"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql2, conn2 ,3,3
%>
<% do while not(rs2.eof)%>
%>/<%=rs2(0)%>/m<%=rs2(4)%>)
<% Set Conn3=Server.CreateObject("ADODB.Connection")
strConn3="driver={Microsoft Access Driver (*.mdb)}; "
strConn3=strConn3 & " DBQ=" & Server.MapPath("db/db.mdb")
strConn3=strConn3 & ";pwd=" & strCode
Conn3.Open strConn3
sql3 = "SELECT * FROM contenuti WHERE categorie ='" & rs2(0) & "' ORDER BY ordinamento ASC"
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.Open sql3, conn3 ,3,3
%>
<% do while not(rs3.eof) %>
<% rs3.movenext
loop %>
<%
rs3.Close
set rs3 = Nothing
conn3.Close
set conn3 = Nothing
%>
<% rs2.movenext
loop
%>
<%
rs2.Close
set rs2 = Nothing
conn2.Close
set conn2 = Nothing
%>
<% rs.movenext
loop
%>