<% IF (checkPermission("pupils")="FAILED") THEN response.write("You do not have permission to view this page") response.end END IF schoolID=sanitizeRequest("sID","querystring") IF schoolID <> "" AND schoolID <> "0" AND IsNumeric(schoolID) THEN %> <% strRAWarn="0" SET rsRR = dbCBK.Execute("SELECT `routeID`,`routename` FROM cbk_routes WHERE `schoolID`='"&schoolID&"' order by `routename` asc")%> <%IF rsRR.EOF THEN strBAWarn="1" %> None Found <%ELSE%> Please Choose <%END IF%> <% DO WHILE NOT rsRR.EOF%> "><%=rsRR("routename")%> <% rsRR.MoveNext loop rsRR.Close SET rsRR = Nothing %> <%ELSE%> Please choose a school first  ⇪ <%END IF%>