<% response.buffer = true IF (checkPermission("routes")="FAILED") THEN response.write("You do not have permission to view this page") response.end END IF StrError="None" IF REQUEST("update")="itinerary" THEN rID=sanitizeRequest("erouteid","form") IF rID <> "" AND IsNumeric(rID) THEN 'ok ELSE StrError="The route ID is required" END IF pupilIDS=sanitizeRequest("assignedPupils","form") IF StrError <> "None" THEN 'print the errors ELSE dbCBK.Execute("UPDATE cbk_routes SET `pupilIDS`='"&pupilIDS&"' WHERE `routeID`='"&rID&"' limit 1") response.redirect("/super-user/control-panel/?go=itinerary¬ify=Itinerary+updated&nact=success") END IF END IF %>
err
<%IF StrError <> "None" THEN%>
<%=StrError%>
<%END IF%>

Itinerary

Here you can update the route itinerary.
   

Search For A Route

To manage the assigned pupils.
" style="width:78%;float:left;border-top-right-radius:0px;border-bottom-right-radius:0px;" />
 
<% strSQL = "SELECT cbk_routes.routeID As routeID, cbk_routes.schoolID As schoolID, cbk_routes.routename As routeNAME, cbk_routes.pickup As pickup, cbk_routes.dropoff As dropoff, cbk_schools.schoolname As schoolname FROM cbk_routes LEFT JOIN cbk_schools ON cbk_routes.schoolID = cbk_schools.schoolID WHERE cbk_routes.routeID > 0" IF request("q")<> "" THEN qfrom=sanitizeRequest("q","querystring") strSQL=strSQL & " AND cbk_routes.routename LIKE '%"&qfrom&"%' OR cbk_routes.routeID > 0 AND cbk_routes.pickup='"&qfrom&"' OR cbk_routes.routeID > 0 AND cbk_routes.dropoff='"&qfrom&"'" END IF strSQL=strSQL & oBy strCSQL = replace(strSQL,"SELECT cbk_routes.routeID As routeID, cbk_routes.schoolID As schoolID, cbk_routes.routename As routeNAME, cbk_routes.pickup As pickup, cbk_routes.dropoff As dropoff, cbk_schools.schoolname As schoolname","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" & " limit " & startPoint & ", " & perpage SET rsB=dbCBK.Execute(strSQL) 'response.write(strSQL) %> <%IF rsB.EOF THEN%>

None found.
<%END IF%>
<%IF curPage > 1 THEN%> previous <%ELSE%> previous <%END IF%> Page <%=curPage%> of <%=nPages%> <%IF npages > curPage THEN%> next <%ELSE%> next <%END IF%>
<% rowN=1 DO WHILE NOT rsB.EOF %> "> <% rowN=rowN+1 rsB.MoveNext loop rsB.Close SET rsB=Nothing %>
School Label Route  
<%=rsB("schoolname")%> <%=rsB("routename")%> <%=rsB("pickup")%> → <%=rsB("dropoff")%>
" style="width:100%;">view / edit
<%IF curPage > 1 THEN%> previous <%ELSE%> previous <%END IF%> Page <%=curPage%> of <%=nPages%> <%IF npages > curPage THEN%> next <%ELSE%> next <%END IF%>