Discussion :

[debutantasp]

Merci je vais essayer avec ce code
A+

[debutantasp]

Salut,
Je ne sais pas vraiment ou je dois mettre ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 "&nbsp;"
		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 "&nbsp;"
		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

voila le code que je fais pour la pagination :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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>&nbsp;
<%
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>&nbsp;
<a href="voircommandes.asp?nom=nom&Direction=Dernière&PageNum=<%=rs.Pagecount%>" class="foot">Dernière</a>
<%
End If

[Immobilis]

Tu as essyé de lui envoyer un recordset pour voir?

[debutantasp]

Salut,
oui j'ai essayé mais il m'a rien donné