VBScript - Recuperando un valor escalar de un procedimiento almacenado en SQL Server 2008
Mi procedimiento almacenado es muy simple. Inserta un nuevo registro. Al final tengo la siguiente línea:
SELECT SCOPE_IDENTITY()
1) ¿Estoy usando el código correcto para devolver el valor de la clave primaria para el registro recién insertado?
2) ¿Cómo recupero este valor usando ASP Classic / VBScript con ADO Classic?
Dim cmdUA
Set cmdUA = Server.CreateObject("ADODB.Command")
Set cmdUA.ActiveConnection = tcon
cmdUA.CommandText = "InsertUserAgent"
cmdUA.CommandType = adCmdStoredProc
cmdUA.Parameters.Append cmdUA.CreateParameter("useragent", adVarWChar, _
adParamInput, 1000)
cmdUA("useragent") = Request.ServerVariables("HTTP_USER_AGENT")
cmdUA.Exec
'Here I need to get the value returned from the stored procedure
Set cmdUA.ActiveConnection = Nothing
Set cmdUA = Nothing