Sayfalama konusunda küçük bir yardım lütfen

merhaba arkadaşlar sayfalama konusunda yardım istiyorum

sayfa görüntüm aşagıdaki gibidir



Ben bu sayfayı aşagıdaki gibi sıralamak istiyorum



Kodlarımda u şekildedir

<%
Set rs = Server.CreateObject ("ADODB.RecordSet")
sql = (" Select * from fikra order by id desc;" )
rs.open sql,yol,1,3

if rs.eof Then
Response.write"<center>kayıt yok</center>"
response.end
end if


if rs.recordcount<>0 then
topla=Rs.Recordcount
shf = Request.QueryString("shf")
if shf="" then shf=1
%>

<%
yon=0
rs.pagesize = 10
rs.absolutepage = shf
sayfala = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for
yon=yon+1
%>
<table align="top" width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bordercolor="#eeeeee">
<tr>
<td align="top" width="9%" bgcolor="#eeeeee"><a href="etiket-detay.asp?id=<% =rs("id")%>">
<img border=0 src="<% =rs("resim") %>" width="80" height="60" alt="" /></td>
<td class="description" width="80%" bgcolor="#eeeeee">&nbsp;&nbsp;<a href="etiket-detay.asp?id=<% =rs("id")%>"><b><% =rs("ad") %></b></a><br><p>&nbsp;&nbsp;<a href="etiket-detay.asp?id=<% =rs("id")%>"><% =rs("detay") %></a>
</a></span></td>
</tr>
</table>
<br />
<%
rs.movenext
next
rs.close
set rs=nothing
%>

yardımlarınızı bekliyorum arkadaşlar...

<% 
Baslangic = 1 
Bitis = 50 
SiraSayisi = 2 
%> 
 
<table> 
<tr><% for i = Baslangic to Bitis %> 
<td> <%=i%></td> 
<% 
If i mod SiraSayisi = 0 Then 
Response.Write "</tr><tr>" 
End If 
Next 
%> 
</tr> 
</table>

2'li Sıra Şeklinde 1 den 50 Ye Kadar Yan Yana sıraladım verileri mantık bu

Değişken Kullanımı :

Başlangic : Döngünün Başlama Değeri
Bitis : Döngünün Bitiş Değeri
SiraSayisi : Yan Yana Kaçlı Sırayla Listelenmesi