<%
ConnexionBD()
SQL = "SELECT NEWID(),NomProduct_FR,PhotoProduit_Lien,NoSousCategory,NoProduct,NoCategory FROM Product Where IsPromoProduct = 1 ORDER BY 1"
'Response.Write(SQL)
ChargerRecord(SQL)
StepOut = 1
While (NoT Record.Eof And Not Record.Bof) And (StepOut <= 3)%>
