Stored Proc Error: Error Converting Character String To Smalldatetime Data Type

I am trying to create a page that adds users to a MS SQL database. In doing so, I have run into a couple errors that I can't seem to get past. I am hoping that I could get some assistance with them.





Error from SQL Debug:


---


Server: Msg 295, Level 16, State 3, Procedure AdminAddUser, Line 65


[Microsoft][ODBC SQL Server Driver][SQL Server]Syntax error converting character string to smalldatetime data type.


---





Error from page execution:


---


Exception Details: System.Data.OleDb.OleDbException: Error converting data type varchar to numeric.





Source Error:





Line 77: cmd.Parameters.Add( "@zip", OleDbType.VarChar, 100 ).Value = Request.Form("userZip")


Line 78:


Line 79: cmd.ExecuteNonQuery()


---








Below is what I currently have for my stored procedure and the pertinent code from the page itself.





Stored Procedure:


---


CREATE PROCEDURE dbo.AdminAddUser( @username varchar(100),


@password varchar(100),


@email varchar(100),


@acct_type varchar(100),


@realname varchar(100),


@billname varchar(100),


@addr1 varchar(100),


@addr2 varchar(100),


@city varchar(100),


@state varchar(100),


@country varchar(100),


@zip varchar(100),


@memo varchar(100) )


AS


BEGIN TRAN





--


-- Returns 1 if successful


-- 2 if username already exists


-- 0 if there was an error adding the user


--





SET NOCOUNT ON


DECLARE @error int, @rowcount int





--


-- Make sure that there isn't already a user with this username


--





SELECT userID


FROM users


WHERE username=@username





SELECT @error = @@ERROR, @rowcount = @@ROWCOUNT





IF @error <> 0 OR @rowcount > 0 BEGIN


ROLLBACK TRAN


RETURN 2


END





--


-- Set expiration date


--





DECLARE @expDate AS smalldatetime





IF @acct_type = "new_1yr" BEGIN


SET @expDate = DATEADD( yyyy, 1, GETDATE() )


END





IF @acct_type = "new_life" BEGIN


SET @expDate = DATEADD( yyyy, 40, GETDATE() )


END





DECLARE @paidCopies AS decimal


SET @paidCopies = 5








--


-- Add this user to the database


--





IF @acct_type <> "new" BEGIN





INSERT INTO users (userName, userPassword, userEmail, userJoinDate,


userPaidCopies, userExpirationDate, userLastPaidDate,


userBname, userRealName, userAddr1, userAddr2, userCity,


userState, userCountry, userZip, userMemo )


VALUES (@username, @password, @email, GETDATE(), @realname, @billname,


@paidCopies, @expDate, GETDATE(), @addr1, @addr2, @city, @state, @country, @zip, @memo )





SELECT @error = @@ERROR, @rowcount = @@ROWCOUNT





IF @error <> 0 OR @rowcount < 1 BEGIN


ROLLBACK TRAN


RETURN 0


END





END





IF @acct_type = "new" BEGIN





INSERT INTO users (userName, userPassword, userEmail, userJoinDate,


userBname, userRealName, userAddr1, userAddr2, userCity,


userState, userCountry, userZip, userMemo )


VALUES (@username, @password, @email, GETDATE(), @realname, @billname,


@addr1, @addr2, @city, @state, @country, @zip, @memo )





SELECT @error = @@ERROR, @rowcount = @@ROWCOUNT





IF @error <> 0 OR @rowcount < 1 BEGIN


ROLLBACK TRAN


RETURN 0


END





END











COMMIT TRAN


RETURN 1


GO


---








Page Code:


---


Sub AddUser(Sender as Object, e as EventArgs)





Dim db_conn_str As String


Dim db_conn As OleDbConnection


Dim resultAs Int32


Dim cmdAs OleDbCommand








db_conn_str = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=xxxxx; User ID=xxxxx; PWD=xxxxx;"


db_conn = New OleDbConnection( db_conn_str )


db_conn.Open()





cmd = new OleDbCommand( "AdminAddUser", db_conn )


cmd.CommandType = CommandType.StoredProcedure





cmd.Parameters.Add( "result", OleDbType.Integer ).Direction = ParameterDirection.ReturnValue





cmd.Parameters.Add( "@username", OleDbType.VarChar, 100 ).Value = Request.Form("userName")


cmd.Parameters.Add( "@password", OleDbType.VarChar, 100 ).Value = Request.Form("userPass")


cmd.Parameters.Add( "@email", OleDbType.VarChar, 100 ).Value = Request.Form("userEmail")


cmd.Parameters.Add( "@acct_type", OleDbType.VarChar, 100 ).Value = Request.Form("userEmail")


cmd.Parameters.Add( "@realname", OleDbType.VarChar, 100 ).Value = Request.Form("userRealName")


cmd.Parameters.Add( "@billname", OleDbType.VarChar, 100 ).Value = Request.Form("userBname")


cmd.Parameters.Add( "@addr1", OleDbType.VarChar, 100 ).Value = Request.Form("userAddr1")


cmd.Parameters.Add( "@addr2", OleDbType.VarChar, 100 ).Value = Request.Form("userAddr2")


cmd.Parameters.Add( "@city", OleDbType.VarChar, 100 ).Value = Request.Form("userCity")


cmd.Parameters.Add( "@state", OleDbType.VarChar, 100 ).Value = Request.Form("userState")


cmd.Parameters.Add( "@country", OleDbType.VarChar, 100 ).Value = Request.Form("userCountry")


cmd.Parameters.Add( "@memo", OleDbType.VarChar, 100 ).Value = Request.Form("userMemo")


cmd.Parameters.Add( "@zip", OleDbType.VarChar, 100 ).Value = Request.Form("userZip")





cmd.ExecuteNonQuery()





(...)





---