Recuprar un valor de un procedimiento almacenado

[kryna]

Este es el código del pa, no estoy segura de si tengo que declarar la variable que creo en el código asp (la que esta en azul)

Código:

CREATE PROCEDURE  pa_INuevoFormulario  @tipo_insp smallint, @idmovil 
int, @agente int, @insp1 int, @insp2 int, @insp3 int, @comuna int, @lugar varchar
(20), @reparticion int, @usuario int, @idformulario int output   AS

declare @idform as int   

INSERT INTO
Formulario (CDReparticion, CDTPInspeccion, IDMovil, IDAgencia, NRRutUsuario, FCIngreso, CDComuna, GLDetalleLugar)
VALUES  
(@reparticion,@tipo_insp,@idmovil, @agente, @usuario, getdate(), @comuna,@lugar)

SET @idform = SCOPE_IDENTITY()

if @insp1>0 
begin
INSERT INTO DetalleInspector (IDFormulario, IDPersona, FCIngreso, NRRUTUsuario)
VALUES		           (@idform ,  @insp1, getdate(), @usuario)
end

if @insp2>0 
begin
	INSERT INTO DetalleInspector (IDFormulario, IDPersona, FCIngreso, NRRUTUsuario)
	VALUES		           (@idform ,  @insp2, getdate(), @usuario)
end

if @insp3>0 
begin
	INSERT INTO DetalleInspector (IDFormulario, IDPersona, FCIngreso, NRRUTUsuario)
	VALUES		           (@idform ,  @insp3, getdate(), @usuario)
end
set @idformulario= @idform 

INSERT INTO EstadoPlanilla (IDFormulario, CDTPEstado, FCingreso, NRUsuario)
VALUES (@idform, 1, getdate(), @usuario)
GO

y este es el código de donde le llamo.

Código:

/*Se establese la coneccion*/
Set CMD = CreateObject("ADODB.Command")
Set CMD.ActiveConnection = ccmm1
'response.write "Esto va aca: " & Session("obj").usuario

CMD.CommandText= Application("owner3") & "pa_INuevoFormulario"
 '/*se llama al procedimiento almacenado y se le envian los parametros */
CMD.CommandType =4
CMD.Parameters.refresh

If (request.form("tipo_insp")= "parcial") then
    CMD.Parameters(1)= 1
else 
   CMD.Parameters(1)= 2
end if 

CMD.Parameters(2)= 5  ' request.form("Carac_Nave")
CMD.Parameters(3)= request.form("Rut_Agente")
If (request.form("Rut_Insp1")= "NoInsp1") then
    CMD.Parameters(4)= 0
else 
   CMD.Parameters(4)= request.form("Rut_Insp1")
end if 
if (request.form("Rut_Insp2")="NoInsp2") then
       CMD.Parameters(5)= 0    
else
	CMD.Parameters(5)= request.form("Rut_Insp2")
end if 
if (request.form("Rut_Insp3")="NoInsp3") then
       CMD.Parameters(6)= 0    
else
		CMD.Parameters(6)= request.form("Rut_Insp3")
end if
if (request.form("Rut_Insp3")="NoComuna") then
       CMD.Parameters(7)= 0    
else
		CMD.Parameters(7)= request.form("Comuna")
end if
CMD.Parameters(8)= request.form("det_lugarInsp")
CMD.Parameters(9)= 1034
CMD.Parameters(10)=Session("obj").usuario
CMD.Parameters(11)=0
CMD.Parameters.Append (CMD.CreateParameter("@idformulario", adInteger, adParamOutput,3))
ListaForm = CMD.Execute
id = ListaForm("@idformulario")

Gracias