Problema con menú desplegable, datos desde una BD

[proyectosej]

Hola amigos.

Tengo el siguiente error y no se pq esta fallando.

Tengo una tabla en ACCES dónde guargo las categorias (tabla categorias) y otra donde relaciono las categorias con las subcategorias de estas (tabla subcategoria).

ej: [TABLA CATEGORIA] valor JABON
[TABLA SUBCATEGORIA] valor PIELES SECAS

La idea es hacer un menú desplegable, mostrando inicialmente el contenido de la tabla Categorias y una vez, hacienco "clik" encima, que muestre todas las subcategorias de la opción seleccionada.
Me funciona pero solo me muestra el valor de la subcategoria del primer registro. NO SE SI QUEDA CLARO...

OS ADJUNTO CODIGO
*********************

SQLusua1="SELECT DISTINCT categoria1 FROM categorias "
SQLusua2="SELECT categoria1,categoria2 FROM subcategoria "
set RSusua1=ConexionBd1.execute(SQLusua1)
set RSusua2=ConexionBd1.execute(SQLusua2)


While Not RSusua1.EOF
emenu=Rsusua1.fields("categoria1")
%>
<!--------INICIO MENU 1---------->
<div class="mainDiv" state="0">
<div class="topItem" classOut="topItem" classOver="topItemOver" onMouseOver="Init(this);" >
<p class="b01"><img src="images/e02.gif" width="6" height="5" alt="" border="0" align="absmiddle">&nbsp;&nbsp;<%=Rsusua1.fields("c ategoria1")%></div>
<div class="dropMenu" >
<div class="subMenu" state="0">
<%While Not RSusua2.EOF
If rsusua1.fields("categoria1")=rsusua2.fields("categ oria1") then%>
<span class="subItem" classOut="subItem" classOver="subItemOver"><a href="http://LOQUECORRESPONDA"><%=Rsusua2.fields("categoria2")% ></a></span><BR />
<%end if
RSusua2.Movenext
Wend%>
</P>
</div>
</div>
</div>

<div align="center"><img src="images/hr01.gif" width="137" height="3" alt="" border="0"></div>
<%
RSusua1.Movenext%>
<%Wend
RSusua1.CLOSE
RSusua2.CLOSE
Set RSusua1 = Nothing
ConexionBD1.Close
Set ConexionBD1 = Nothing
%>
**********************************

El menú de las catagorias iniciales lo muestra bien, el problema es que solo funciona con el primer registro, dónde si me muestra su subcategorias, del resto de opciones de menú no muestra nada.


Si alguien sabe y quiere ayudarme, se agradece.

Gracias por anticipado, saludos

[proyectosej]

ayudarme, estoy parado, no pudo concluir de una vez el proyecto.

Gracias

[tomchat]

Que estas utilizando para mostrar los datos "Select"...

[proyectosej]

tomchat, para la visualización de los valores de la Bd que conforman el menú, estoy utilizando esto: ;<%=Rsusua1.fields("c ategoria1")%>, dentro de los while correspondientes.

El problema es que solo me muestra el submenu correspondiente al primer registro de la Bd, del resto solo me muestra la opción inicial. No se si esta claro.

Gracias