Discussion :

[delavega]

Bonsoir,

Avec ce code ci-dessous :

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
 
<%
DIM mySQL, objRS
mySQL = "SELECT * FROM tblData" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn
 
DIM recCount
IF Not objRS.EOF THEN
Response.Write "<table width='100%'>"
recCount = 0
 
Do UNTIL objRS.EOF
 
IF recCount Mod 3 = 0 THEN
 
IF recCount <> 0 THEN
Response.Write "</tr>"
Response.Write "<tr><td>"&objRS("Item")&"</td>"
ELSE
Response.Write "<td>"&objRS("Item")&"</td>"
END IF
 
recCount = recCount + 1
objRS.MoveNext
 
Loop
 
Response.Write"</tr></table>"
ELSE
Response.Write "Sorry, there are no records in our database."
END IF
%>

Lorsque je le test en ligne, j'obtiens le message d'erreur suivant :


Erreur de compilation Microsoft VBScript erreur '800a040e'

'loop' sans 'do'

/displayhoriz.asp, ligne 37

Loop


Merci de votre aide;

Denis

[kaiser59]

Salut,

c'est normal ton code n'est pas bien structuré tu fais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
<%
Do
 if ... Then
 
 if ... Then
 
 end if
 
rs.movenext
loop
 
end if 
%>

tu ferme un if après la fermeture d'une boucle alors que le if est à l'interieur pas normale soit tu mets tes if à l'intérieur soit à l'extérieur de ta boucle

Ce qui donnerais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<%
Do
 
 if ... Then
     if ... Then
     Else
     end if
 Else
 end if 
 
rs.movenext
loop
%>

j'espère que cela pourra t'aider