<% IF (checkPermission("customers")="FAILED") THEN response.write("You do not have permission to view this page") response.end END IF s=sanitizeRequest("s","querystring") IF s="all" THEN 'all routes from all schools %> All Routes <% SET rsRR = dbCBK.Execute("SELECT `routeID`,`routename` FROM cbk_routes order by `routename` asc") DO WHILE NOT rsRR.EOF %> "><%=rsRR("routename")%> <% rsRR.MoveNext loop rsRR.Close SET rsRR = Nothing %> <% ELSEIF s<>"" AND IsNumeric(s) THEN 'only routes belonging to school by schoolID %> <% SET rsRR = dbCBK.Execute("SELECT `routeID`,`routename` FROM cbk_routes WHERE `schoolID`='"&s&"' order by `routename` asc") IF rsRR.EOF THEN response.write("None found") ELSE response.write("All Routes") END IF DO WHILE NOT rsRR.EOF %> "><%=rsRR("routename")%> <% rsRR.MoveNext loop rsRR.Close SET rsRR = Nothing %> <% END IF %>