Merci je vais essayer avec ce code
A+
Version imprimable
Merci je vais essayer avec ce code
A+
Salut,
Je ne sais pas vraiment ou je dois mettre ce code :
voila le code que je fais pour la pagination :Code:
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
54
55
56
57
58
59
60
61 Sub ShowNavBar(rst) Dim iPageCount Dim iLoop Dim sScriptName sScriptName = Request.ServerVariables("SCRIPT_NAME") iPageCount = rst.PageCount Response.Write("<BR><table>" + Chr(13) + Chr(10)) Response.Write("<tr align='center'>" + Chr(13) + Chr(10)) Response.Write("<td width='100' align='center'>") If iPageNum > 1 Then Response.Write "<a class='n' href=" & sScriptName & "?iPageNum=" & (iPageNum -1) & "><< Previous</a> " IF iPageNum > 10 THEN Response.Write "<a class='n' href=" & sScriptName & "?iPageNum=" & (iPageNum -10) & ">-10</a>" END IF Else Response.Write " " End If Response.Write("</td>" + Chr(13) + Chr(10)) Response.Write("<td width='200' align='center'>") Do Until iLoop > iPageCount If iLoop = iPageNum Then Response.Write " <B>" & CStr(iLoop) & "</B>" ELSE IF iLoop =< 3 THEN Response.Write " <a class='n' href=" & sScriptName & "?iPageNum=" & Cstr(iLoop) & ">" & iLoop & "</a>" ELSE IF iLoop >= iPageCount - 2 THEN Response.Write " <a class='n' href=" & sScriptName & "?iPageNum=" & Cstr(iLoop) & ">" & iLoop & "</a>" ELSE IF iLoop < iPageNum - 2 OR iLoop > iPageNum + 2 THEN IF iLoop = iPageNum - 3 OR iLoop = iPageNum + 3 THEN Response.Write " ... " END IF ELSE Response.Write " <a class='n' href=" & sScriptName & "?iPageNum=" & Cstr(iLoop) & ">" & iLoop & "</a>" END IF END IF END IF End If iLoop = iLoop + 1 Loop Response.Write("</td>" + Chr(13) + Chr(10)) Response.Write("<td width='100' align='center'>") If iPageNum < iPageCount Then IF iPageNum <= iPageCount - 10 THEN Response.Write "<a class='n' href=" & sScriptName & "?iPageNum=" & (iPageNum + 10) & ">+10</a>" END IF Response.Write " <a class='n' href=" & sScriptName & "?iPageNum=" & (iPageNum +1) & "> Next >></a>" Else Response.Write " " End If Response.Write("</td>" + Chr(13) + Chr(10)) Response.Write("</tr>" + Chr(13) + Chr(10)) Response.Write("</table><BR>" + Chr(13) + Chr(10)) 'Response.Write "Page " & iPageNum & " of " & iPageCount & "<BR>" + Chr(13) + Chr(10) Response.Write rst.RecordCount & " Records" + Chr(13) + Chr(10) End Sub
Code:
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 Dim strSQL Const adOpenKeyset = 1 dim i, PageNum rs.PageSize = 20 i = 0 IF request.QueryString("PageNum") <> "" THEN IF rs.AbsolutePage <= rs.pagecount THEN rs.AbsolutePage = request.QueryString("PageNum") PageNum = request.QueryString("PageNum") END IF ELSE PageNum = 1 END IF If cint(PageNum) > 1 Then%> <a href="voircommandes.asp?nom=nom&Direction=Prev&PageNum=<%=PageNum-1%>" class="foot">Précédent</a> <% End If%> Page de résultats: <% for i=1 to rs.pagecount if i=CInt(PageNum) then%> <b><font color="#AA0000"><%response.Write(i)%></font></b> <% else %> <a href="voircommandes.asp?nom=nom&Direction=Page&PageNum=<%=i%>"><%=i%></a> <% end if next If cint(PageNum) < rs.Pagecount Then %> <a href="voircommandes.asp?nom=nom&Direction=Next&PageNum=<%=PageNum+1%>" class="foot">Suivant</a> <a href="voircommandes.asp?nom=nom&Direction=Dernière&PageNum=<%=rs.Pagecount%>" class="foot">Dernière</a> <% End If
Tu as essyé de lui envoyer un recordset pour voir?
Salut,
oui j'ai essayé mais il m'a rien donné