haces una consulta con el distinct para poder obtener las categorias
sql = "select distinct cod_categorias, nom_categoria from tabla_categorias order by cod_categoria ASC"
Set RScategorias = oConn.Execute(sql)
Do While Not RScategorias.EOF
codigo_categoria = RScategorias("cod_categoria")
nombre_categoria = RScategorias("nom_categoria")
sqlcuantos = "SELECT cod_producto, COUNT(codig_productos) AS Cuantos "_
& "FROM existencias "_
& "where cod_categoria= '"&codigo_categoria&"' "_
& "GROUP BY codigo_producto"
Set RScuantos = oConn.Execute(sqlcuantos)
cuantos = rscuantos("cuantos")
%>
<p><%=nombre_categoria%> (<%=cuantos%>)<p>
<%
RScategorias.MoveNext
loop
algo asi no he fumado :P