1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| <%
Nmax = 10 ' nombre par page
' 1ère fiche transmise par l'URL
Ndeb = Cint(request.queryString("num"))
' Votre autre paramètre
Lettre = request.queryString("lettre")
' Le bout de requête correspondant
SQL2 = " WHERE deals.codeconst_prod=produits.codeconst_prod and Deals.codeconst_prod like '" & Lettre & "%'"
' Le lien correspondant
Lien = "&lettre=" & Lettre
%>
<p align=center><%
for i = asc("A") to asc("Z")
response.write "<A href='?lettre=" & chr(i) & "'>" & chr(i) & "</A> "
next%></p>
<%
' nombre total de fiches
SQL="SELECT count(*) FROM deals,produits" & SQL2
RS2 = conection.execute(SQL)
Ntotal = RS2(0)-1 ' commence à 0
%>
<%
' sélectionne les fiches de la table
Set RS = server.createobject("ADODB.Recordset")
set RSCheck=server.CreateObject("ADODB.Recordset")
SQL="SELECT distinct top "&(Ndeb+Nmax)&" date_deal,actif_deal,Marge_Deal,titre_prod,Ref_prod,deals.codeconst_prod,PrixTTC_Prod FROM deals,produits"&SQL2&"order by deals.date_deal desc"
RS.Open SQL,Conection ,3,3,1
if rs.recordcount>0 then
' Avance à la 1ère
RS.Move(Ndeb)
' tant qu'il reste des fiches
'actif=true
compteur=1
do while not RS.eof
sqlCheck="Select distinct actif_deal from deals where deals.codeconst_prod='"&rs("codeconst_prod")&"' and date_deal=convert(smalldatetime,'"&rs("date_deal")&"',103)"
RSCheck.open sqlCheck,conection,3,3,1
if rsCheck("actif_deal")=0 then
'affiche le champ
response.write "<tr><td><th class='maclasse'><input type='checkbox' name='Etat'"&Compteur&"' onclick=''/></th></td><TD class='maclasse' Width = 50 ><th class='maclasse'>"&RS("date_deal")&"</th></TD><TD class='maclasse' Width = 50 ><th class='maclasse'>"&rs("actif_deal")&"</th></TD><TD class='maclasse' Width = 50 ><th class='maclasse'>"&RS("marge_deal")&"</th></TD><TD class='maclasse' Width = 50 ><th class='maclasse'>"&RS("Titre_Prod")&"</th></TD><TD class='maclasse' Width =90><th class='maclasse'>"&RS("Ref_Prod")&"</th></TD><TD class=maclasse Width = 350><th class='maclasse'>"&RS("codeconst_prod")&"</th></TD><td class='maclasse' width=90><th class='maclasse'>"&RS("PrixTTC_Prod")&"</th></td><TD><th class='maclasse'><a href='ajouter_deal.asp?code="&RS("codeconst_prod")&"><img src='bas-icone-6618-48.png'/></a></th></TD></TR>"
compteur=compteur+1
ELSE
'rsCheck.movefirst
response.write "<tr><td><th class='maclasse'><input type='checkbox' checked='Checked' name='Etat'"&compteur&"' onclick=''/></th></td><TD class='maclasse' Width = 50 ><th class='maclasse'>"&RS("date_deal")&"</th></TD><TD class='maclasse' Width = 50 ><th class='maclasse'>"&rs("actif_deal")&"</th></TD><TD class='maclasse' Width = 50 ><th class='maclasse'>"&RS("marge_deal")&"</th></TD><TD class='maclasse' Width = 50 ><th class='maclasse'>"&RS("Titre_Prod")&"</th></TD><TD class='maclasse' Width =90><th class='maclasse'>"&RS("Ref_Prod")&"</th></TD><TD class=maclasse Width = 350><th class='maclasse'>"&RS("codeconst_prod")&"</th></TD><td class='maclasse' width=90><th class='maclasse'>"&RS("PrixTTC_Prod")&"</th></td><TD><th class='maclasse'><a href='ajouter_deal.asp?code="&RS("codeconst_prod")&"><img src='bas-icone-6618-48.png'/></a></th></TD></TR>"
compteur=compteur+1
'rsCheck.movenext
end if
RS.MOVENEXT
rsCheck.close
loop
%> |
Partager