Set haberdondur = conn.Execute("SELECT left(data,200) as datam,catid,count(catid) as catsay,id,uid,subject,hit,username FROM data where catid="&catid&" And Onay='E' group by catid ORDER BY id DESC LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi)
Genişletmek icin tıkla ...

Top = cint(haberdondur("catsay"))
Topkayit=Top(0)

Tek sorguyla 3 işlem yaptırmak istiyorum.
Topkayit dışında hatasız calışıyor.

Verdiği hata kodu
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'Top'

Burada hata nerede anlayan varmı?