<%
IF (checkPermission("parents")="FAILED") THEN
response.write("You do not have permission to view this page")
response.end
END IF
%>
<%
q=sanitizeRequest("q","querystring")
IF q <> "" THEN
SET rsB = 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.roleID='"&q&"' limit 1")
IF rsB.EOF THEN
response.write("No pupil found with matching role #")
ELSE
DO WHILE NOT rsB.EOF
str_pupilID=rsB("pupilID")
str_roleID=rsB("roleID")
str_schoolID=rsB("schoolID")
str_pupilNAME=rsB("name")
str_schoolNAME=rsB("schoolname")
rsB.MoveNext
loop
rsB.Close
SET rsB = Nothing
%>