Non riesco a contare

[Gio&Ste]

Voglio contare, ma non ci sto riuscendo
Faccio così:

<% 
	Do while NOT rs.EOF 
	%>	
		[*]&cat=<%=rs("cat")%>"><%=rs("cat")%> 
			<%
				cat = rs("cat")
				sqlcount = "SELECT count(cat) FROM aziende where cat="& rs("cat")
Set RScounts = Conn.Execute(sqlcount) 
rcounts = RScounts(0)
Response.Write ("(" & rcounts & ")")
		%>

Mi viene fuori questo errore:
Too few parameters. Expected 1.
line 63

La linea 63 è quella rossa!