Discussion :

[rony]

bjr,

le code suivant m'affiche tous les enregistrements de ma base qui corespondent à ma raquete.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<% 
 WHILE NOT RS.EOF 
%>
 
<%if  rs("a3") > 2  then %> <%dispo=0%><%end if%>
 
<%
RS.MoveNext 
WEND 
RS.close
 
  %>

en fonction du resultat de ma requete je veux afficher 2 resultats
si aucun des resultats n'est >2 alors
affichage A
si au moins un des resultats est >2 alors
affichage B

pour cela j'utilise le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<%if dispo=0  then %>
 
    Affichage A
 
  <%end if%> 
 
<%if dispo <> 0  then %>
 
  Affichage A
 
  <%end if%>

mon code fonctionne si mon premier ou dernier enregistrement est >2
mais pas si il se trouve au milieu de mes resultats

merci

[Immobilis]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
<%
dispo = false
WHILE NOT RS.EOF OR not dispo
     if  rs("a3") > 2  then
           dispo = false
     else
           dispo = true
     end if
     RS.MoveNext 
WEND
%>

Ne mets pas des <% et %> partout...

[rony]

salut

Ce n'est pas tout a fait ce que je veux faire

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
 
<% 
dispo = false 
WHILE NOT RS.EOF OR not dispo 
 
 
vérification si un de mes enregistrements si a3 est >2
 
pas besoin d'afficher aucun enregistrement juste une verif
 
     RS.MoveNext 
WEND 
%>
 
et tout en bas de ma page
affichage d'un bouton réservé si aucun enregistrements n'est >2
 
ou affichage d'un message si un enregistrrement à été trouvé >2

si je met affichage de mon resultat pendant la verif on m'affiche un bouton ou pas pour chaque enregistrement

merci

[Gwenn]

Salut,

Et si tu modifiais ta requete SQL en ne selectionnat uniquement les enregistrements a3 >2 ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If Not Rs.EOF then
   Do While Not Rs.EOF
' Affichages des resultat le cas échéant
   Rs.Movenext
   Loop
 
Else
 
'Affichage du bouton
 
End If

[pc75]

Bonjour,

Si j'ai compris ce que tu veux faire ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dispo = false
do while not rs.eof or not dispo
   if rs("a3") > 2  then 
      dispo = true
   end if
   rs.movenext
end do
if dispo then
   Response.Write "Un message"
else
   Response.Write "<input type="button" name=..........>"
end if

[rony]

salut,


ça m'affiche un message d'erreur


Instruction attendue à la ligne

end do

merci

[pc75]

Re,

Autant pour moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dispo = false 
do while not rs.eof or not dispo 
   if rs("a3") > 2  then 
      dispo = true 
   end if 
   rs.movenext 
Loop
if dispo then 
   Response.Write "Un message" 
else 
   Response.Write "<input type="button" name=..........>" 
end if

[Immobilis]

Hé, ho, faut le laisser chercher un peu...

[roots_man]

end do
oki je -->