<%
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "SELECT * FROM kategori order by sira asc", cilem, 1, 3
radet = rs.recordcount
limit = 40
if request("s")<>"" then
sayfa = cdbl(request("s"))
rs.move sayfa*limit
else
sayfa = 0
end if
for t=1 to limit
if rs.eof then exit for
%>