<% if rs.eof or rs.bof then
Response.Write " Henüz Kayıtlı İtiraf Yok"
Response.end
end if
%><%
cilemsayfa = Request.QueryString("cilemsayfa")
If cilemsayfa="" Then cilemsayfa=1
rs.pagesize = sayfa_sayisi
rs.absolutepage = cilemsayfa
cilemsayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<% response.Write "Sayfalar: "%><%
onceki = cint(cilemsayfa) - 1
sonraki = cint(cilemsayfa) + 1
%>
<%
if onceki < 1 then
response.write ""
else
response.write " ◄Önceki"
end if
%>
<%
for cilemsayfa_no = 1 to cilemsayfa_sayisi
if cilemsayfa_no = cint(cilemsayfa ) then
%>
<% else
response.Write " "
end if
next %>
<%
if sonraki > cilemsayfa_sayisi then
response.write ""
else
response.write "Sonraki ►"
end if
%>
