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