Sayfalama ve yan yana sıralama için güzel bir örnek kod;
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<title>Sayfalama</title>
</head>
<body>
<table width="100%" border="0" align="center">
<tr>
<%
'CODE BY FATIH
Set rs = Server.CreateObject("Adodb.Recordset")
rsSQL="SELECT * FROM tabladi ORDER BY idno DESC"
rs.Open rsSQL,dbcon,1
ToplamKayit=rs.RecordCount
page = CInt(Request("page"))
If (page ="" or page = 0) Then page = 1 Else page=page
rs.pageSize = 15 'BİR SAYFADA KAÇ TANE OLACAĞI
rs.absolutePage=page
Do While Not rs.Eof and i<rs.pagesize
i=i+1
%>
<td><%=rs("SutunADI")%></td>
<%
IF i MOD 3 = 0 Then Response.Write("<tr></tr>") 'SAYI NEYSE O KADAR YANYANA OLUR
rs.Movenext
Loop
%>
</tr>
</table>
<center><b>TOPLAM : <%=ToplamKayit%> </b><br>
<%
If page = 1 Then
Response.Write " "
Else
a = page -1
Response.Write "<a href=?" & 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=?" & j & qstring &">" & j & "</a> "
End If
Next
If page = rs.pagecount Then
Response.Write " "
Else
a = page + 1
Response.Write "<a href=?" & a & qstring &"> Sonraki >></a> "
End If
rs.close
set rs = Nothing
%></center>
</body>
</html>