codice:
query="SELECT DISTINCT sottocategoria WHERE categoria = ' " & categoria & " ' "
SET RS = Conn.Execute (query)
IF RS.EOF THEN
response.wrtite (messaggio che vuoi tu)
ELSE
scrivi le sottocategorie
END IF
SET RS = Nothing
Se ho capito bene, dovrebbe anadare bene così.