Les articles

<% ' affichage des articles n par n - categorie classique (pas promo pas cadeau) Euro = 6.55957 dim NbLigne, Connection, rs, Requete, j, Page, MarquePara, MotPara Response.expiresAbsolute=now()-1 Response.Buffer=True ' Nombre de lignes affichees par page NbLigne=6 ' le para pg est passé à la page asp sinon Page=1 Page = 1 if isnumeric(request("pg")) and request("pg")<>"" Then Page=request("pg") end if MotPara = Request.QueryString("moteur") if MotPara <> "" then NomChemin = MotPara ImageFamille = "illustration.gif" TitreFamille = "titregenerique.gif" MotBase = replace(Ucase(MotPara),"'","''") ReqMoteur = "(sous_famille like '%" & MotBase & "%' OR marque='" & MotBase & "')" Requete = "SELECT * FROM table1 WHERE dispo='1' AND " & ReqMoteur else FamillePara = Request.QueryString("menu") FamilleParaIma = replace(FamillePara," ","") NomChemin = FamillePara & "
" & "" & SousFamillePara & "" ImageFamille = FamilleParaIma & ".jpg" TitreFamille = FamilleParaIma & ".gif" FamilleBase = replace(FamillePara,"'","''") ' mettre promo, cadeau ? Requete = "SELECT * FROM table1 WHERE dispo='1' AND famille='" & FamilleBase & "' ORDER BY ref" end if Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead + adModeShareDenyNone Connection.Open "ARMORIAL.armo_base" Set rs = Server.CreateObject("ADODB.Recordset") rs.pagesize=NbLigne rs.Open Requete, Connection, 3, 3 if not rs.eof then rs.AbsolutePage=page end if NbPage = rs.pagecount ' pour affichage n par n NomPage = "armo_categorie.asp?moteur=" & MotPara & "&menu=" & Server.Urlencode(FamillePara) %> Les articles

Vous êtes dans :

Les bagages