Problemas Con Inner Join Dentro De <select>

[proyectosej]

Buenas amig@s, que tal todo? Espero que bien.

Os cuento, tengo una pag para dar de Alta productos en la Web (administración), y mi problema es que necesito que según la Familia inicial que seleccionen, me muestre en el siguiente Select , las subcategorias de este y si procede la tercera categoria, no se si me he explicado bien.

Para esto tengo las siguientes tablas (acces)

CATEGORIAS:
ID : (autonum)*clave principal
CATEGORIA1 : (Descripción de las diferentes categorias iniciales).

SUBCATEGORIA:
ID:autonumerico
CATEGORIA2:(Descripción de las diferentes Subcategorias).
ID_CATEGORIA1:(Se guarda el ID de la categoria1 de la tabla CATEGORIAS).


CODIGO ASP (PARTE REFERENTE A LO COMENTADO)

<font color="#595959" face="Arial" size="3" > &nbsp;Categoria Principal
<%' * PROCESO PARA SABER LAS CATEGORIAS QUE HAY EN LA BD.- CATEGORIA PRINCIPAL *
dim conexionBdn2,rsusuan2,sqlusuan2,cate1,cate2,cate3
Set ConexionBdn2=Server.CreateObject("ADODB.Connection ")
SQLn2 = "SELECT DISTINCT categoria1,id FROM categorias "
conexionBdn2.Open"DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("LOQUESEA/XXXX.mdb"),3,1
set RSusuan2=ConexionBdn2.execute(SQLn2)
%>
<select size="1" name="cate1" >
<%
While Not RSusuan2.EOF
p=Request.Form("categoria1")

%>
<option value="<%=rsusuan2.fields("categoria1")%>" selected="selected">
<%=rsusuan2.fields("categoria1")%></option>

<%
RSusuan2.Movenext
Wend
%>
</select>
<br><br>
<%'*************************** PROCESO PARA SABER LAS CATEGORIAS QUE HAY EN LA BD.- SEGUNDA CATEGORIA%>


<font color="#595959" face="Arial" size="3" > &nbsp;Segunda Categoria
<select size="1" name="cate2">
<%

SQL ="SELECT a.id,a.categoria1, b.id_categoria1,b.categoria2 FROM categorias a INNER JOIN subcategoria b ON b.id_categoria1=a.id "
set RSsegunda=ConexionBdn2.execute(SQL)

While Not RSsegunda.EOF

'If RSusuan2.fields("id")=rssegunda.fields("id_categor ia1") then%>[/COLOR]
<option value="<%=rssegunda.fields("categoria2")%>" selected="selected"><%=rssegunda.fields("categoria 2")%></option>
<%'end if

RSsegunda.Movenext
Wend%>

</select>
*************************************************
NOTA: El último IF esta comentado ya que si no reporta error de inconsistencia de datos.
En principio dicho IF tendria que mostrarme los productos de la subcategoria correspondientes a la categoria inicial seleccionada.


Espero que me puedan ayudar

Muchas Gracias