Trong bài sử dụng file data.mdb là csdl MS access 2003 để phân trang mẫu, với CSDL SQL Server bạn cũng có thể sử dụng cách tương tự như trên để phân trang với ngôn ngữ lập trình ASP.

+ Mở RSData với các đối số strSQL, adoCon, 3, 3
 

Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "PROVIDER=Microsoft.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("data.mdb")
Set rsData = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM KAI_BLOG"
rsData.Open strSQL, adoCon, 3, 3  
  If rsData.RecordCount > 0 Then           ' Chac chan co ban ghi
     rsData.PageSize = 4                   ' So ban ghi tren mot trang
     rsData.AbsolutePage = intPage         ' Trang hien tai
     intTotalPage = rsData.PageCount       ' Tong so trang
     intI = 0                              ' Bien dem
     strResult = ""
     while not rsData.EOF and intI < rsData.PageSize
        ' Xữ lý dữ liệu ở các record tại đây
        rsData.MoveNext
        intI = intI + 1
     wend
     If intTotalPage > 1 Then
        'Nếu số trang lớn hơn 1, tiếp tục tạo các link nhãy trang
     End If
  End If
rsData.Close
adoCon.Close
Set rsData = Nothing
Set adoCon = Nothing

Trên đây là một số lưu ý trong code xữ lý phân trang với ASP và ADODB.RecordSet.

Download code mẫu và csdl tại đây.