<%ConnexionBD() SQL = "SELECT *,Product.noCategory as noCat,DescriptionProduit_EN FROM Category Right JOIN Product ON Category.NoCategory = Product.NoCategory Left JOIN SousCategory ON SousCategory.NoSousCategory = Product.NoSousCategory Where IsCatalogPrint = 1 Order By NomCategory_EN, NomSousCategory_EN, NomProduct_EN" ChargerRecord(SQL)%>
<% While Not Record.Eof And Not Record.Bof If Record("NomCategory_EN") <> LastCat then Response.Write(""&Record("NomCategory_EN")&" . ") End if LastCat = Record("NomCategory_EN") Record.MoveNext Wend%> All

<% SQL = "SELECT *,DescriptionProduit_EN FROM Category Right JOIN Product ON Category.NoCategory = Product.NoCategory Left JOIN SousCategory ON SousCategory.NoSousCategory = Product.NoSousCategory Where IsCatalogPrint = 1" If Request("NoCategory") <> "" And Request("NoCategory") <> "0" Then SQL = SQL + " And Product.NoCategory = "& FormaterSQL(Request("NoCategory")) End if SQL = SQL + " Order By NomCategory_EN, NomSousCategory_EN, NomProduct_EN" ChargerRecord(SQL)%> <%Counter = 1 While NoT Record.Eof And Not Record.Bof If (Record("NomCategory_EN") &" / "&Record("NomSousCategory_EN") <> LastCatAndSousCat) Or (Counter = 5) then If (Record("NomCategory_EN") &" / "&Record("NomSousCategory_EN") <> LastCatAndSousCat) then%>
<%=Record("NomCategory_EN") &" / "&Record("NomSousCategory_EN")%>
<%End if%>
<%Counter = 1 End if%> <%If Record("NomCategory_EN") &" / "&Record("NomSousCategory_EN") <> LastCatAndSousCat then%> <%End if%> <%LastCatAndSousCat = Record("NomCategory_EN") &" / "&Record("NomSousCategory_EN") Record.MoveNext If Not Record.Eof And Not Record.Bof Then If (Record("NomCategory_EN") &" / "&Record("NomSousCategory_EN") <> LastCatAndSousCat) or (Counter = 5) then%>
Product Picture Description
<%=Record("NomProduct_EN")%> " width="100" height="100"> <%=Record("DescriptionProduit_EN")%>

<%End if End if Counter = Counter + 1 Wend%>