Inserting Blanks:I'm Almost Going Crazy-II

I posted this scenario earlier and ndinakar said my code worked on (I guess) his own machine but has not worked on mine! Does that not sound funny? I need to ge through with this simple but frustrating stuff in time. I've implemented more complex snippets before this but I just can't figure the problem out.





Can anyone out there tell me what I could be doing wrongly? I wrote a simple stored procedure called 'proc_insert_webuser' in a database that has been moved to a remote server called LAGOS-NTS3. I executed it from SQL Query Analyser and it worked. When, however, I executed the same stored procedure from ASP.Net it gives an impression that a new record has been inserted and even displays the newly generated ID column to me. On checking the base table I found only blank columns with only the ID column having the generated IDs!





I'm perplexed. I checked the code and can't possibly spot the error. Can anyone help. Found below are snippets used.











CREATE PROCEDURE proc_insert_webuser


(


@applicantidnumeric(18) output,


@firstnamevarchar(18),


@midname varchar(18),


@lastname varchar(50),


@secretcodevarchar(18),


@my_errnumeric(18) output


)


AS


IF (SELECT COUNT(ApplicantID) FROM tbl_webuser WHERE Firstname = @firstname AND Midname = @midname AND Lastname = @lastname) = 0


BEGIN


begin transaction


INSERT INTO tbl_webuser (Firstname, Midname, Lastname, SecretCode)


VALUES (@Firstname, @Midname, @Lastname, @SecretCode)


commit transaction


SET @applicantid = @@IDENTITY


END


ELSE


BEGIN


RAISERROR('Error! Execution aborted. A matching user profile exist.', 16, 1)


SELECT @my_err = @@ERROR


END


RETURN














Then the ASP.Net stuff:








Sub PostData()





'connection string production





Dim cstring As String = "User ID = sa; Password = ; database = E-Recruitment; Server = LAGOS-NTS3; Connect Timeout = 60"











'connection instantiation





Dim cnx As SqlConnection = New SqlConnection(cstring)











Try





'open connection





cnx.Open()











'instantiates and execute a command object





Dim cmd As SqlCommand = New SqlCommand











With cmd





.Connection = cnx





.CommandText = "proc_insert_webuser"





.CommandType = CommandType.StoredProcedure











Dim param1 As New SqlClient.SqlParameter("@applicantid", 0)





param1.DbType = DbType.Single





param1.Direction = ParameterDirection.Output





.Parameters.Add(param1)











Dim param2 As New SqlClient.SqlParameter("@firstname", txtFirstNM.Text)





param2.DbType = DbType.String





param2.Direction = ParameterDirection.Input





.Parameters.Add(param2)











Dim param3 As New SqlClient.SqlParameter("@midname", txtMidNM.Text)





param3.DbType = DbType.String





param3.Direction = ParameterDirection.Input





.Parameters.Add(param3)











Dim param4 As New SqlClient.SqlParameter("@lastname", txtLastNM.Text)





param4.DbType = DbType.String





param4.Direction = ParameterDirection.Input





.Parameters.Add(param4)











Dim param5 As New SqlClient.SqlParameter("@secretcode", txtPWD.Text)





param5.DbType = DbType.String





param5.Direction = ParameterDirection.Input





.Parameters.Add(param5)











Dim param6 As New SqlClient.SqlParameter("@my_err", 0)





param6.DbType = DbType.Single





param6.Direction = ParameterDirection.Output





.Parameters.Add(param6)











.ExecuteNonQuery()











'pick the auto-number





Dim strAppID = .Parameters("@applicantid").Value











'notifies the user of record success





lblMessage.Text = "Profile created. Your ApplicantID is : " & strAppID & " Kindly take note of your UserID. You'll need it for future logins."





End With





Catch ex As Exception





'notifies the user of any error(s)





lblMessage.Text = Err.Description & " originating from " & Err.Source





Finally





cnx.Close()





End Try





End Sub


==================





I'm calling this procedure from the click event of a command button. What could be happening to the code? I have done similar things and got positive results! Any hint from anyone out there?