Código:
Set CoComando = Server.CreateObject("ADODB.Command")
CoComando.ActiveConnection = Mi_Conn
CoComando.CommandText = "SP_MiProc"
CoComando.CommandType = 4 'Procedimiento Almacenado
CoComando.Parameters.Append CoComando.CreateParameter("@RETURN_VALUE",3,4,4)
CoComando.Parameters.Append CoComando.CreateParameter("@Nombre",200,1,100,'Tito')
CoComando.Execute
Id = CoComando.Parameters.Item("@RETURN_VALUE").Value
Createparemeter("NOMBRE_PARAMETRO",tipoDeDato,dire ccion,Tamaño,valor)