Inserir Informações No Banco Por Procedure

[ri_nepo]

Boa tarde Galera,

Criei uma procedure e quando mando executar no asp ele não da erro mas também não executa

O código está assim

**************************************************

set conexao=server.createobject("adodb.connection")conexao.open "Provider=SQLOLEDB.1;SERVER=server;DATABASE=base;UID=usuario;PWD=senha;"

varNome = Request.Form("frmNome")

varEmail = Request.Form("frmEmail")

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

Set cmdatualiza.ActiveConnection = Conexao

cmdatualiza.CommandText = "SP_INSERE_RESERVA"

cmdatualiza.CommandType = 4

cmdatualiza.ParameteRs.Refresh

cmdatualiza.ParameteRs("@nome") = varNome

cmdatualiza.ParameteRs("@email") = varEmail

cmdatualiza.Execute

Set cmdatualiza=nothing

**************************************************

A procedure está assim

*****************************************************

CREATE PROCEDURE SP_INSERE_RESERVA

(

@nome varchar(100),

@email varchar(100)

)

as

IF EXISTS(SELECT EMAIL FROM reserva)

BEGIN

Print 'Já existe um cadastro com este nome'

RETURN

END

ELSE

BEGIN

INSERT INTO reserva (nome,email) VALUES (@nome,@email)

Print 'Cadastro efetuado com sucesso'

END

GO

*******************************************************************

Quem puder ajudar eu agradeço

abraços

[ri_nepo]

Tentei utilizar isso também e não funcionou

dados_chamadas="exec SP_INSERE_RESERVA @nome = '"& varNome &"',@email = '"& varEmail &"'"

conexao.execute(dados_chamadas)

[kuroi]

o problema acho que está aqui:

IF EXISTS(SELECT EMAIL FROM reserva)

porque se a tabela tiver pelo menos uma linha, ele sai da procedure. acho que o você quer seria tipo isso:

IF EXISTS(SELECT EMAIL FROM reserva Where Nome = @nome)

[ri_nepo]

Valeu mano ,

era isso mesmo , falha minha , valeu

Como eu faço na procedure para passar o valor de resposta para página

No lugar do print eu printo na propria página

ex:

IF EXISTS(SELECT EMAIL FROM reserva where email = @email)

BEGIN

Print 'Já existe um cadastro com este nome'

RETURN

END

ELSE

BEGIN

INSERT INTO reserva (nome,email) VALUES (@nome,@email)

Print 'Cadastro efetuado com sucesso'

END

[kuroi]

com ADODB Command não sei, mas com RecordSet, acho que ele retorna a mensagem na propriedade Erros da Connection. pra acessar seria tipo assim:

Response.Write(conexao.Errors(0).Description)

ai acho que cada vez que você executa ele substitui o indice 0 pelo erro. não manjo muito mas acho que é assim.

com o Command talvez seja igual.

[ri_nepo]

Não rolou , na realidade seria assim

a procedure envia uma variavel @MSN

****************************************************************

CREATE PROCEDURE SP_INSERE_RESERVA

(

@nome varchar(100),

@email varchar(100),

@MSN varchar(100) output

)

as

IF EXISTS(SELECT EMAIL FROM reserva where email = @email)

BEGIN

SET @MSG = 'ER Usuário já existe!!'

RETURN

END

ELSE

BEGIN

INSERT INTO reserva (nome,email) VALUES (@nome,@email)

SET @MSG = 'ER Cadastro efetuado com sucesso!!'

END

GO

****************************************************************

Só que no asp não está pegando , eu queria alguma dica

abraços

Ricardo