<%
	'*********************************************
Syf	= Request.Querystring("Syf")
		
if Syf="" then Syf="1" end if
	
	'**********************************************
%>	

<%
	Set RS=Server.CreateObject("ADODB.RecordSet")
		RS.open "SELECT * FROM Tablo order by ID DESC",Connection,3,1
														
	if RS.RecordCount>0 then
	RS.SyfSize=10
	RS.AbsoluteSyf=Syf
	end if
%>
													
<% rowCount=0 %>
<% while not RS.EOF AND rowCount<RS.SyfSize %>
<% rowCount=rowCount+1 %>


İçerik gelecek

													
<% RS.MoveNext %>
<% wend %>
													
<% if RS.SyfCount>1 then %>
													
<%
	ilkSayfam=Syf-10
	if ilkSayfam="0" or ilkSayfam<"0" then ilkSayfam="1" end if
	sonSayfam=Syf+10
														
	if RS.SyfCount<sonSayfam then sonSayfam=RS.SyfCount else sonSayfam=sonSayfam end if
%>
Sayfalama

<% if Syf-1<>"0" then %>
<td><a  href="?ID=<%=ID%>&Syf=<%=Syf-1%>"><< Geri</a></td>
<td width="6"></td>
<% end if %>
																		
<%for i=ilkSayfam to sonSayfam %>
	<%if i<>CINT(Syf) then%>
	<a href="?ID=<%=ID%>&Syf=<%=i%>"><td  align="center"><%=i%></td></a>
	<%else%>
	<td align="center" bgcolor="#f3ede3"><b><%=i%></b></td>
	<%end if%>
<%next%>
																		
<% if not int(Syf)=int(RS.SyfCount) then %>
<td width="6"></td>
<td><a  href="?ID=<%=ID%>&Syf=<%=Syf+1%>">İleri >></a></td>
<%end if%>