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")