<%
IF (checkPermission("drivers")="FAILED") THEN
response.write("You do not have permission to view this page")
response.end
END IF
StrError = "None"
Function sanitizeN(requestVariable)
Set regEx = New RegExp
regEx.Global = true
regEx.Pattern = "[^0-9]"
sanitizeN = regEx.Replace(requestVariable, "")
End Function
strDID=sanitizeRequest("dID","querystring")
IF strDID <> "" AND NOT(IsNull(strDID)) THEN
IF IsNumeric(strDID) THEN
SET rsB = dbCBK.Execute("SELECT `driverMOBILE`, `driverTEL` from cbk_drivers WHERE `driverID`='"&strDID&"' AND `schoolID`='"&str_u_id&"' limit 1")
IF rsB.EOF THEN
StrError = "Driver details could not be found, an error has been loggged."
END IF
DO WHILE NOT rsB.EOF
dmob=rsB("driverMOBILE")
dphone=rsB("driverTEL")
rsB.MoveNext
loop
rsB.Close
SET rsB = Nothing
IF StrError = "None" THEN
IF dphone <> "" AND NOT(IsNull(dphone)) THEN
dphone=sanitizeN(dphone)
END IF
IF dmob <> "" AND NOT(IsNull(dmob)) THEN
dmob=sanitizeN(dmob)
END IF
END IF
ELSE
StrError = "Driver ID Not Numeric"
END IF
ELSE
StrError = "Driver ID"
END IF
%>