<%
SQLSORGUSU = "SELECT * FROM tbl_urunler ORDER BY idno DESC;"
rs.Open SQLSORGUSU,ConnectionKOD,1

page = CInt(Request("page"))

	If (page ="" or page = 0) Then page = 1 Else page=page
	rs.pageSize = 10
	rs.absolutePage=page

Do While Not rs.Eof and i<rs.pagesize
	i=i+1
%>

'Burada Gösterilecek olan sütunlar v.b



'Movenext Loop
<%
rs.Movenext
Loop
%>


'Sayfalama kodları
<%
If page = 1 Then
Response.Write " "
Else
a = page -1
Response.Write "<a  href=?page=" & a & qstring &"><<  Önceki    </a> "
End If

	If page + 5 > rs.pagecount Then
	b = rs.pagecount
	Else
	b = page + 5
	End If
	
If page < 5 Then
c = 1
Else
c = page - 5
End If


	
	For j = c To b

If j = page Then
Response.Write "[<b>" & j & "</b>]  "
Else
Response.Write "<a href=?page=" & j & qstring &">" & j & "</a>  "
End If
Next

	If page = rs.pagecount Then
	Response.Write " "
	Else
	a = page + 1
	Response.Write "<a href=?page=" & a & qstring &">    Sonraki >></a> "
	End If

rs.close
set rs = Nothing
%>