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.
C'est donc avec cette ligne dim i
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 %>
Il me donne ce message d'erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 for i = 1 to rst.pagesize next i
Voyez-vous où je me suis trompé ?Erreur de compilation Microsoft VBScript erreur '800a0401'
Fin d'instruction attendue
/delibes/CONSULTATIONba1PHARJ202.asp, ligne 77
Merci d'avance.
bgs
Partager