asp sorunu

<%
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
%>

bu kodda şu şekilde bir hata ile karşılaşıyorum.

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

sorunun kaynağı nedir acaba

sur.Execute("SELECT FOUND_ROWS() as kayit";)

şu kısmı yandaki şekilde deneyin hocam

hocam hata veren 34. satır

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

yukarıdaki koda denk gelmekte.

SQL_CALC_FOUND_ROWS, MySQL' e özgü değil mi Siz MS Access'e bağlanmışsınız!

Abi senin yapmak istediğin nedir tam olarak? Burada çok anlamsız SQL Cümleleri var yapmak istediğini söylersen yardımcı olalım. hatanın kaynağı tamamen kurmuş olduğun sql cümleleri.