Database paging in ASP

Posted: 2002-06-01
By: ArchiveBot
Viewed: 49

Filed Under:

ASP/ HTML

No attachments for this post

I wanted to add paging code in my project.I've seen all other codes on the site but they are not at all worth for me. Now I've written a code which is very easy to understand and can be used by any student or professional in their projects.

Original Author: Vivek Tanaji Kulthe

Assumptions

This program assumes that you have dsn = 'myDSN' or replace 'myDSN' with your existing DSN.

Returns

This program displays 5 records at a time from any database. You can change no. of records per page by changing the value of iPageSize variable

Code

<%
Const iPageSize=5 'How many records to show
Dim CPage 'Current Page No.
Dim Cn 'Connection Object
Dim Rs 'Recordset Object
Dim TotPage 'Total No. of pages if iPageSize records are displayed per page.
Dim i 'Counter
CPage=Cint(Request.Form("CurrentPage")) 'get CPage value from form's CurrentPage field
Select Case Request.Form("Submit")
Case "Previous" 'if prev button pressed
CPage = Cint(CPage) - 1 'decrease current page
Case "Next" 'if next button pressed
CPage = Cint(CPage) + 1 'increase page count
End Select
Set Cn=Server.CreateObject("ADODB.Connection") 'create connection
Cn.CursorLocation = 3
Cn.Open "myDSN"
Set Rs=Server.CreateObject("ADODB.Recordset") 'create recordset
Rs.Open "Select * from studentmaster",Cn,2,2
Rs.PageSize=iPageSize
If CPage=0 then CPage=1 'initially make current page = first page
If Not(Rs.EOF) Then Rs.AbsolutePage=CPage 'specifies that current record resides in CPage
TotPage=Rs.PageCount 'stores total no. of pages
%>




Database paging example

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.