%@ Language=VBScript %> <% dim strSearch, iPage, nbEltsParPage, strNbRes strNbRes = "" ' récupère les mots recherchés strSearch = request("ctrlSearch") ' récupère le numéro de la page courante iPage = request("ipg") ' constante qui définit le nombre de résultat par page nbEltsParPage = 10 '------------------------------------------------ ' fonction qui se charge d'afficher un résultat '------------------------------------------------ function AffResult(strNum, strTitle, strUrl, strText) %>
<%=strNum%>) <%=strTitle%>. <%=strUrl%> <%=strText%> |
|||
<% ' affichage du bouton précédent if noPagePrec>0 then %>
<%
end if
if nbTotalPages > 1 then
%> Pages : <%
for i=noPageDebut to noPageFin
if curPage = i then
%> <%=i%><%
else
%> <%=i%><%
end if
%> <%
next
end if
' affichage du bouton précédent
if noPageSuiv <= nbTotalPages then
%>
<%
end if
%>
|
|||
Pas de réponse trouvée. |
|||