la maîtrise de l'étanchéité et de la couverture

NOS REFERENCES :



<%=Request("Famille")%>

<% IdFicheSel=0 NbRef=0 NbMaxElementAfficher=21 IdFicheSel=0 Depart=0 if len(request("deb"))>0 then Depart=Cint(request("deb")) 'response.Write(Cstr(Depart) + "
") Set refs = Server.CreateObject("ADODB.Recordset") if len(Request("Famille"))>0 then 'une famille à été séléectionnée SQLquery = "SELECT * FROM references WHERE Famille='" & Request("Famille") & "'" refs.open SQLquery,MM_FGEIDF_STRING,adOpenKeyset,adLockOptimistic 'response.Write(LaTable .Source) 'si il existe un enregistrement alors ' Compte le Nbre d'enregistrement dispo while not refs.eof ' response.Write("j'ajoute " + LesImg) ' LaTable.addnew ' on affiche la famille selectionnee if depart=0 then if IdFicheSel=0 then IdFicheSel=refs("id") else if depart=NbRef then IdFicheSel=refs("id") end if NbRef=NbRef+1 refs.movenext Wend if NbRef>100 Then NbMaxElementAfficher=21 %> <%if Depart>=NbMaxElementAfficher-1 then %>&Famille=<%=Request("Famille")%>" title=""><<<%end if%> <% if NbRef>0 then refs.movefirst NbElement=0 NumFiche=1 while refs.eof=false and NumFiche") if NbElement=>Depart then NumFiche=NumFiche+1 %> ');" <%if IdFicheSel=refs("id") then %> class="selected2" <%end if%> ><%=NbElement%> <% end if refs.movenext wend Depart=NbElement ' response.Write(Cstr(Depart) + "/"+ Cstr(NbRef) +"
") refs.Close() %> <%if NbRef>20 and NbRef>depart then %> " title="">>><% end if%>
<% end if%>