Üçerli Sıralama - Asp ?

Merhaba arkadaşlar.
Şu anda kodlarım her sayfada alt alta 10 tane kayıt gösterip 1-2-3-4-5-6 şeklinde sayfalara bölmekte.
Benim istediğim her sayfada 3 satır - 3 sütun olmak üzere 9 kayıt gösterip 1-2-3-4-5-6 şeklinde sayfaları sıralaması.
Kodlarım aşağıda. Acaba nasıl yapmalıyım?

------------------------------------------

<!--#include file="baglanti.asp"-->

<%
s = Request.QueryString("s" )
If s = "" Then s = "1"
rs.PageSize = 10
rs.AbsolutePage = s
ss = rs.PageCount
For i = 1 To 10
If rs.Eof Then Exit For %>


<a href="icerik.asp?id=<%=Rs("id" ) %>"><img src="<%=Rs("resim" ) %>" border="0"></a><br>
<%=Rs("isim" ) %>


<% rs.Movenext
Next %>

<%
Response.Write "<b>Sayfa :</b>"
For g = 1 To ss
If g = CInt(s) Then
Response.Write "<b>" & g & "</b> "
Else
Response.Write "<b><a style=" "text-decoration: none" " href=" "default.asp?s=" & g & "" ">" & g & "</a></b> "
End If
Next
%>

bir td daha eklersen üclü bir daha eklersen 4 ... vs.. vs..
kolay gelsin

<table>
<%
theFinished = 0
For theX=1 To RecordsetAdi.RecordCount %>
<tr>
<td><%Response.Write RecordsetAdi("Deger" ) %></td>
<%
RecordsetAdi.Movenext
If RecordsetAdi.Eof Then
TheFinished = 1
Exit For
End If
%>
<td><%Response.Write RecordsetAdi("Deger" ) %></td>
</tr>
<%
RecordsetAdi.Movenext
If RecordsetAdi.Eof Then
TheFinished = 1
Exit For
End If
Next
If TheFinished = 1 Then Response.Write "</tr>" %>
</table>

Teşekkürler arkadaşım. Ama o şekilde istememiştim. Her sayfada 3x3 toplam 9 tane gösterip, diğer kalanlarıda 1-2-3-4-5-6 olarak listelemek istemiştim. Cevabı öğrendim. Şu anda çalışmalarım devamm ediyor.

İlgin için teşekkür ederim.

istediğin şey şunun gibi mi;
www.trgamer.com

zamanında bende asp ile ilgiliyken bunu istemiştim ama yapamamıştım.

Yok yok bu şekilde değil. Aşağıdaki şekilde.

Resim Resim Resim
Resim Resim Resim
Resim Resim Resim
Sayfa : 1 2 3 4 5

Sorun çözüldü. Şimdi uyguluyorum.