Tablodaki kayıt sayısı çıkarma sorunu hk.

Arkadaşlar bir kategori altındaki verilerin sayısını çıkarmak istiyorum ama yapamadım bir türlü. Daha önce buna benzer bir kod ile çıkarabiliyordum sayıyı. Nerede yanlışlık yaptığımı anlayamadım. Yada bunun daha kolay bir yolu var mıdır?

<%
set WM = Server.CreateObject("ADODB.Recordset")
baglanti = "SELECT * FROM kategoriler order by kategori_adi asc"
WM.Open baglanti, Sur
do while not WM.eof

set WM2 = Server.CreateObject("ADODB.Recordset")
baglanti1 = "SELECT * FROM veriler where kategori_id = '"&WM("kategori_id ")&"'"
WM2.Open baglanti1, Sur
%>

<%=WM("kategori_adi")%> <br/> (<%=WM2.RecordCount%>)
<%WM2.Close%>

<%WM.movenext
loop
WM.Close
set WM = Nothing%>

çıkan görüntü de bu kodu çalıştırdığımda

veritabanınız Mysql ise

set WM2 = Server.CreateObject("ADODB.Recordset")
baglanti1 = "SELECT COUNT(*) AS toplam FROM veriler where kategori_id = '"&WM("kategori_id ")&"'"
WM2.Open baglanti1, Sur
'yazdırmak için
response.write WM2("toplam")