recordset asp et boucle do

bonjour a tous,
j'ai un leger probleme avec mon code, il doit representer graphiquement (avec un tableau) une salle de theatre et afficher en rouge les places non dispos et en vert celle qui le sont. Malheureusement il ne le fait qu''avec la premiere place et ignore les autres (ce qui est plutot facheux..) j'ai essayé tout un tas de trucs avec une boucle DO until, mais sans resultat. donc j'aurais besoin d'un coup de main parce que je pete un petit peu un plomb. voici le code et le lien de ce que ca me donne dans mon navigateur. étant donné que le code fait 245lignes je ne transmet que la partie 'orchestre'

http://www.flickr.com/photos/28204823@N07/2783407079/sizes/o/

merci

<table width="800" border="1" align="center" cellspacing="'" >
<tr>
<td colspan="3" align="center"> <u><b><h2>Orchestre</h2></b></u><hr>
<!-- RECHERCHE DES PLACES de la ZONE orchestre -->

<%
RqZone="SELECT * FROM plan_theatre WHERE id_theatre=" & id_theatre
RqZone=RqZone & " AND zone LIKE 'orchestre' "
RqZone=RqZone & " ORDER BY rangee ASC, position ASC "
Set Rplan = Server.CreateObject("ADODB.Recordset")
LastRangee=""
Rplan.Open RqZone, DBconn, 3
if Rplan.EOF OR Rplan.BOF Then
else
do until rplan.eof
if LastRangee<>Rplan("rangee") then
if LastRangee<>"" then
response.Write "</td></table><table>"
else
response.write "<table><td>"
end if
LastRangee=Rplan("rangee")
end if

%>
<Td colspan="3" ALIGN="CENTER" title="<%=TitleAff%>"> <%
Rqnum_resa= "select * FROM resa_place_jr"
Set rnum_resa = Server.CreateObject("ADODB.Recordset")
Rnum_resa.Open Rqnum_resa, DBconn, 3
If Rnum_resa.EOF OR Rnum_resa.BOF Then
else
'response.write Rnum_resa("num_resa")
'response.end
check=id_spec&rplan("num_place")&LaDtChoisie '
if rnum_resa("num_resa")=check then
%> <td bgcolor="#FF0000"> <%=Rplan("num_place")%> </td><%
else
%>
<td bgcolor="#00FF33"><a href="reservations_part3.asp?id_spec=<%=id_spec%>&num_place=<%=rplan("num_place")%>&laDate=<%=LaDtChoisie%>">
<%=Rplan("num_place")%>
</a></td></center>
<%
set rnum_resa=nothing
end if
end if
Rplan.movenext
loop
End if
response.write "</tr></table>"
%>
</tr>

A tester ... :

<table width="800" border="1" align="center" cellspacing="'" >
<tr>
<td colspan="3" align="center"> <u><b><h2>Orchestre</h2></b></u><hr>
<!-- RECHERCHE DES PLACES de la ZONE orchestre -->
<%
RqZone="SELECT * FROM plan_theatre WHERE id_theatre=" & id_theatre
RqZone=RqZone & " AND zone LIKE 'orchestre' "
RqZone=RqZone & " ORDER BY rangee ASC, position ASC "
Set Rplan = Server.CreateObject("ADODB.Recordset")
LastRangee=""
Rplan.Open RqZone, DBconn, 3

while not Rplan.eof
 ' -------------------------------------------------
 if LastRangee<>Rplan("rangee") then
  if LastRangee<>"" then
   response.Write "</td></table><table>"
  else
   response.write "<table><td>"
  end if
  LastRangee=Rplan("rangee")
 end if
 ' -------------------------------------------------
 %>
 <td colspan="3" ALIGN="center" title="<%=TitleAff%>">
 <%
 Rqnum_resa= "select * FROM resa_place_jr"
 Set rnum_resa = Server.CreateObject("ADODB.Recordset")
 Rnum_resa.Open Rqnum_resa, DBconn, 3
 ' -------------------------------------------------
 while not Rnum_resa.eof
  check=id_spec & rplan("num_place") & LaDtChoisie
  if rnum_resa("num_resa")=check then
   %> <td bgcolor="#FF0000"> <%=Rplan("num_place")%> </td> <%
  else
   %>
   <td bgcolor="#00FF33">
   <a href="reservations_part3.asp?id_spec=<%=id_spec%>&num_place=<%=rplan("num_place")%>&laDate=<%=LaDtChoisie%>">
   <%=Rplan("num_place")%>
   </a></td>
   <%
   set rnum_resa=nothing
  end if
 Rnum_resa.movenext
 wend
 ' -------------------------------------------------
Rplan.movenext
wend
response.write "</tr></table>"
%>
</tr>

Merci pour ton code, je m'en suis ispiré pour modifier le mien. maintenant ca marche, sauf que maintenant, il compare chaque place a chaque résa et l'affiche.  j'ai 8 resa et il m'affiche chaque place 8 fois.
RHaaaaaa j'vais le tuer.....

Merci

Les fins de boucles sont peut-etre mal placées :
(comme je ne connais pas comment est agencée ta base ...)
while not Rnum_resa.eof
...
 Rnum_resa.movenext
 wend

A voir ...