On PAGE 593 - BEGINNING Active Server Pages 3.0, I am trying to acquire 
the @@IDENTITY field that is being returned from a stored procedure that 
I am using when inserting a record into a SQL table.  I am needing to 
acquire this value to run in a subsequent stored procedure. As I 
understand the RETURN VALUES section of this page I should be able to 
list this return value in the list of my parameters and get this value to 
pass on but I am getting a '0' instead of the correct value.  The first 
parameter listed, per the book, is the parameter I am trying to get back 
and see what it is by using the RESPONSE.WRITE command.

Any help is appreciated.  Thanks!!

Here is the code that I am using for the INSERT sp:

If LCase(request.form("submit")) = "add to helpdesk" Then
				
'***** Setup the command object to run the stored procedure. *****
		Set cmdADOCommand = Server.CreateObject("ADODB.Command")
		Set prmADOParameter = Server.CreateObject("ADODB.Command")
		
		Set cmdADOCommand.ActiveConnection = HD_CGuser
		cmdADOCommand.CommandType = adCmdStoredProc
		
'***** Run the Insert_Customer stored procedure. *****
		strParmName = "Ident"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adInteger, adParamReturnValue)
		cmdADOCommand.Parameters.Append prmADOParameter
		
		strParmName = "OrgID"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adInteger, adParamInput)
		cmdADOCommand.Parameters.Append prmADOParameter
		If Request.Form("organization") <> "" Then
			cmdADOCommand.Parameters(strParmName).Value = CInt
(Request.Form("organization"))
		Elseif Request.Form("organization2") <> "" Then
			cmdADOCommand.Parameters(strParmName).Value = CInt
(Request.Form("organization2"))
		Elseif Request.Form("organization3") <> "" Then
			cmdADOCommand.Parameters(strParmName).Value = CInt
(Request.Form("organization3"))
		End If
		
		strParmName = "Address_1"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adVarChar, adParamInput, 50)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = trim
(Request.Form("address1"))
		
		strParmName = "Address_2"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adVarChar, adParamInput, 50)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = trim
(Request.Form("address2"))
		
		strParmName = "CityID"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adInteger, adParamInput)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = CInt
(Request.Form("city"))
		
		strParmName = "State"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adVarChar, adParamInput, 2)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = trim
(Request.Form("state"))
		
		strParmName = "ZipCode"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adVarChar, adParamInput, 10)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = trim
(Request.Form("zipcode"))
		
		strParmName = "Office_Phone"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adVarChar, adParamInput, 14)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = trim
(Request.Form("phone"))
		
		strParmName = "Extension"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adVarChar, adParamInput, 5)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = NULL

		strParmName = "Fax_Phone"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adVarChar, adParamInput, 14)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = NULL

		strParmName = "Notes"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adVarChar, adParamInput, 255)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = NULL

		strParmName = "Archive"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adBoolean, adParamInput)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = 0

		strParmName = "LastMemID"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adInteger, adParamInput)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = 0

		strParmName = "CustTypeID"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adInteger, adParamInput)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = 1
		
		strParmName = "AltAccountNo"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adInteger, adParamInput)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = NULL

		strParmName = "Support"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adBoolean, adParamInput)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = 0

		strParmName = "Preferred"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adBoolean, adParamInput)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = 0

		strParmName = "Cern_Train"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adVarChar, adParamInput, 20)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = NULL

		strParmName = "Disabled"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adBoolean, adParamInput)
		cmdADOCommand.Parameters.Append prmADOParameter
		cmdADOCommand.Parameters(strParmName).Value = 0

		strParmName = "IsPhysician"
		Set prmADOParameter = cmdADOCommand.CreateParameter
(strParmName, adBoolean, adParamInput)
		cmdADOCommand.Parameters.Append prmADOParameter
		If trim(Request("r")) = "Physician" Then
			cmdADOCommand.Parameters(strParmName).Value = 1
		Else
			cmdADOCommand.Parameters(strParmName).Value = 0
		End If
		
		strSQLStatement 
= "PSS_Customer_Services.dbo.Insert_Customer"
		cmdADOCommand.CommandText = strSQLStatement
		cmdADOCommand.Execute

'***** Get the return value of the CLIENTID from the SP above. *****
		intClientid = cmdADOCommand.Parameters("ident").Value
		
Response.Write (intClientid) & "<br>"
 
'***** Now delete all of the parameter objects we used above so we can 
run the next SP. *****
		For intCounter = cmdADOCommand.Parameters.Count - 1 To 0 
Step - 1
			cmdADOCommand.Parameters.Delete(intCounter)
		Next
	End If