Contar Registros

[OooH-Boy]

Hola ya encontre la solucion aqui eta. pero ahora quisiera si alguien me dice como meterlo dentro de una tablita con su encabezado .

sSQL = "SELECT Table1.Accion, Count(Table1.ID) AS Cantidad FROM Table1 GROUP BY Table1.Accion"

'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>
<center>

<%
do while not rs.eof
Total = Total + rs("cantidad")
%>
<%
response.write rs("Accion") & ": " & Rs("cantidad")
response.write "<br>"
rs.movenext
loop
response.write "<b>" & "Total: " & Total

'Cerramos el sistema de conexion
Conn.Close
%>