<%
strSQL = "SELECT cbk_routes.curSTATUS As curSTATUS, cbk_routes.routeID As routeID, cbk_routes.schoolID As schoolID, cbk_routes.timeSTART As timeSTART, cbk_routes.routename As routeNAME, cbk_routes.pickup As pickup, cbk_routes.dropoff As dropoff, cbk_routes.pupilIDS As pids FROM cbk_routes WHERE cbk_routes.schoolID='"&str_u_id&"'"
IF request("q")<> "" THEN
qfrom=sanitizeRequest("q","querystring")
strSQL=strSQL & " AND cbk_routes.routename LIKE '%"&qfrom&"%' OR cbk_routes.schoolID='"&str_u_id&"' AND cbk_routes.pickup='"&qfrom&"' OR cbk_routes.schoolID='"&str_u_id&"' AND cbk_routes.dropoff='"&qfrom&"'"
END IF
strSQL=strSQL & oBy
strCSQL = replace(strSQL,"SELECT cbk_routes.curSTATUS As curSTATUS, cbk_routes.routeID As routeID, cbk_routes.schoolID As schoolID, cbk_routes.timeSTART As timeSTART, cbk_routes.routename As routeNAME, cbk_routes.pickup As pickup, cbk_routes.dropoff As dropoff, cbk_routes.pupilIDS As pids","SELECT count(*) AS rCount")
SET rsBC = dbCBK.Execute(strCSQL)
rCount=0
DO WHILE NOT rsBC.EOF
rCount=CInt(rsBC("rCount"))
rsBC.MoveNext
loop
rsBC.Close
SET rsBC = Nothing
'results per page
perpage=100
'number of pages
nSplit=rCount/perpage
nPages=CInt(rCount/perpage)
IF nsplit > nPages THEN nPages=CInt(rCount/perpage)+1 END IF
IF nPages < 1 THEN nPages=1 END IF
'current page
curPage=sanitizeRequest("page","querystring")
IF (curPage <> "") THEN
IF IsNumeric(curPage) AND curPage > "0" THEN
curPage=Cint(curPage)
ELSE
curPage=1
END IF
ELSE
curPage=1
END IF
IF curPage > nPages THEN
curPage=nPages
END IF
endPoint=perPage*curPage
startPoint=endPoint-perPage
strSQL=strSQL & " order by `routeID` asc"
SET rsB=dbCBK.Execute(strSQL)
'response.write(strSQL)
%>
<%IF rsB.EOF THEN%>
None found.
<%END IF%>
View
Route
Time Start
Onboard
Expected
Locate
<% rowN=1
DO WHILE NOT rsB.EOF
curSTATUS=rsB("curSTATUS")
rID=rsB("routeID")
sID=rsB("schoolID")
route=rsB("routename")
timeSTART=rsB("timeSTART")
onb=fetchOnboardPassengerCount(sID,rID)
str_pupil_ids=rsB("pids")
IF str_pupil_ids <> "none" AND NOT(IsNull(str_pupil_ids)) THEN
str_pids=split(str_pupil_ids,"||")
str_p_cnt=0
for each x in str_pids
IF IsNumeric(x) THEN
str_p_cnt=str_p_cnt+1
END IF
next
ELSE
str_p_cnt=0
END IF
%>
<%ELSE%>--<%END IF%>