Contare record

[Criterio]

Scusate se posto a nuovo, ma nella ricercanon ho trovato nulla che faccia al caso mio.
Quello che mi serve è contare i record di una tabella, ma relativi ad uno specifico ID.
mi spiego, nella tabella ho una colonna chiamata forumID, io devo contare i record di ogni ID

es:
ForumID 1 = record 2
ForumID 2 = record 7

ho provato con questo, ma mi restituisce il numero complessivo
<% Dim db1Path
db1Path = Server.MapPath("database/miodb.mdb")
Dim cn1, rs1, sql1
Set cn1 = Server.CreateObject("ADODB.Connection")
cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&db1Path
sql1 = "SELECT COUNT(*) AS RECORD_COUNT FROM tblForumPosts WHERE ForumID"
Set rs1 = cn1.Execute(sql1)
%>

Grazie
Crit!

[Criterio]

Proprio nessuna idea?

[Iskender]

non where ma "FROM tabella
GROUP BY id;"

ciao

[asdfgasdfg]

SE HO CAPITO IL TUO PROBLEMA, LO RISOLVI COSI'

sql1 = "SELECT COUNT(*) AS RECORD_COUNT FROM tblForumPosts GROUP BY ForumID"
Set rs1 = cn1.Execute(sql1)

[Iskender]

piu esattamente "SELECT Count(quello che pare) AS come ti pare FROM tabella GROUP by ID"

Ciao

[Criterio]

Grazie a tutti..

un problema però:

io stampo i dati raccolti così:

<%Response.Write(" <font color=""red""> "&rs1("RECORD_COUNT")&"</font>")%>

solo che mi retituisce i dati di un solo ID.

mentre invece io devo stamparli tutti
esattamente come per questo forum
ad ogni discussione corrisponde il numero di post

[Iskender]

usa while etc etc end of file
Response.Write(etc etc)
next

ciao

[Criterio]

abbi pazienza, ma con etc etc non capisco

[cidific]

do while not rs1.eof
 <%Response.Write(" <font color=""red""> "&rs1("RECORD_COUNT")&"</font>")%>
 rs1.MoveNext
loop 

[Criterio]

Grazie per la pazienza!

funziona