Prodotti per Categorie

Catalogo Prodotti On-Line

Foto Prodotto Descrizione Prezzo WEB
<% Set ConnObj = Server.CreateObject("ADODB.Connection") %> <% ConnObj.Open(MyConnStr) %> <% strSQLProd = "SELECT Prodotto.IDProdotto, Prodotto.Descrizione, Prodotto.DescrizioneDettagli, Prodotto.PrezzoL, Prodotto.PrezzoE, Prodotto.PrezzoWebL, Prodotto.PrezzoWebE, Prodotto.Giacenza, Prodotto.Unitàmisura, Prodotto.Note, Prodotto.Voto, Prodotto.foto, Categoria.NomeCategoria " strSQLProd = strSQLProd & "FROM Prodotto INNER JOIN Categoria ON Prodotto.IDCategoria = Categoria.IDcategoria " strSQLProd = strSQLProd & "ORDER BY Categoria.NomeCategoria, Prodotto.Descrizione;" Set rstprodotti = ConnObj.Execute(strSQLProd) %> <% Do Until rstprodotti.EOF if rstprodotti("Giacenza")>0 then %> <% if rstprodotti("NomeCategoria")<> categoria then %> <% categoria =rstprodotti("NomeCategoria") else %> <%end if%>
Categoria: <%=rstprodotti("NomeCategoria")%>
 
 
<%=rstprodotti("DescrizioneDettagli")%>
£. <%=rstprodotti("PrezzoWebL")%>

Euro: <%=rstprodotti("PrezzoWebE")%>
 
<%=rstprodotti("Note")%>
Prezzo di listino: £. <%=rstprodotti("PrezzoL")%>

Euro: <%=rstprodotti("PrezzoE")%>
Giudizio prodotto: <%=rstprodotti("Voto")%>  
   
 
<% end if%> <% rstprodotti.Movenext %> <% Loop %>

Back