I Don't Understand !

[Guest - Carlos -]

Fala galera, não entendo porque não funciona, o que será que está de errado? alguém poderia me ajudar, já quebrei a cabeça, li um tópico referente a SP e fiquei curioso em usar tbnm em minha aplicação mas parace-me que não estou conseguindo.

-------------------------------------------------------------------------------------------

Olha a SP .....:

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[alter_status]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[alter_status]

GO

SET QUOTED_IDENTIFIER OFF

GO

SET ANSI_NULLS ON

GO

CREATE Procedure alter_status

@user_ID char(1),

@exit varchar(100) output

as

if exists(Select * from users where user_ID = @user_ID)

begin

Update users Set status = 0 where user_ID = @user_ID

Select @exit = 'Seu Status Foi Alterado com sucesso!!! do ID= ' + @@identity

end

GO

SET QUOTED_IDENTIFIER OFF

GO

SET ANSI_NULLS ON

GO

-------------------------------------------------------------------------------------------

Agora no ASP .....:

<!--#Include File="connection.inc"-->

---- este é o código do include ----

Sub AbreDB()

Set conexao=Server.CreateObject("ADODB.Connection")

conn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=nomedouser;Initial Catalog=nomedoodbc;Data Source=nomedoserver"

End Sub

Sub FechaDB()

Set conn = nothing : conn.close

End Sub

--- fim do include ----

Call AbreDB

Set cmd = Server.CreateObject("ADODB.Command")

Set cmd.ActiveConnection = conn

cmd.CommandText = "alter_status"

cmd.CommandType = 4

cmd.Parameters.Refresh

cmd.Parameters("@user_ID") = 1

Mostra = cmd.Parameters.Item("@exit")

Response.write Mostra

Set cmd = nothing

Call FechaDB

Bom, acho que seja isso, na verdade o que acontece é o seguinte, não atualiza e muito menos me devolve na tela a resposta!

O QUE SERIA< HELPPPPPPPPPPPPP!!!

valeu!

[Decio]

você não falou o erro que esta dando , então vai um palpite:

Na sua função

FechaDB esta assim:

Set conn = nothing : conn.close

e deveria ser assim:

Set conn.close: set conn = nothing

ou seja, primeiro fecha a conexão e depois destroi o objeto.

abraços.