<% response.buffer = true IF (checkPermission("drivers")="FAILED") THEN response.write("You do not have permission to view this page") response.end END IF Function activeDriverCount(tcID) IF CStr(tcID) <> "" AND IsNumeric(tcID) THEN SET rsADC=dbCBK.Execute("SELECT COUNT(*) As adc from cbk_drivers WHERE `active`='1' limit 1") IF rsADC.EOF THEN activeDriverCount="0" END IF DO WHILE NOT rsADC.EOF activeDriverCount=rsADC("adc") rsADC.MoveNext loop rsADC.Close SET rsADC = Nothing ELSE activeDriverCount="0" END IF End Function Function fetchRouteNm(sID,rID) IF sID <> "" AND IsNumeric(sID) AND rID <> "" AND IsNumeric(rID) THEN SET rsRC=dbCBK.Execute("SELECT routename from cbk_routes WHERE routeID='"&rID&"' AND schoolID='"&sID&"' limit 1") IF rsRC.EOF THEN fetchRouteNm="0" Exit Function END IF DO WHILE NOT rsRC.EOF f_rtid=rsRC("routename") rsRC.MoveNext loop rsRC.close SET rsRC = Nothing fetchRouteNm=f_rtid ELSE 'missing data fetchRouteNm="0" END IF End Function curdc=CInt(activeDriverCount("1")) StrError="None" dID=sanitizeRequest("view","querystring") Function displayContent(str_str) IF str_str <> "" AND Not(IsNull(str_str)) THEN str_str=replace(str_str,chr(13),"
") 'str_str=replace(str_str,chr(10),"
") str_str=replace(str_str,"&39","'") str_str=replace(str_str,"-euro-","€") str_str=replace(str_str,"-pound-","£") str_str=replace(str_str,"-percent-","%") displayContent = str_str ELSE displayContent = "" Exit Function END IF End Function Function fetchSchoolName(sID) IF sID <> "" AND IsNumeric(sID) THEN SET rsSN=dbCBK.Execute("SELECT `schoolname` FROM cbk_schools WHERE `schoolID`='"&sID&"' limit 1") IF rsSN.EOF THEN sNAME="none" END IF DO WHILE NOT rsSN.EOF sNAME=rsSN("schoolname") rsSN.MoveNext loop rsSN.Close SET rsSN = Nothing IF NOT(IsNull(sNAME)) AND sNAME<> "none" THEN fetchSchoolName=sNAME ELSE fetchSchoolName="no school found..." END IF ELSE fetchSchoolName="no school added yet" Exit Function END IF End Function IF dID <> "" AND IsNumeric(dID) THEN 'check for any updates IF REQUEST("action")<>"" THEN var_act = sanitizeRequest("action","querystring") SELECT CASE var_act case "change_acc_sts": nac = sanitizeRequest("new_acc_sts","querystring") IF nac = "1" OR nac="0" THEN IF nac = "1" THEN IF curdc+1 > strDRVLMT THEN StrError = "You cannot activate this driver account (limit reached)" END IF END IF IF StrError <> "None" THEN 'print the errors ELSE dbCBK.Execute("UPDATE cbk_drivers SET `active`='"&nac&"' WHERE `driverID`='"&dID&"' AND `schoolID`='"&str_u_id&"' limit 1") response.redirect("/schools/control-panel/?go=drivers&drivers=view&view=" & dID & "¬ify=Account+status+sucessfully+changed&nact=success") END IF END IF case "delete_drv_acc": dbCBK.Execute("DELETE FROM cbk_drivers WHERE `driverID`='"&dID&"' AND `schoolID`='"&str_u_id&"' limit 1") response.redirect("/schools/control-panel/?go=drivers¬ify=Driver+account+deleted+sucessfully&nact=success") END SELECT END IF driverID="00000" bSQL = "SELECT `driverID`,`schoolID`,`driverNAME`,`driverUSERNAME`,`driverPWD`,`driverEMAIL`,`driverMOBILE`,`driverADDRESS1`,`driverADDRESS2`,`driverADDRESS3`,`driverCOUNTYSTATE`,`driverPOSTCODE`,`driverTEL`,`vehicleTYPE`,`vehicleMAKE`,`vehicleMODEL`,`vehicleREG`,`active`,`driverNOTES`,`dateADDED`,`healthtestT`,`healthtestDATE`,`healthtestRESULT`,`healthtestBARCODE`,`healthtestNEXTDATEDUE` from cbk_drivers WHERE `driverID`='"&dID&"' AND `schoolID`='"&str_u_id&"' limit 1" SET rsB = dbCBK.Execute(bSQL) IF rsB.EOF THEN StrError="Driver data could not be found" END IF DO WHILE NOT rsB.EOF driverID=rsB("driverID") schoolID=rsB("schoolID") driverNAME=rsB("driverNAME") driverUSERNAME=rsB("driverUSERNAME") driverPWD=rsB("driverPWD") driverEMAIL=rsB("driverEMAIL") driverMOBILE=rsB("driverMOBILE") driverADDRESS1=rsB("driverADDRESS1") driverADDRESS2=rsB("driverADDRESS2") driverADDRESS3=rsB("driverADDRESS3") driverCOUNTYSTATE=rsB("driverCOUNTYSTATE") driverPOSTCODE=rsB("driverPOSTCODE") driverTEL=rsB("driverTEL") vehicleTYPE=rsB("vehicleTYPE") vehicleMAKE=rsB("vehicleMAKE") vehicleMODEL=rsB("vehicleMODEL") vehicleREG=rsB("vehicleREG") active=rsB("active") driverNOTES=rsB("driverNOTES") dateADDED=rsB("dateADDED") healthtestT=rsB("healthtestT") healthtestDATE=rsB("healthtestDATE") healthtestRESULT=rsB("healthtestRESULT") healthtestBARCODE=rsB("healthtestBARCODE") healthtestNEXTDATEDUE=rsB("healthtestNEXTDATEDUE") rsB.MoveNext loop rsB.Close SET rsB = Nothing ELSE StrError="Driver data invalid" END IF IF StrError <> "None" THEN 'print the errors %>
<%=StrError%>
<%ELSE%>

View Driver Details

For Driver: <%=LPad(dID)%>
go back
edit driver

Driver Details

Name: <%=PCase(driverNAME)%>
email driver
call driver

Tools

Manage this driver
go
" class="dataTable customerdetails" id="tab-1">
Driver Details
Account Status <%IF active = "1" THEN%>
Active <%ELSE%>
Disabled <%END IF%>
Name <%=PCase(driverNAME)%>
School <%=PCase(fetchSchoolName(schoolID))%>
Mobile # <%=driverMOBILE%>
Email <%=driverEMAIL%>
Login Details
Driver ID <%IF driverID <> "" THEN response.write(driverID) ELSE response.write("n/a") END IF%>
User Name <%IF driverUSERNAME <> "" THEN response.write(driverUSERNAME) ELSE response.write("n/a") END IF%>
Password <%IF driverPWD <> "" THEN%>
***********
show password <%ELSE%> n/a <%END IF%>
Additional Details
Home Address
<%IF driverADDRESS1 <> "" THEN response.write(driverADDRESS1) & "
" ELSE response.write("n/a") END IF%> <%IF driverADDRESS2 <> "" THEN response.write(driverADDRESS2) & "
" END IF%> <%IF driverADDRESS3 <> "" THEN response.write(driverADDRESS3) & "
" END IF%> <%IF driverCOUNTYSTATE <> "" THEN response.write(driverCOUNTYSTATE) & "
" END IF%> <%IF driverPOSTCODE <> "" THEN response.write(driverPOSTCODE) END IF%>
Home Telephone # <%IF driverTEL <> "" AND NOT(IsNull(driverTEL)) THEN%> <%=driverTEL%> <%ELSE%> n/a <%END IF%>
Creation Date <%=formatDateTime(dateADDED,vblongdate)%>
<%END IF%>