<%
Set sur = Server.CreateObject("Adodb.Connection")
sur.open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& server.MapPath("veritabani.mdb") 

SQL = "SELECT * FROM kategori"

Set rs = sur.Execute(SQL)

Do while not rs.eof

SQL = "Select SQL_CALC_FOUND_ROWS * from veriler WHERE kat_id = "&rs("id")&"" 'kayıt sayısı alınacak sorgu

Set kt = sur.Execute(SQL)

Set Toplam = sur.Execute("SELECT FOUND_ROWS() as kayit") 'burada kayıt sayısını alıyoruz kayit değişkenine eşitliyoruz

%>
<%=toplam("kayit")%>
<%
rs.movenext
Loop
rs.close
set rs = nothing
kt.close
set kt = nothing
%>

Hata Tipi:
Microsoft JET Database Engine (0x80040E14)
'SQL_CALC_FOUND_ROWS *' sorgu ifadesi içindeki Sözdizimi hatası (eksik işleç)
/sablon/default.asp, line 34