Stored procedure error -- please help

I am trying to get a returned value from the stored procedure below

CREATE PROC insert_and_return_id
(
    @parameter1 varchar,
    @parameter2 varchar
 
)
AS
DECLARE @newID int
SELECT @newID = 0

INSERT INTO tbltest (field1, field2)
VALUES (@parameter1, @parameter2)

 IF(@@ROWCOUNT > 0)
BEGIN
    SELECT @newID = @@IDENTITY
END

RETURN @newID
GO

___________________________

My asp Code looks like this

___________________________

Function InserTest(value1, value2)
 Dim objConn, objRs, objCmd

    '  Create a connection to the database
    Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.open "DSN=" & CONNECTION_STRING

    ' Create the query command
    Set objCmd = Server.CreateObject("ADODB.Command")
    Set objCmd.ActiveConnection = objConn
    objCmd.CommandText = "insert_and_return_id"
    objCmd.CommandType = adCmdStoredProc
 ' Create the parameter for output and returned valueand populate it
    objCmd.Parameters.Append objCmd.CreateParameter("parameter1", adVarChar, adParamInput, 255, value1)
 objCmd.Parameters.Append objCmd.CreateParameter("parameter2", adVarChar, adParamInput, 255, value2)
    objCmd.Parameters.Append objCmd.CreateParameter("newID", adInteger, adParamReturnValue, 4)
 
 objCmd.Execute objCmd0
    response.write objCmd.Parameters("newID")
 'objCmd.Close
End Function

 

And I get the following ASP Error

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]Procedure or function insert_and_return_id has too many arguments specified.
/netwasp/tester.asp, line 62

 

I only just started to use sp's hence it might be something really simple, Can anyone help, cheers?

 

Another way of doing it might be:

CREATE PROC insert_and_return_id (
  @parameter1 varchar,
  @parameter2 varchar,
  @newID int = 0 OUTPUT 
)
AS

INSERT INTO tbltest (field1, field2)
VALUES (@parameter1, @parameter2)

IF(@@ROWCOUNT > 0)
BEGIN
    SELECT @newID = @@IDENTITY
END

GO

Then in your asp:

Set objCmd = Server.CreateObject("ADODB.Command")
    Set objCmd.ActiveConnection = objConn
    objCmd.CommandText = "insert_and_return_id"
    objCmd.CommandType = adCmdStoredProc
 ' Create the parameter for output and returned valueand populate it
    objCmd.Parameters.Append objCmd.CreateParameter("parameter1", adVarChar, adParamInput, 255, value1)
 objCmd.Parameters.Append objCmd.CreateParameter("parameter2", adVarChar, adParamInput, 255, value2)
 
 objCmd.Execute objCmd0
    response.write objCmd.Parameters("@newID")
 'objCmd.Close

ps. there might by a slight error in my syntax as i didnt test this