SELECT tblCompany.Mobile AS M, tblCompany.PersonalCellular AS PC tblCompany.CompanyName AS Company, tblContacts.ContactName AS [Contact Name], tblContacts.Title AS [Contact Title], tblCompany.CompanyModel AS [Program Supported], tblContacts.[Contact Level], tblCompany.CompanyCountry AS Country, IIf([TelNoExt] Is Null,[TelNo],[TelNo] & " x " & [TelNoExt]) AS [Office Telephone], IIf([M]Is Null,[PC],[M]) AS Mobil, tblContacts.FaxNo AS [Fax Number], tblContacts.email AS Email, IIf([Contact Level]="Executive Level","1",IIf([Contact Level]="Management Level","2",IIf([Contact Level]="Working Level","3",Null))) AS Sort, IIf([Contact Title] Like "*Owner*",7,IIf([Contact Title] Like "*CEO*",7,IIf([Contact Title] Like "President*",7,IIf([Contact Level]="Executive Level","6",IIf([Contact Level]="Management Level","5",IIf([Contact Level]="Working Level","4",3)))))) AS SortOrg, tblCompany.ICAO AS Code, tblCompany.RSO, tblContacts.DateUpdated AS [Rev Date], Null AS [Escalation Level]
FROM tblCompany LEFT JOIN tblContacts ON tblCompany.CompanyID = tblContacts.CompanyID
WHERE (((tblContacts.Flag)=Yes) AND ((tblCompany.CompanyActive)=Yes))
ORDER BY tblCompany.CompanyName, tblContacts.ContactName;