Recuprar un valor de un procedimiento almacenado

[kryna]

Código:

<%
'/*Se establese la coneccion*/
Set CMD = CreateObject("ADODB.Command")
Set CMD.ActiveConnection = ccmm1

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.Append (CMD.CreateParameter("@tipo_insp", adsmallint, adParamInput, 2, 1))
else 
   CMD.Parameters.Append (CMD.CreateParameter("@tipo_insp", adsmallint, adParamInput, 2, 2))
end if 

CMD.Parameters.Append (CMD.CreateParameter("@idmovil", adInteger, adParamInput, 4, 5))
CMD.Parameters.Append (CMD.CreateParameter("@agente", adInteger, adParamInput, 4, request.form("Rut_Agente")))

If (request.form("Rut_Insp1")= "NoInsp1") then
     CMD.Parameters.Append (CMD.CreateParameter("@insp1", adInteger, adParamInput, 	9, 0))
   else 
   CMD.Parameters.Append (CMD.CreateParameter("@insp1", adInteger, adParamInput, 9, request.form("Rut_Insp1")))
end if 
if (request.form("Rut_Insp2")="NoInsp2") then
       CMD.Parameters.Append (CMD.CreateParameter("@insp2", adInteger, adParamInput, 9, 0))
else
   CMD.Parameters.Append (CMD.CreateParameter("@insp2", adInteger, adParamInput, 9, request.form("Rut_Insp2")))
end if 
if (request.form("Rut_Insp3")="NoInsp3") then
       CMD.Parameters.Append (CMD.CreateParameter("@insp3", adInteger, adParamInput, 9, 0))
else 
       CMD.Parameters.Append (CMD.CreateParameter("@insp3", adInteger, adParamInput, 9, request.form("Rut_Insp3")))
end if
if (request.form("Comuna")="NoComuna") then
       CMD.Parameters.Append (CMD.CreateParameter("@comuna", adInteger, adParamInput, 4,0))    
else
		CMD.Parameters.Append (CMD.CreateParameter("@comuna", adInteger, adParamInput, 4, request.form("Comuna")))
end if
CMD.Parameters.Append (CMD.CreateParameter("@lugar", adVarChar, adParamInput, 20, request.form("lugar")))
CMD.Parameters.Append (CMD.CreateParameter("@reparticion", adInteger, adParamInput, 4, request.form("reparticion")))
CMD.Parameters.Append (CMD.CreateParameter("@usuario", adInteger, adParamInput, 4, Session("obj").usuario))
CMD.Parameters.Append (CMD.CreateParameter("@idformulario", adInteger, adParamOutput,4))
ListaForm = CMD.Execute

quedaría algo asi? a eso se refieren?
igual me tira el mismo error!!
estoy buscando información, pero no he encontrado