Query and count

[OooH-Boy]

Mi table1, y el registro es Name, que me puedes decir este code no me funciona pero si me das una manito.


<%@ language="VBScript" %>

<% 'specify the provider
strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\coment.mdb"
'define the search query
SQL = "SELECT Name, Count(Name) AS Cantidad FROM Table1 GROUP by Name"
%>
<% do while not rs.eof
Total = Total + rs("cantidad")
response.write rs("colores") & ": " & Rs("cantidad")
response.write "<br>"
rs.movenext
loop
response.write "Total: " & Total %>

<% end if
'close products recset and flush from memory
rsProds.Close
set rsProds = Nothing
end if %>