<%
IF (checkPermission("routes")="FAILED") THEN
response.write("You do not have permission to view this page")
response.end
END IF
editID=sanitizeRequest("e","querystring")
IF editID <> "" AND IsNumeric(editID) THEN
'retreive current route details
SET rsEd=dbCBK.Execute("SELECT `routeID`,`schoolID`,`routename`,`pickup`,`dropoff`,`driverID`,`autoend`,`endtime` FROM cbk_routes WHERE routeID='"&editID&"' limit 1")
IF rsEd.Eof THEN
response.write("no details found...")
END IF
DO WHILE NOT rsEd.Eof
routeID=rsEd("routeID")
schoolID=rsEd("schoolID")
routeName=rsEd("routeName")
pickup=rsEd("pickup")
dropoff=rsEd("dropoff")
assdid=rsEd("driverID")
autoend=rsEd("autoend")
endtime=rsEd("endtime")
rsEd.MoveNext
loop
rsEd.Close
SET rsEd= Nothing
ELSE
response.write("data error occurred")
response.end
END IF
%>