Catalogo Completo Prodotti

Catalogo Prodotti On-Line

CATEGORIE

CATEGORIA BEST PRODUCT BEST PRICE
<% Set ConnObj = Server.CreateObject("ADODB.Connection") %> <% ConnObj.Open(MyConnStr) %> <% strSQLCat = "SELECT Categoria.NomeCategoria, Categoria.DescrizioneCategoria, Categoria.IDcategoria " strSQLCat = strSQLCat & "FROM Categoria " strSQLCat = strSQLCat & "ORDER BY Categoria.NomeCategoria, Categoria.DescrizioneCategoria;" Set rstcategorie = ConnObj.Execute(strSQLCat) %> <% Do Until rstcategorie.EOF %> <% ' trovo per la categoria in questione il massimo voto strSQLbestvotoprod = "SELECT Prodotto.IDCategoria, Max(Prodotto.Voto) AS MaxDiVoto " strSQLbestvotoprod = strSQLbestvotoprod & "FROM Prodotto " strSQLbestvotoprod = strSQLbestvotoprod & "GROUP BY Prodotto.IDCategoria " strSQLbestvotoprod = strSQLbestvotoprod & "HAVING (((Prodotto.IDCategoria)=" & rstcategorie("IDcategoria") & ")); " Set maxvotocat = ConnObj.Execute(strSQLbestvotoprod) ' seleziono il prodotto con voto massimo in quella categoria strSQLbestprod = "SELECT Prodotto.IDCategoria, Prodotto.Descrizione, Prodotto.PrezzoWebL, Prodotto.PrezzoWebE, Prodotto.Giacenza, Prodotto.foto, Prodotto.IDProdotto, Prodotto.Voto " strSQLbestprod = strSQLbestprod & "FROM Prodotto " strSQLbestprod = strSQLbestprod & "GROUP BY Prodotto.IDCategoria, Prodotto.Descrizione, Prodotto.PrezzoWebL, Prodotto.PrezzoWebE, Prodotto.Giacenza, Prodotto.foto, Prodotto.IDProdotto, Prodotto.Voto " strSQLbestprod = strSQLbestprod & "HAVING (((Prodotto.IDCategoria)=" & rstcategorie("IDcategoria") & ") AND ((Prodotto.Giacenza)>0) AND ((Prodotto.Voto)=" & maxvotocat("MaxDiVoto") & ") );" Set rstprodcategoria = ConnObj.Execute(strSQLbestprod) %>
<%=rstcategorie("NomeCategoria")%>
<%=rstcategorie("DescrizioneCategoria")%>
<%=rstprodcategoria("Descrizione")%>
£. <%=rstprodcategoria("PrezzoWebL")%>

Euro <%=rstprodcategoria("PrezzoWebE")%>
<% rstcategorie.Movenext %> <% Loop %>

Back