<%
StrError = "None"
IF request("bID")<>"" THEN
strBID=sanitizeRequest("bID","querystring")
IF IsNumeric(strBID) THEN
SET rsB = dbCBK.Execute("SELECT `driverID` from cbk_bookings WHERE `companyID`='"&str_company_id&"' AND `bookingID`='"&strBID&"' AND NOT `driverID`='0' limit 1")
IF rsB.EOF THEN
StrError = "Booking not yet assigned"
END IF
DO WHILE NOT rsB.EOF
strDrvID=CInt(rsB("driverID"))
rsB.MoveNext
loop
rsB.Close
SET rsB = Nothing
IF StrError = "None" THEN
'fetch the driver details
END IF
ELSE
StrError = "Booking ID Not Numeric"
END IF
ELSE
StrError = "Booking ID"
END IF
%>