message : instruction attendue Wend

Version imprimable

Bonjour,

Je suis entrain de faire des modifications sur une de mes pages ASP, et ça me donne ce message d'erreur quand j'enregistre et que j'essaye de charger ma page :

Citation:

Erreur de compilation Microsoft VBScript error '800a0400'

Instruction attendue

/Fiche/ficheadministrative.asp, line 421

wend
^

La partie de code j'ai modifié est celle ci :

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
 
<tr>
  <td colspan="2" class="sectionFiche" >
	<table  class="principal" cellspacing="0" cellpadding="0" >  
          <tr><td class="SoustitreFiche" > &nbsp;</td>
		<td class="SoustitreFiche" align=right> Etoiles</td></tr>
<%
k=0
rstbilan.moveFirst
while not(rstbilan.eof) and k<3
%>
   <tr>
     <td class="SoustitreFiche" > <%=rstBilan("Date")%></td> 
    <td align=right>
       <% if CDbl(rstbilan("NOTE_TOTALE"))>=9.5 Then%>
          <td width="10%" align="center">
       		 <%If rstBilan("ETOILES")="*" Then%>
                     <img src="/images/Etoiles/unetoile.gif" width="72" height="16" alt="*">
                 <% elseIf rstBilan("ETOILES")="**" Then%>
                     <img src="/images/Etoiles/deuxetoiles.gif" width="72" height="16" alt="**">
                <% elseIf rstBilan("ETOILES")="***" Then%>
                     <img src="/images/Etoiles/troisetoiles.gif" width="72" height="16" alt="***">
                <% elseIf rstBilan("ETOILES")="****" Then%>
                     <img src="/images/Etoiles/quatretoiles.gif" width="72" height="16" alt="****">
                 <% elseIf rstBilan("ETOILES")="*****" Then%>
                     <img src="/images/Etoiles/cinqetoiles.gif" width="72" height="16" alt="*****">
        <%End if%> 
     </td>
 </tr>		 
  <% rstBilan.movenext
        k=k+1
	wend 
   Else %>
     <td width="10%" align="center"></td>
  <% End if
       Else %>
  <td width="10%" align="center"></td>
<%
   End if
   rstBilan.movenext
   Next %>
</table>
	</td>
    </tr>
<% end if %>

Si quelqu'un peut me dire d'où l'erreur vient svp ? merci d'avance...

19/11/2007, 14h48
roro06

Bonjour

Tes boucles ne sont effectivement pas (ou mal ) imbriquées, ce qui fait que asp rencontre une instruction wend alors qu'il attendais une instruction end if
19/11/2007, 14h52
BZH75

Ah ? ben merci pour le diagnostic...
Mais peux tu me dire ce qui que je modifie donc mon code ou du moins les endroits où c'est pas bon ? Merci d'avance !
19/11/2007, 15h26
roro06
Ca va etre dur ... ! Ton code présenté ici n'est pas complet, en plus je ne sais pas ce que tu veux faire!

Mais :

Code:

<%If rstBilan("ETOILES")="*" Then%>

est bien refermé par un end if , mais le précédent :

Code:

<% if CDbl(rstbilan("NOTE_TOTALE"))>=9.5 Then%>

ne l'est pas, car il rencontre un wend avant un end if (c'est là que le bât blesse)

Je te conseille l'utilisation de "select ... case" au lieu de if ... elseif ... end if
.ton code y gagnera en lisibilité. Je vois aussi un next qui ne correspond a aucun for.
Enfin :
Code:

1 2 3 <td align=right> <% if CDbl(rstbilan("NOTE_TOTALE"))>=9.5 Then%> <td width="10%" align="center">
Pas terrible ! ça risque de donné un td imbriqué dans un autre td ...
19/11/2007, 15h36
BZH75

Effectivement je n'ai copier qu'une partie du code... car ce qu'il y a avant marche, ce n'est que ce que j'ai tenté de rajouté aujourd'hui qui me fait "bugger".

Avec les pistes que tu viens de me donner, je vais essayer de résoudre les bugs.

Sinon ce que je veux faire, c'est affiché dans une table 3 images selon certains paramètres de ma base de données. (ouai ça reste abstrait pour toi, mais je peux pas être plus clair lol).

Salut,
faut éviter les allers-retours (ouverture et fermeture de balise <% %>) pour économiser les ressources de ton serveur, il faut mieux envoyer un seul flot
;-)
Indenter le code reste un principe de base pour faciliter le debug.
Dans la modélisation de ta base de données tu peux peut-être creer un champ qui récupère le chemin de l'image.

Bon courage @++

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
 
<%
response.write "<tr><td class='SoustitreFiche' > &nbsp;</td>" &_
"<td class='SoustitreFiche' align=right>Etoiles</td>"&_
"</tr>"
'dim k as integer déclaration de variable
k=0
rstbilan.moveFirst
           while not(rstbilan.eof) and k<3
                 response.write "<tr>" &_
	    "<td class='SoustitreFiche' >" & rstBilan("Date") & "</td>" & _
                        if CDbl(rstbilan("NOTE_TOTALE"))>=9.5 Then
 
                           Select case   rstBilan("ETOILES")
                           case ="*" 
                           strSrcImage ="<img src='/images/Etoiles/unetoile.gif' width='72' height='16' alt='*'>"
                           case ="**" 
                           strSrcImage ="<img src='/images/Etoiles/deuxetoiles.gif' width='72' height='16' alt='**'>"
                           case ="***"
strSrcImage ="<img src='/images/Etoiles/troisetoiles.gif' width='72' height='16' alt='***'>"
                            end select
'idem pour 4 et 5 
                       response.write "<td width='10%' align='center'>" & _
                       strSrcImage & "</td></tr>"
 
 
'tu sortais de ta boucle avant ton else
                        Else
                         response.write "<td width='10%' align='center'></td></tr>"
                        end if
             k=k+1
             rstBilan.movenext
	wend	
%>