clean up this syntax???

when i check the syntax for the following sp, i keep getting:

"Error 156: Incorrect syntax near the keyword 'As'"

and it doesn't give me the line number. i cleaned this up a bit, to no avail. please help!

========================
CREATE PROCEDURE sp_GetClientSummary (@intClientID Int, @intVendorID Int) AS

SELECT [PtblAccounts].[AddlBilling],
Case when [PtblAccounts].[CD]<>0 THEN "E-Media" End & " " &
Case when [PtblAccounts].[CSR]<>0 THEN "CSR" End & " " &
Case when [PtblAccounts].[PaperBill]<>0 THEN "Paper Bill" End & " " &
Case when [PtblAccounts].[Spreadsheet]<>0 THEN "Spreadsheet" End & " "
AS DataSource,

[PtblClients].[ClientID],
Case When [PtblVendor].[VendorID] Is Null Then [PtblVendor_1].[VendorID] Else [PtblVendor].[VendorID] End As XVendorID,
[PtblClients].[MasterClientID],
[PtblClients].[ClientName] AS MasterClient,
[PtblClients].[ClientName],
Case When [PtblVendor].[VendorID] Is Null Then [PtblVendor_1].[Vendor] Else [PtblVendor].[Vendor] End As XVendor,
Case When [PtblAccounts].[AccountNumber] Is Null Then [PtblcOrderedAccounts].[AccountNumber] Else Case When
[PtblAccounts].[AccountNumber]<>[PtblcOrderedAccounts].[AccountNumber] Then [PtblcOrderedAccounts].[AccountNumber] End As XACCOUNT,
Count(*) As N,
[PtblAccounts].[TotalTelecommExpense],
Case When [PtblcOrders].[SummaryAccount] Is Null Then [PtblcOrderedAccounts].[SummaryAccount] Else
[PtblcOrders].[SummaryAccount] End AS XSUMMARYACCOUNT,
FROM PtblClients LEFT JOIN PtblAccounts ON [PtblClients].[ClientID] = [PtblAccounts].[ClientID] LEFT JOIN PtblcOrderedAccounts
RIGHT JOIN PtblcOrders ON [PtblcOrderedAccounts].[OrderID] =[ PtblcOrders].[OrderID] ON [PtblClients].[ClientID] = [PtblcOrders].[ClientID]
LEFT JOIN PtblVendor ON [PtblAccounts].[VendorID] = [PtblVendor].[VendorID] LEFT JOIN PtblVendor AS PtblVendor_1 ON
[PtblcOrders].[VendorID] = [PtblVendor_1].[VendorID]
GROUP BY [PtblAccounts].[AddlBilling],
Case When [PtblAccounts].[CD]<>0 THEN "E-Media" End & " " &
Case  When [PtblAccounts].[cSR]<>0 THEN "CSR" End & " " &
Case  When [PtblAccounts].[PaperBill]<>0 THEN "Paper Bill" End & " " &
Case  When [PtblAccounts].[Spreadsheet]<>0 THEN "Spreadsheet" End ,
[PtblClients].[ClientID],
Case When [PtblVendor].[VendorID] Is Null Then [PtblVendor_1].[Vendor] Else [PtblVendor].[Vendor] End,
Case When [PtblAccounts].[AccountNumber] Is Null Then [PtblcOrderedAccounts].[AccountNumber] Else
[PtblAccounts].[AccountNumber]<>[PtblcOrderedAccounts].[AccountNumber] Then [PtblcOrderedAccounts].[AccountNumber],
PtblAccounts.TotalTelecommExpense,
Case When [PtblcOrders].[SummaryAccount] Is Null Then [PtblcOrderedAccounts].[SummaryAccount] Else
[PtblcOrders].[SummaryAccount],
HAVING PtblClients.ClientID = @intClientID And XVendorID = @intVendorID

GO

===================Start Free Trial