Algo así?
<%
Set oConn=Server.CreateObject("ADODB.Connection&q uot;)
oConn.Open "DSN"
SQL="SELECT COUNT(*) AS COUNTER FROM PRODUCTOS GROUP BY FAMILIA"
'SQL="SELECT * FROM PRODUCTOS"
Set RS=oConn.Execute(SQL)
DO WHILE NOT RS.EOF
Response.Write RS("Counter")&"<BR>"
RS.Movenext
Loop
oConn.Close
Set oConn=Nothing
Set Rs=Nothing
%>
<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>