sortir la valeur du paramètre de la procédure stockée dans l'asp classique

Question

Je travaille avec ASP classique et en utilisant la procédure stockée. Je dois obtenir la valeur de la procédure stockée hors paramètre. Ceci est mon code

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> 
<!-- METADATA TYPE="TypeLib" NAME="Microsoft ADO Type Library" UUID="{00000205-0000-0010-8000-00AA006D2EA4}" --> 
<% 

Dim value 
    Dim i 

set con = Server.CreateObject("ADODB.Connection") 
con.Open "Provider=SQLOLEDB;Server=aliba\SQLEXPRESS;Database=dummySP;Trusted_Connection=Yes;"  
Set Comm = Server.CreateObject("ADODB.Command") 
comm.ActiveConnection = con 
comm.CommandText = "sp_dummy" 
'comm.NamedParameters=true 
comm.CommandType = adCmdStoredProc 
comm.Parameters.Append comm.CreateParameter("@weight" , adVarchar,adParamInput, 50, "hello") 
'comm.Parameters.Append comm.CreateParameter("PRODUCT", adVarchar, adParamInput,50, producttype) 
'comm.Parameters.Append comm.CreateParameter("ACCOUNT", adVarchar, adParamInput,100, "") 


    comm.Parameters.Append comm.CreateParameter("@pris", adVarchar, adParamOutput,50) 'output parameters 
    'i=comm.Execute 
    comm.Execute 
    value=comm.Parameters("@pris").Value 
    Response.Write("Value is") 
    Response.Write(value) 

La valeur de pris ne s'affiche pas en sortie. Je n'ai aucune idée de ce qui ne va pas.

J'ai suivi ce lien (Calling SQL Stored Procedure with Output Parameter in VBScript) mais n'obtient pas le succès

Il me donne erreur suivant

valeur est

erreur objet Response 'ASP 0185: 8002000e'

Propriété par défaut manquante

/StoreProcedure.asp , ligne 0

Une propriété par défaut n'a pas été trouvée pour l'objet.

Voici ma procédure stockée

ALTER procedure [dbo].[sp_dummy] 
    @weight nvarchar(50), 
    @pris nvarchar(50)= null out 
    as 
    begin 

    select @pris = pris from sp_dummy_table where weight= @weight 
    end 

Answer 1

Je suggère que vous fermez votre SP avec un SELECT afin que vous puissiez obtenir la valeur d'un Recordset.

SELECT OutPRIS=@pris 

Puis dans votre code ASP:

Set rsComm = comm.Execute 
If Not rsComm.EOF Then 
    myPRIS = rsComm.Fields("OutPRIS").Value 
Else 
    myPRIS = Null 
End If 
rsComm.Close 
Set rsComm = Nothing 

Hope this helps.