Microsoft VBScript ошибка '800a01b6'

CREATE  PROCEDURE [dbo].[Proc] 
    @Complect int,
    @Sost int output,
    @Automats varchar(7700) output
AS
IF (SELECT TOP 1 Enabled FROM [xxx].[dbo].[Tab1] WHERE NumCompl=@Complect)=1
    BEGIN
        SET @Sost=2
        RETURN
    END
IF NOT EXISTS (SELECT * FROM [xxx].[dbo].[Tab2] WHERE ComplectNumber=@Complect)
    BEGIN
        SET @Sost=0
        RETURN
    END
declare @Aut varchar(24),
    @Zn varchar(3)
SET @Automats=''
SET @Zn=''
    SET @Sost=1
CREATE TABLE #New
  (
   [ID] int IDENTITY(1,1),
   Automats varchar(24) NOT NULL,
   Dan bit NOT NULL DEFAULT (0)
  )
INSERT INTO #New
SELECT DISTINCT AutomatNumber, 0 FROM [xxx].[dbo].[Tab2] WHERE ComplectNumber=@Complect
WHILE EXISTS (SELECT * FROM #New WHERE Dan=0)
   Begin
    SET @Aut=(Select TOP 1 Automats from #New WHERE Dan=0)
    SET @Automats=@Automats+@Zn+@Aut
    UPDATE #New SET Dan=1 FROM #New WHERE Automats=@Aut
    SET @Zn=' '
   END
DROP TABLE #New