Recuprar un valor de un procedimiento almacenado

[Myakire]

ye preferiría algo más fácil de mantener:

Código:

Set CMD = CreateObject("ADODB.Command")
Set CMD.ActiveConnection = ccmm1

CMD.CommandText= "pa_INuevoFormulario"
CMD.CommandType =adCmdStoredProc

If (request.form("tipo_insp")= "parcial") then TipoInsp = 1 Else TipoInsp = 2 End If 
If (request.form("NoInsp1")= "NoInsp1") then NoInsp1 = 0 Else NoInsp1 = Cint(request.form("Rut_Insp1")) End If 
If (request.form("NoInsp2")= "NoInsp2") then NoInsp2 = 0 Else NoInsp2 = Cint(request.form("Rut_Insp2")) End If 
If (request.form("NoInsp3")= "NoInsp3") then NoInsp3 = 0 Else NoInsp3 = Cint(request.form("Rut_Insp3")) End If 
If (request.form("Comuna")="NoComuna") then Comuna = 0 Else Comuna = Cint(request.form("Comuna")) End If 

CMD.Parameters.Append (CMD.CreateParameter("@tipo_insp", adsmallint, adParamInput, 2, 2))
CMD.Parameters.Append (CMD.CreateParameter("@idmovil", adInteger, adParamInput, 4, 5))
CMD.Parameters.Append (CMD.CreateParameter("@agente", adInteger, adParamInput, 4, TipoInsp))
CMD.Parameters.Append (CMD.CreateParameter("@insp1", adInteger, adParamInput, 9, NoInsp1))
CMD.Parameters.Append (CMD.CreateParameter("@insp2", adInteger, adParamInput, 9, NoInsp2))
CMD.Parameters.Append (CMD.CreateParameter("@insp3", adInteger, adParamInput, 9, NoInsp3))
CMD.Parameters.Append (CMD.CreateParameter("@comuna", adInteger, adParamInput, 4, Comuna))
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))
cmd.Prepared = True
CMD.Execute

Ahora, así ya no debería de marcarte el error de "Demasiados argumentos", quizá algún otro (como que X parámetro no se ha especificado), pero eso no, ya que corresponden los que mandas, con los que recibes.

SI pudieras revisar bien el mensaje de error y confirmar, por favor