Sintaxis para recoger un parametro de un store procedure

[nancy8120]

mira lo que he hecho
creo q esta bien segun lo q he leido
el tiene un parametro de entrada y otro de salida
el valor de entrada es string y el de salida es int pero no se como declararlo
<%
set conSRG=Server.CreateObject("ADODB.Connection")
Set cmdSRG = Server.CreateObject("ADODB.Command")
Set lrsDatosRep=Server.CreateObject("ADODB.Recordset")
'Abre Conexión a Base de Datos SRG
conSRG.Open Application("DSN_SRG")
'Establece tipo de comando
'cmdSRG.CommandType=1
Set cmdSRG.ActiveConnection = conSRG

set cmdSRG.ActiveConnection=conSRG

cmdSRG.CommandText = "{ call SP_VTHistoryRep(?,?) }"
cmdSRG.parameters.append cmdSRG.createparameter("Num",adInteger, adParamOutput)
cmdSRG.parameters.append cmdSRG.createparameter("PsNumReporte",adInteger, adParamInput)
cmdSRG.parameters("PsNumReporte") ="07-999-1679"
cmdSRG.Execute
response.write Num
%>
el error que me manda es fuera de rango