Recuprar un valor de un procedimiento almacenado

[Myakire]

Aquí tienes un ejemplo:

Código:

      set cmd=server.CreateObject("ADODB.command")
      Set cmd.ActiveConnection = Con
      cmd.CommandText = "iUsuario"
      cmd.CommandType=adCmdStoredProc
      cmd.Parameters.Append (cmd.CreateParameter("@Login", adVarChar, adParamInput, 10, UCASE(Request.Form("Login"))))
      cmd.Parameters.Append (cmd.CreateParameter("@NumClave", adInteger, adParamOutput, 5))
      cmd.Execute	 
      ID = cmd.Parameters("@NumClave")
      set cmd = nothing

Las constantes están definidas en el archivo adovbs.inc

Saludos