pues utilizando SQL harìa:
<% Set RS = conn.execute("SELECT COUNT(categoria) as cuantos FROM tabla group by categoria"%>
para imprimir el valor harias
<%= RS("cuantos")%>
el group by es para uqe agrue los datos por categoria y al contar lo haga separando cada categoria
<img src="http://www.iea-adm.sep.gob.mx/firma.gif">