<% 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 drivers from all schools %> Assign Driver <% SET rsRR = dbCBK.Execute("SELECT driverID, driverNAME from cbk_drivers order by driverNAME asc limit 1000") DO WHILE NOT rsRR.EOF %> "><%=rsRR("driverNAME")%> <% rsRR.MoveNext loop rsRR.Close SET rsRR = Nothing %> <% ELSEIF s<>"" AND IsNumeric(s) THEN 'only drivers belonging to school by schoolID %> <% SET rsRR = dbCBK.Execute("SELECT `driverID`, `driverNAME` FROM cbk_drivers WHERE `schoolID`='"&s&"' order by `driverNAME` asc") IF rsRR.EOF THEN response.write("No Drivers Found..") ELSE response.write("Assign Driver") END IF DO WHILE NOT rsRR.EOF %> "><%=rsRR("driverNAME")%> <% rsRR.MoveNext loop rsRR.Close SET rsRR = Nothing %> <% END IF %>