[ASP3] Problème avec Pagesize

**beegees** · 10/03/2006, 11h23

Bonjour le forum,

J'essaie d'organiser mes données de façon à ce qu'elle apparaîssent par groupe de 15 par page (le but est surtout pour l'impression), mais le résultat ne s'applique pas.

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
<%Str_Compteur = 0
DO while not rst.EOF
   Str_Compteur = Str_Compteur + 1
   ' Gestion de la couleur de la ligne
   If Bln_Row_Color Then
      Str_Row_Color = "#BAE2E3"
   Else
      Str_Row_Color = ""
 
   ' Affectation du complément pour changer la couleur de la prochaine ligne
   End If
[color=red][b]'c'est ici que j'ai mais le code pour n'afficher que 5 enregistrements par page[/b][/color]   
dim i
   for i = 1 to rst.pagesize
   next
   Bln_Row_Color = Not Bln_Row_Color %>
     <tr bgcolor="<%=Str_Row_Color %>">
       <td><div align="center"><font face="Arial" color="#0099CC" size="3"><strong><a href="#bouton"><img src="flecheBas.gif" alt="Bas" width="14" height="15" border="0" /></a></strong></font></div></td>
       <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong><a href="#bouton"></a> <%=rst("MatriculeBA1")%>
                   <input type="hidden" name="txtMatriculeBA1<%=Str_Compteur%>"  value="<%=rst("MatriculeBA1")%>" />
       </strong> </font> </div></td>
       <%'collone Statique des noms%>
       <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong> <%=rst("NomBA1")%>
                   <input type="hidden" name="txtNomBA1<%=Str_Compteur%>"  value="<%=rst("NomBA1")%>" />
       </strong> </font> </div></td>
       <!--      collone Statique des prenoms-->
       <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong> <%=rst("PrenomBA1")%>
                   <input type="hidden" name="txtPrenomBA1<%=Str_Compteur%>"  value="<%=rst("PrenomBA1")%>" />
       </strong> </font> </div></td>
       <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong> <%=rst("PHARJ202TH")%>
                   <input type="hidden" name="txtPrenomBA1<%=Str_Compteur%>"  value="<%=rst("PHARJ202TH")%>" />
       </strong> </font> </div></td>
       <!--collone dynamique des cotes-->
       <%
   rst.MoveNext
loop
 
%>

C'est donc avec cette ligne dim i

Code :

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

1
2
for i = 1 to rst.pagesize
   next i

Il me donne ce message d'erreur :

Erreur de compilation Microsoft VBScript erreur '800a0401'

Fin d'instruction attendue

/delibes/CONSULTATIONba1PHARJ202.asp, ligne 77

Voyez-vous où je me suis trompé ?

Merci d'avance.

bgs

**pc75** · 10/03/2006, 11h32

Re,

Je te donne un exemple que tu pourras adapter.

La page ASP (liste)

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
 
<%
If Session("SessionOk") = false then
	Response.Redirect("../../Routines/SessionOK.asp")
end if
%>
<!--#include file="../../Includes/PageNavBar.inc"-->
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>Gestion des Catégories</title>
</head>
<body bgcolor="#fefceb">
<script language="JavaScript">
function Creer()
	{
	document.frmSaisie.action = 'Saisie.asp?Action=Creer';
	document.frmSaisie.submit();
	}
 
function Supprimer(Num)
	{
	var Reponse = window.confirm("Confirmez la suppression de cette catégorie.");
	if (Reponse)
		{
		document.frmSaisie.txtCompteur.value = Num;
		document.frmSaisie.action = 'SqlDelete.asp';
		document.frmSaisie.submit();
		}
	}
 
</script>
<%
SQLtemp = ""
SQLtemp = SQLtemp & "select * "
SQLtemp = SQLtemp & "from CATEGORIES "
SQLtemp = SQLtemp & "order by CAT_LIBELLE"
'on error resume next
 
mypage = request("whichpage")
If  mypage = "" then
   mypage = 1
end if
mypagesize = request("pagesize")
If  mypagesize = "" then
   mypagesize = 20
end if
mySQL = request("SQLquery")
IF  mySQL = "" THEN
   mySQL = SQLtemp
END IF
 
set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.cursorlocation = aduseclient
rstemp.cachesize = 5
rstemp.open mysql, Application("DsnODBC")
%>
<br>
<p align="center">
<font face="Arial" color="#0099CC" size="3">
<strong>
Gestion des Catégories
</strong>
</font>
</p>
 
<form name="frmSaisie" method="post" action>
	<input type="hidden" name="txtCompteur">
	<%
	if not rstemp.EOF then
	   rstemp.movefirst
 
		rstemp.pagesize = mypagesize
		maxpages = cint(rstemp.pagecount)
		maxrecs = cint(rstemp.pagesize)
		rstemp.absolutepage = mypage
		howmanyrecs = 0
		%>
 
		<table align="center" border="1" width="100%">
			<%
			Str_Compteur = 0
			DO  UNTIL rstemp.eof OR howmanyrecs >= maxrecs
				Str_Compteur = Str_Compteur + 1
				' Gestion de la couleur de la ligne
				If Bln_Row_Color Then
					Str_Row_Color = "#BAE2E3"
				Else
					Str_Row_Color = ""
				End If
				' Affectation du complément pour changer la couleur de la prochaine ligne
				Bln_Row_Color = Not Bln_Row_Color
				%>
				<tr BGCOLOR="<%=Str_Row_Color %>">
					<td>
						<font face="Arial" color="#0099CC" size="3">
						<strong>
						<a href="Saisie.asp?Action=Modifier&Cle=<%=rstemp("CAT_CODE")%>"><%=rstemp("CAT_CODE")%>&nbsp;-&nbsp;<%=rstemp("CAT_LIBELLE")%></a>
						<input type="hidden" name="txtCle<%=Str_Compteur%>" title="Modifier" value="<%=rstemp("CAT_CODE")%>">
					</td>
					<td align="center" width="25">
						<span style="cursor:hand;">
						<img src="../../Images/u_del.gif" alt="Supprimer" OnClick="Supprimer(<%=Str_Compteur%>)" WIDTH="12" HEIGHT="12">
						</span>
					</td>
				</tr>
				<%
				rstemp.MoveNext
	 			howmanyrecs = howmanyrecs + 1
			loop
			%>
		</table>
		<br><br>
		<%
		Call PageNavBar
		rstemp.Close
		set rstemp = Nothing
	end if
	%>
 
	<table align="center">
		<tr>
			<td>
				<span style="cursor:hand;">
				<img src="../../Images/b_creer.gif" alt="Créer" OnClick="Creer()" WIDTH="68" HEIGHT="22">
				</span>
			</td>
			<td>
			</td>
		</tr>
	</table>
</form>
</body>
</html>

Et le fichier d'include PageNavBar.inc

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
62
63
64
65
66
67
68
69
70
71
72
 
<%
sub PageNavBar()
    pad=""
    scriptname=request.servervariables("script_name")
    response.write "<table border='0' align='center' rows='1' cols='1' width='97%'><tr>"
    response.write "<td>"
    response.write "<font size='2' color='black' face='Verdana, Arial,Helvetica,sans-serif'>"
    if (mypage mod 10) = 0 then
		counterstart = mypage - 9
    else
		counterstart = mypage - (mypage mod 10) + 1
    end if
    counterend = counterstart + 9
	Response.Write "<center>"
    if counterend > maxpages then counterend = maxpages
    if counterstart <> 1 then
		ref="<a href='" & scriptname
		ref=ref & "?whichpage=" & 1
		ref=ref & "&pagesize=" & mypagesize
		ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
		ref=ref & "'>Première</a>&nbsp;:&nbsp;"
		Response.Write ref
 
 
		ref="<a href='" & scriptname
		ref=ref & "?whichpage=" & (counterstart - 1)
		ref=ref & "&pagesize=" & mypagesize
		ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
		ref=ref & "'>Précédente</a>&nbsp;"
		Response.Write ref
    end if
 
    Response.Write "["
    for counter=counterstart to counterend
		If counter>=10 then
			pad=""
		end if
		if cstr(counter) <> mypage then
			ref="<a href='" & scriptname
			ref=ref & "?whichpage=" & counter
			ref=ref & "&pagesize=" & mypagesize
			ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
			ref=ref & "'>" & pad & counter & "</a>"
		else
			ref="<b>" & pad & counter & "</b>"
		end if
		response.write ref
		if counter <> counterend then response.write " "
    next
    Response.Write "]"
    if counterend <> maxpages then
		ref="&nbsp;<a href='" & scriptname
		ref=ref & "?whichpage=" & (counterend + 1)
		ref=ref & "&pagesize=" & mypagesize
		ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
		ref=ref & "'>Suivante</a>"
		Response.Write ref
 
		ref="&nbsp;:&nbsp;<a href='" & scriptname
		ref=ref & "?whichpage=" & maxpages
		ref=ref & "&pagesize=" & mypagesize
		ref=ref & "&sqlQuery=" & server.URLencode(mySQL)
		ref=ref & "'>Dernière</a>"
		Response.Write ref
    end if
    response.write "<br></font>"
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
end sub
%>

Si tu as des difficultés, je suis encore là aujourd'hui (congé la semaine prochaine).

**beegees** · 10/03/2006, 11h36

Salut PC75,

Merci pour ta réponse.

Je vais regarder ce code et l'adapter à mes besoins.

Qu'est ce qu'on va faire sant toi pendant une semaine

Merci encore.

bgs

**beegees** · 10/03/2006, 11h43

impressionnant ton code

J'vois même pas où on parle de pagesize.

C'est vendredi....

Je continue

**pc75** · 10/03/2006, 13h21

Re,

Ici :

Code :

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

1
2
3
4
 
If  mypagesize = "" then 
   mypagesize = 20 
end if

**beegees** · 10/03/2006, 15h10

Salut PC75,

Merci pour ta réponse.

J'y suis arrivé pour finir.

Voici le code que j'ai utilisé, ça pourrait servir à d'autres :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<%
   ' Gestion de la couleur de la ligne
   If Bln_Row_Color Then
      Str_Row_Color = "#BAE2E3"
   Else
      Str_Row_Color = ""
 
   ' Affectation du complément pour changer la couleur de la prochaine ligne
   End If
 
   Bln_Row_Color = Not Bln_Row_Color %>

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
  <%   dim i
	  for i = 1 to rst.pagesize %>
	 <tr bgcolor="<%=Str_Row_Color %>">
       <td><div align="center"><font face="Arial" color="#0099CC" size="3"><strong><a href="#bouton"><img src="flecheBas.gif" alt="Bas" width="14" height="15" border="0" /></a></strong></font></div></td>
 
 
 
	   <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong><a href="#bouton"></a> <%=rst("MatriculeBA1")%>
                   <input type="hidden" name="txtMatriculeBA1<%=Str_Compteur%>"  value="<%=rst("MatriculeBA1")%>" />
       </strong> </font> </div></td>
       <%'collone Statique des noms%>
 
 
       <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong> <%=rst("NomBA1")%>
 
       </strong> </font> </div></td>
       <!--      collone Statique des prenoms-->
       <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong> <%=rst("PrenomBA1")%>
 
       </strong> </font> </div></td>
       <td><div align="center"><font face="Arial" color="#0099CC" size="3"> <strong> <%=rst("PHARJ202TH")%>
 
       </strong> </font> </div></td>
	   <br>
       <!--collone dynamique des cotes-->
 
       <%
   rst.MoveNext
   next
%>

Merci encore et passe une bonne semaine de congé

bgs

[ASP3] Problème avec Pagesize

ASP

Vue hybride

Discussions similaires

Partager

Partager