<%
Function fetchPupilById(pID)
IF pID = "0" THEN
fpRET="No Pupil Assigned"
fetchPupilById=fpRET
ELSEIF pID <> "" AND IsNumeric(pID) THEN
SET rsfbPID = dbCBK.Execute("SELECT cbk_pupils.pupilID As pupilID, cbk_pupils.roleID As roleID, cbk_pupils.schoolID As schoolID, cbk_pupils.name As name, cbk_schools.schoolname As schoolname FROM cbk_pupils LEFT JOIN cbk_schools ON cbk_pupils.schoolID = cbk_schools.schoolID WHERE cbk_pupils.pupilID='"&pID&"' limit 1")
IF rsfbPID.EOF THEN
resPID=pID
fpRET=""&"▸xxxxxxxxxx (warning: pupil account deleted) | DELETE
"
END IF
DO WHILE NOT rsfbPID.EOF
resPID=rsfbPID("pupilID")
resROL=rsfbPID("roleID")
resSCH=rsfbPID("schoolID")
resNAM=rsfbPID("name")
resSCN=rsfbPID("schoolname")
fpRET=""&"▸" & resROL & " (" & resNAM & " - " & resSCN & ") | DELETE
"
rsfbPID.MoveNext
loop
rsfbPID.Close
SET rsfbPID = Nothing
fetchPupilById=fpRET
ELSE
Exit Function
END IF
End Function
StrError="None"
rID=sanitizeRequest("r","querystring")
IF rID <> "" AND IsNumeric(rID) THEN
'ok
ELSE
StrError="The route ID is required"
END IF
'fetch current route itinerary details
IF StrError <> "None" THEN
'print the errors
ELSE
SET rsI = dbCBK.Execute("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_routes.pupilIDS As pupilIDS, cbk_schools.schoolname As schoolname FROM cbk_routes LEFT JOIN cbk_schools ON cbk_routes.schoolID = cbk_schools.schoolID WHERE cbk_routes.schoolID='"&str_u_id&"' AND cbk_routes.routeID='"&rID&"' limit 1")
IF rsI.EOF THEN
StrError = "No matching route found"
END IF
DO WHILE NOT rsI.EOF
routeID=rsI("routeID")
schoolID=rsI("schoolID")
routeNAME=rsI("routeNAME")
pickup=rsI("pickup")
dropoff=rsI("dropoff")
pupilIDS=rsI("pupilIDS")
schoolname=rsI("schoolname")
rsI.MoveNext
loop
rsI.Close
SET rsI = Nothing
END IF
%>
<%
IF pupilIDS <> "" AND pupilIDS <> "none" THEN
str_pids=split(pupilIDS,"||")
for each x in str_pids
response.write(fetchPupilById(x))
next
ELSE
response.write("none")
END IF
%>