Se hai due tabelle, Categoria e Sottocategoria, devi innanzitutto controllare di avere un campo di legame tra le due tabelle. Nella tabella Sottocategoria deve esserci un campo che contiene l'ID della Categoria a cui appartiene.
La select poi diventa:
"SELECT * FROM CATEGORIA,SOTTOCATEGORIA WHERE CATEGORIA.ID=SOTTOCATEGORIA.CATEGORIA_ID AND CATEGORIA.ID = " & Id_Cat
(dove Id_Cat è l'ID della categoria che gli passi di cui vuoi leggere le sottocategorie)

Per leggere gli elementi apaartenenti alla sottocategoria, devi semplicemente procedere come sopra: creare un campo di legame tra le tabelle Prodotto e Sottocategoria e nella select aggiungere anche questa terza tabella
"SELECT * FROM CATEGORIA,SOTTOCATEGORIA,PRODOTTI WHERE CATEGORIA.ID=SOTTOCATEGORIA.CATEGORIA_ID AND SOTTOCATEGORIA.ID=PRODOTTI.SOTTOCAT_ID AND CATEGORIA.ID = " & Id_Cat

Una volta effettuata la seconda select, che ti funziona, per poter caricare i dati nella pagina basta scrivere
<%=objRS("nomecampo")%>
Crei un ciclo che fino a quando non arrivi all'EOF del recordset e ti sposti al record successivo con objRS.MoveNext