<% On Error Resume Next IF (checkPermission("drivers")="FAILED") THEN response.write("You do not have permission to view this page") response.end END IF %> <% Function fetchDriverCount(dID) IF dID <> "" AND IsNumeric(dID) THEN SET rsDC=dbCBK.Execute("SELECT count(*) as drv_count FROM cbk_drivers limit 1") DO WHILE NOT rsDC.EOF fetchDriverCount = rsDC("drv_count") rsDC.MoveNext loop rsDC.Close SET rsDC = Nothing ELSE fetchDriverCount="" Exit Function END IF End Function Function fetchDriverPhoto(dID) IF dID <> "" AND IsNumeric(dID) THEN SET rsDP=dbCBK.Execute("SELECT `photo` FROM cbk_driver_docs WHERE `driverID`='"&dID&"' limit 1") IF rsDP.EOF THEN dPHOTO="none" END IF DO WHILE NOT rsDP.EOF dPHOTO=rsDP("photo") rsDP.MoveNext loop rsDP.Close SET rsDP = Nothing IF NOT(IsNull(dPHOTO)) AND dPHOTO <> "none" THEN fetchDriverPhoto="" ELSE fetchDriverPhoto="" END IF ELSE fetchDriverPhoto="" Exit Function END IF End Function %>
<%IF request("display")<>"" THEN%> " /> <%END IF%>

Manage Drivers

There are xx registered drivers.
add driver
  

Search Drivers

by name, phone or reg no.
" style="width:78%;float:left;border-top-right-radius:0px;border-bottom-right-radius:0px;" />

Filters

Refine your search results
<% IF request("dType")<>"" THEN dT=sanitizeRequest("dType","querystring") SELECT CASE dT case "active": osqlSTR=" AND `active`='1'" case "disabled": osqlSTR=" AND `active`='0'" case else: osqlSTR="" END SELECT ELSE o="" osqlSTR="" END IF strSQL = "SELECT `driverID`, `active`, `driverNAME`, `driverMOBILE`, `vehicleTYPE` FROM cbk_drivers WHERE `driverID`>'0'" IF request("q")<> "" THEN q=sanitizeRequest("q","querystring") strSQL=strSQL & osqlSTR strSQL=strSQL & " OR `driverID`>'0' AND `driverNAME` LIKE '%"&q&"%'" & osqlSTR strSQL=strSQL & " OR `driverID`>'0' AND `driverMOBILE` LIKE '%"&q&"%'" & osqlSTR ELSE q="" strSQL=strSQL & osqlSTR END IF s=sanitizeRequest("sOrder","querystring") SELECT CASE s case "name": oBy=" order by `driverNAME` asc" case "vehicle": oBy=" order by `vehicleTYPE` asc" case else: oBy=" order by `driverNAME` asc" END SELECT strSQL=strSQL & oBy strCSQL = replace(strSQL,"SELECT `driverID`, `active`, `driverNAME`, `driverMOBILE`, `vehicleTYPE`","SELECT count(*) AS rCount") SET rsBC = dbCBK.Execute(strCSQL) rCount=0 DO WHILE NOT rsBC.EOF rCount=CInt(rsBC("rCount")) rsBC.MoveNext loop rsBC.Close SET rsBC = Nothing 'results per page perpage=100 'number of pages nPages=CInt(rCount/perpage) IF nPages < 1 THEN nPages=1 END IF 'current page curPage=sanitizeRequest("page","querystring") IF (curPage <> "") THEN IF IsNumeric(curPage) AND curPage > "0" THEN curPage=Cint(curPage) ELSE curPage=1 END IF ELSE curPage=1 END IF IF curPage > nPages THEN curPage=nPages END IF endPoint=perPage*curPage startPoint=endPoint-perPage strSQL=strSQL & " limit " & startPoint & ", " & perpage 'SET rsB=dbCBK.Execute(strSQL) response.write(strSQL) %> <%IF rsB.EOF THEN%> <%ELSE%>

None found.
<%IF curPage > 1 THEN%> previous <%ELSE%> previous <%END IF%> Page <%=curPage%> of <%=nPages%> <%IF npages > curPage THEN%> next <%ELSE%> next <%END IF%>
<%END IF%> <% rowN=1 DO WHILE NOT rsB.EOF %> " data-link="/super-user/control-panel/?go=drivers&drivers=view&view=<%=rsB("driverID")%>"> <% rowN=rowN+1 rsB.MoveNext loop rsB.Close SET rsB=Nothing %>
  Active Driver Name Phone # Vehicle
<%=fetchDriverPhoto(rsB("driverID"))%> <%IF rsB("active") = "1" THEN%>
Yes <%ELSE%>
No <%END IF%> 		<%=PCase(rsB("driverNAME"))%> <%=rsB("driverMOBILE")%> <%=rsB("vehicleTYPE")%>
<%IF Err.Number <> 0 THEN response.write(Err.Description) END IF%>