Hi,

I have problem with paginating those pages. The problem that i encountered was i jz couldn't display the next 10 records. And even i changed the pagesize to 20. It still jz displayed 10 records at 1 page only..In addition to that, i also tried to print the display number value when i changed the pagesize to 20 but it printed 1 to 10 onli..So can anyone tell me what's the problem with my coding?

The following is my coding:

<%
Dim strConn, objConn
Dim pages, objRs, DisplayNum, i, page, ipage, z
Dim objRsPage, strSQL
Dim RowCount
Dim PageCounter
Dim DateID, RoomID, strPeriod
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath("dbBooking.mdb") & ";Persist Security Info=False"
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adUseClient = 3
Const adCmdText = 1

'Get the Current page
page = request.querystring("page")
If page = "" Then
page = 1
else
page = cint(page)
End If
DisplayNum = 0
DateID = Request.QueryString("StartID")
RoomID = Request.QueryString("ID")
Set objConn = Server.CreateObject ("ADODB.Connection")
Set objRs = Server.CreateObject ("ADODB.Recordset")
objConn.Open strConn
objRs.PageSize = 20
objRs.CursorLocation = adUseClient
objRs.CacheSize = 20
strSQL = "SELECT StartBookingDate, LabID, Name,PeriodFrom, PeriodTo, Class FROM LAB_BOOKING INNER JOIN STAFF_LISTS ON LAB_BOOKING.TeachersID = STAFF_LISTS.TeachersID WHERE StartBookingDate= #" & DateID & "# AND LabID= '" & RoomID & "' ORDER BY PeriodFrom"
'objRs.CursorType = 3 'adOpenStatic
objRs.Open strSQL, objConn

if objRs.EOF OR objRs.BOF Then
response.write "<br><br>"
response.write "<p align=center><b>No Records.</b></p>"
response.write "<p align=center><b>To continue, please close this window...</b></p>"
else
ipage = objRs.PageCount
if page = 0 or page > ipage Then
objRs.AbsolutePage = ipage
else
objRs.AbsolutePage = page
end if

Response.Write("<center><H1 style='font-size:24px;'>Facilities Booking Information<br></H1></center>")
Response.Write("<TABLE Align='CENTER' Border=1 CELLSPACING='10' CELLPADDING='1' WIDTH='625'>")
Response.Write("<tr><th>Booking Date(YYYY-MM-DD)</th><th>Lab</th><th>Start</th><th>End</th><th>Name</th><th>Class</th></tr>")
Do While Not objRs.EOF AND DisplayNum<20
Response.Write("<tr><td align= 'center' valign='top' width='300' style='font-size:14px;'>" & objRs("StartBookingDate") & "</td><td valign='top' align= 'center' style='font-size:14px;'>" & objRs("LabID") & "</td><td align= 'center' valign='top' width='200' style='font-size:14px;'>" & objRs("PeriodFrom") & "</td><td align= 'center' valign='top' width='200' style='font-size:14px;'>" & objRs("PeriodTo") & "</td><td align= 'center' valign='top' width='200' style='font-size:14px;'>" & objRs("Name") & "</td><td align= 'center' valign='top' width='200' style='font-size:14px;'>" & objRs("Class") & "</tr>")
DisplayNum = DisplayNum + 1
Response.write(DisplayNum)
objRs.MoveNext
Loop
End If
Response.Write "</TABLE>"
If ipage > 1 Then
response.write "<p align=center>"
pages = "<b>Pages : &nbsp;"
For z = 1 to ipage
If z = page then
pages = pages & page & " "
Else
pages = pages & " <a href=?room="&RoomID&"&Date="&DateID&"&page=" & z & ">" & z & "</a>" & " "
End If
Next
response.write pages & "&nbsp;&nbsp;"
End If
if ipage > 1 And page > 1 Then
response.write "<a href=?room="&RoomID&"&Date="&DateID&"&page="& page - 1 &">Previous</a>"
end if
response.write "&nbsp;&nbsp;"
If ipage > 1 And page < ipage Then
response.write "<a href=?room="&RoomID&"&Date="&DateID&"&page="& page + 1 &">Next Page</a>"
end if
response.write "</b></p>"
objRs.Close
objConn.Close
set objRs = nothing
set objConn = nothing
%>

Check your data in the database whether you have data in the fields?

Ya. I have checked the database already. I have 15 records but the page could only display 10 records. And I tried to delete 8 records and refreshed the page again. It even didn't show 7 records but it jz showed 4 records onli. I have tried to print the display number only which jz printed 4 rather then 7. So i really don't have any idea with it.. Can you plz help me??

  Hi,

     I didnt find any error there. Otherwise you follow this link and find the mistake if any.

http://www.asp101.com/articles/recor...ging/index.asp

Hey,

if objRs.EOF OR objRs.BOF Then

From what I understand, when you open a recordset, it is BOF by default at the start. Maybe just test the EOF condition when you open it? Since you aren't moving records ahead of this check, you probably don't need to test for BOF.

Brian