transacao em ASP com procedure SQL Server, retornando erro

[IREGINA 0]

Pessoal,Gostaria de saber se alguem poderia me ajudar,Estou implementando uma rorina no ASp para executar uma procedure no SQL Server e retornar erro, caso ocorra, mas, o que acontece que ele sempre entra no erro, vejam o que eu estou fazendo. Se eu executo a procedure e o codigo sem o tratamento de transacao e erro, tudo funciona OK.Codigo ASP-------------------------------------------------------------------Function InsereFilaAlteracaoProdutos(categoria,SQL)on error resume next Set rs = CNX.Execute("begin transaction")Set rs = CNX.Execute("set autocommit = 0")if categoria<>"" then SET rs = CNX.EXECUTE(SQL)end if if rs = 1 then response.write "<br><br>entrou no erro" Set rs = CNX.Execute("rollback") Response.Write "OCORREU UM ERRO [" & Err.Number & "] :" & Err.Description return falseelse Set rs = CNX.Execute("Commit") Response.Write "<br><br>commit - ok" return trueend ifEnd FunctionProcedure--------------------------------------------------------------------------------------------ET @SQL= @SQL + 'INSERT INTO TRAT_PROD_WEB (CODIGO_REDE, CODIGO_FORNECEDOR, CODIGO_ITEM, CODIGO_CATEGORIA, DESCRICAO_ITEM, CODIGO_FORNECEDOR_ITEM, UNIDADES_EMBALAGEM, PESO_ITEM, DATA, ATUALIZADO, CONFIRMADO, NOVO, COD_USUARIO, FLAG) SELECT DISTINCT CODIGO_REDE, CODIGO_FORNECEDOR, CODIGO_ITEM, CODIGO_CATEGORIA, RTRIM(LTRIM(DESCRICAO_ITEM)), CODIGO_FORNECEDOR_ITEM, UNIDADES_EMBALAGEM_FORNECEDOR, PESO_ITEM, GETDATE(), 2, NULL, 0, '+CONVERT(VARCHAR(30),@COD_USUARIO)+', FLAG_ATIVO FROM WEB_BIS.DBO.PRODUTO_INDUSTRIA_VAREJO WHERE CODIGO_REDE=' +CONVERT(VARCHAR(30),@COD_REDE)+' AND CODIGO_FORNECEDOR='+CONVERT(VARCHAR(30),@COD_FORNECEDOR) + ' AND CODIGO_ITEM='+CONVERT(VARCHAR(30),@COD_ITEM)+''EXECUTE (@SQL)IF (@@ERROR) <> 0BEGIN RAISERROR('ERRO: INCLUSAO DA FILA NAO FOI REALIZADA',16,1) -- 80000 /* Erro atualização. */ RETURN 1ENDRETURN 0END

[Anderson Roberto 0]

Tente alterar essa linha:

if rs = 1 then

Para isso:

if CLng(rs.Fields.Item(0).Value) = 1 then