I have a problem with paging. The problem was when i clicked the next page, an error came out.I was trying to pass the same value to the next page but it seems cant work well. I dont have any idea what's wrong with it. Plz help me....
<LI>Error Type:
Microsoft JET Database Engine (0x80040E07)
Syntax error in date in query expression 'StartBookingDate= ## AND LabID= '''.
/v6/CheckAvailability.asp, line 53
<%Option Explicit
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adUseClient = 3
Const adCmdText = 1
Const adCmdTableDirect = &H0200
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</HEAD>
<TITLE>Rulang Primary School - Facilities Booking Details</TITLE>
<BODY bgcolor="#FDF8E3">
<%
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"
'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 =1
objRs.CursorLocation = adUseClient
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.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
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 : "
For z = 1 to ipage
If z = page then
pages = pages & page & " "
Else
response.write "hii"
pages = pages & " <a href=?Date="&DateID&"&room="&RoomID&"&page=" & z & ">" & z & "</a>" & " "End If
Next
response.write pages & " "
End If
if ipage > 1 And page > 1 Then
response.write "<a href=?Date="&DateID&"&room="&RoomID&"&page="& page - 1 &">Previous</a>"end if
response.write " "
If ipage > 1 And page < ipage Then
response.write "<a href=?Date="&DateID&"&room="&RoomID&"&page="& page + 1 &">Next Page</a>"end if
response.write "</b></p>"
objRs.Close
objConn.Close
set objRs = nothing
set objConn = nothing
%>
Problem with my paging...
