<% ' **************************** ' SOMMAIRE PAGE REALISATIONS * ' **************************** ' parametres en entree: numpage (facultatif) ' correspond au numero de la page ' ' créée le 03/04/2002 par Ludovic Coisne ' ' Les variables locales dim numpage ' numero de la page dim soc_id 'id de la societe ' ici : APM, d'où id=4 soc_id = 4 ' recuperation des parametres numpage = Request.QueryString("numpage") if numpage = "" then numpage = 1 else numpage = cint(numpage) end if dim ref dim cpt %>

<%' LISTE DES REALISATIONS%> <% ' RECUPERATION DE LA LISTE DES REALISATIONS sql = "EXEC FO_LISTER_REALISATIONS " & Session("langue") & ", " & soc_id ' execution de la requete connecter Set RS = Server.CreateObject("ADODB.Recordset") 'Utilisation d'un curseur côté client pour permettre d'utiliser la propriété absolutepage RS.CursorLocation = 3 'aduseclient ' fixe le nb de resultats par page RS.pageSize = 10 ' lance la requete RS.open sql, connexion ' fixe la page courante if not RS.EoF then RS.absolutePage = numpage dim i 'compteur i = 1 %> <% else %> <% end if RS.Close set RS = nothing deconnecter %> Parcourez quelques unes de nos dernières réalisations. <% while i<=RS.pageSize and not RS.EoF %> <% RS.MoveNext i = i + 1 wend %> " target="_self" class="realisation"><%=RS("ref_nom")%> <% if RS.PageCount>1 then %> <%if numpage<>1 then%><%else%> <%end if%> <%if RS.PageCount>numpage then%><%else%> <%end if%> <% else %>   <% end if %> Aucune réalisation n'est enregistrée actuellement ...