<%
' 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
01
45 01 29 22
