Msg is not displaying when a Enter Email that is already in Database

[siddu]

Hi All,

I Created a Registration Page with only username,Pwd,Em ail,Contactno and Address fields.

1.when a Enter user with different Email then it is saved the details in Database.

2.My Code is working fine when a Enter username with Already Existing mail id then it is not taking.But only problem is msg is not displaying client side.

How to display msg .Pls find my code also.

procedure
---------

CREATE Procedure SP_Login
(
@Username varchar(50),
@pwd varchar(50),
@Email varchar(50),
@ContactNo varchar(50),
@Address varchar(50),
@Ret_val Int = Null Out,
@Ret_msg Varchar(75) = Null Out


)
AS

IF EXISTS(SELECT * FROM Login WHERE Email=@Email)
BEGIN
RAISERROR('The email address already exists', 16, 1)

END
ELSE
BEGIN

INSERT INTO Login (Username,pwd,E mail,ContactNo, Address)VALUES( @Username,@pwd, @Email,@Contact No,@Address)

END

If @@Error = 0
BEGIN
SET @RET_VAL = 1
SET @RET_MSG = 'DETAILS INSERTED SUCCESSFULLY.'
END
ELSE
BEGIN
SET @RET_VAL = 0
SET @RET_MSG = 'ERROR : Error in Inserting Details.'
END
GO







codebehind
----------

Try
conObj = New SqlConnection(" Data Source=B4B-2F-323-CK26;user id=sa;password= sa;Database=TES T")
conObj.Open()

tranObj = conObj.BeginTra nsaction
cmdObj = conObj.CreateCo mmand
cmdObj.Transact ion = tranObj

With cmdObj
.CommandText = "SP_Login"
.CommandType = CommandType.Sto redProcedure
End With

With cmdObj.Paramete rs
.Add(New SqlParameter("@ UserName", SqlDbType.VarCh ar, 50)).Value = txtUserName.Tex t
.Add(New SqlParameter("@ pwd", SqlDbType.VarCh ar, 50)).Value = txtPwd.Text
.Add(New SqlParameter("@ ContactNo", SqlDbType.VarCh ar, 50)).Value = txtPhoneno.Text
.Add(New SqlParameter("@ Email", SqlDbType.VarCh ar, 50)).Value = txtEmail.Text
.Add(New SqlParameter("@ Address", SqlDbType.VarCh ar, 50)).Value = txtAddress.Text

retvalp = .Add("@RET_VAL" , SqlDbType.Int)
retvalp.Directi on = ParameterDirect ion.Output
retmsgp = .Add("@RET_MSG" , SqlDbType.VarCh ar, 50)
retmsgp.Directi on = ParameterDirect ion.Output


End With

cmdObj.ExecuteN onQuery()

If retvalp.Value = 1 Then
tranObj.Commit( )
lblmsg.Text = retmsgp.Value
Else
tranObj.Rollbac k()
lblmsg.Text = retmsgp.Value
End If
Catch ex As Exception
Response.Write( ex.ToString())
Finally
If Not tranObj Is Nothing Then tranObj.Dispose ()
conObj.Close()
cmdObj.Dispose( )
End Try

[kenobewan]

The raiseerror only throws an sqlexception. Here is an interesting way to catch it using infomessage handler:
Getting Intimate with your Connection