Discussion :

[BZH75]

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 :

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 :

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
 
<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...

[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

[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 !

[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 :

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

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

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

Code :

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

<% 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 :

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

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 ...

[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).

[totoche]

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 :

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
 
<%
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	
%>