<!--#include virtual="/appDB/db_connection.asp" -->
<!--#include virtual="/appDB/functions.asp" -->
<!--#include virtual="/admin/scripts/admin_functions.asp" -->
<!--#include virtual="/admin/scripts/enc_function.asp" -->
<!--#include virtual="/admin/scripts/adm_inst.asp" -->
<%
StrError = "None"
IF str_company_id <> "" AND IsNumeric(str_company_id) THEN
	bookingID=sanitizeRequest("bkgID","querystring")
	driverID=sanitizeRequest("drvID","querystring")
	IF bookingID <> "" AND IsNumeric(bookingID) AND driverID <> "" AND IsNumeric(driverID) THEN
		SET rsD=dbCBK.Execute("SELECT `driverNAME`, `driverMOBILE`, `vehicleTYPE`, `vehicleMAKE`, `vehicleMODEL`, `vehicleREG`, `active` FROM cbk_drivers WHERE `companyID`='"&str_company_id&"' AND `driverID`='"&driverID&"' limit 1")
		IF rsD.EOF THEN
			StrError = "Deleted"
		END IF
		DO WHILE NOT rsD.EOF
			driverNAME=rsD("driverNAME")
			driverMOBILE=rsD("driverMOBILE")
			driverVEHICLE=rsD("vehicleTYPE")
   			driverVEHICLEMAKE=rsD("vehicleMAKE")
			driverVEHICLEMODEL=rsD("vehicleMODEL")
			driverVEHICLEREG=rsD("vehicleREG")
			driverACTIVE=rsD("active")
			IF driverACTIVE="0" THEN
				StrError = "Disabled"
			END IF
		rsD.MoveNext
		loop
		rsD.Close
		SET rsD=Nothing
		IF StrError <> "None" THEN
			'error
			response.write("failed")
		ELSE
			strDriverString = UCase(driverNAME) & " | " & UCase(driverVEHICLE) & " | " & UCase(driverVEHICLEMAKE) & " " & UCase(driverVEHICLEMODEL) & " (" & UCase(driverVEHICLEREG) & ")" & " | " & driverMOBILE

			dbCBK.Execute("UPDATE cbk_bookings SET `driverID`='"&driverID&"', `driverDETAILS`='"&strDriverString&"' WHERE `bookingID`='"&bookingID&"' AND `companyID`='"&str_company_id&"' limit 1")
			response.write("SUCCESS")	
		END IF	
	ELSE
		response.write("failed")
	END IF
ELSE	
	response.write("failed")
END IF
%>