<%
IF (checkPermission("parents")="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
IF request("cID")<>"" THEN
strCID=sanitizeRequest("cID","querystring")
IF IsNumeric(strCID) THEN
SET rsB = dbCBK.Execute("SELECT `phone`, `mobile` from cbk_customers WHERE `companyID`='"&str_company_id&"' AND `customerID`='"&strCID&"' limit 1")
IF rsB.EOF THEN
StrError = "Customer not found"
END IF
DO WHILE NOT rsB.EOF
cphone=rsB("phone")
cmob=rsB("mobile")
rsB.MoveNext
loop
rsB.Close
SET rsB = Nothing
IF StrError = "None" THEN
IF cphone <> "" THEN
cphone=sanitizeN(cphone)
END IF
IF cmob <> "" THEN
cmob=sanitizeN(cmob)
END IF
END IF
ELSE
StrError = "Customer ID Not Numeric"
END IF
ELSE
StrError = "Customer ID"
END IF
%>