Probleme de boucles

Bonjour a tous
J evoudrais utiliser deux menu deroulant sur la meme page.
c deux menu font appelle a une base de donnée masi pas les memes tables
Le Probleme est que je na rrive pas a avoir deux menu deroulant avaec les bonnes valeurs. je pense que le prob vien des boucle!! si quelqu un pouvait ma aider ca serai sympa
Voici le code:
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = cn
rs.Open "SELECT CATEGORIE.nom_categ,PROCESSUS.nom_processus FROM CATEGORIE,PROCESSUS" , , , , AdCmdText

<br><u>Catégorie:</u>
<select name="categorie">
<% DO Until rs.EOF%>
<option><%=rs.Fields("nom_categ").Value%></option>
<%rs.movenext
loop
%></select><br><br>

<u>Processus:</u>
<select name="proc">
<% Do Until rs.EOF%>
<option><%rs.fields("nom_processus").Value%></option>
<%rs.movenext
loop%>
</select>
<%rs.close
cn.close%><br>

Merci d avance pour votre aide

<%
'la ligne suivante est affichée en deux ligne mais en fait elle doit être en une seule
Conn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.mapPath("database/base.mdb")

'Première requête pour selectionner la première table
set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM lenomdetatable"
rs.Open SQL conn, 3, 3

'Seconde requête pour selectionner les éléments de la seconde table
set rs2 = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT * FROM lenomdetonautretable"
rs2.Open SQL2 conn, 3, 3
%>


<select name="categorie">
<%
if rs.recordcount > 0 then
rs.movefirst
do while not rs.eof
%>
<option><%=rs("nom_categ")%></option>
<%
rs.movenext
loop
else
end if
%>
</select>
<br><br>

<select name="proc">
<%
if rs2.recordcount > 0 then
rs2.movefirst
do while not rs2.eof
%>
<option><%=rs2("nom_categ")%></option>
<%
rs2.movenext
loop
else
end if
%>
</select>
 Voila j'espere avoir répondu a ta question