sayfalama

arkadaslar ben veri tabanından verileri çekerken misal db de 100 tane yazı var her sayfada 10 tane cektıgımde en allta su sekıl sayfalama yapıyor

1 2 3 4 5 6 7 8 9 10

oysaki ben su sekılde alta cıkmasını istiyorum

geri<1 2 3 4 5 >ileri

yanı bu kısımdada 5 er 5 er gostersın ıstıyorum benım kulladıgımda ne kadar varsa o kadar cıkartrıyoru 1k yazı olsa 100 sayfa asagıda 1 2 3... 100 e kadar hepsi gidiyor bu da görüntü kirliliği yapıyor benim pek hoşuma gitmiyor yardımcı olacak arkadaşlara şimdiden teşekkür ederim

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