problema al insertar varias filas con store procedure

[nancy8120]

ok muy bien pero ahora no me retorna el valor
le muestro el nuevo codigo el store procedure sigue =

<%
j=0
for i=0 to ubound(laReportes,2)
redim preserve laTotales(i)
redim preserve laConceptos(i)
redim preserve PsHistory(9,j)
redim preserve PSHistoryNum(0,j)

PsNumReporte=laReportes(0,i)
PsnumRepC=laReportes(1,i)
lnTotalFavor=Request.Form("hdnTotalFavor")(i+1)
laTotales(i)=lnTotalFavor
lsConcepto=Request.Form("hdnConcepto")(i+1)
lsConcepto=replace(Request.Form("hdnConcepto")(i+1 ) ,"'","´")
laConceptos(i)=lsConcepto
lsTipoReporte=Request.form("hdnTipoReporte")(i+1)
lsCompania=Request.Form("hdnCompany")(i+1)
lsEmpleadoTH=laReportes(3,i)

Set cmdSRGP = Server.CreateObject("ADODB.Command")
set cmdSRGP.ActiveConnection=conSRG

cmdSRGP.CommandText = "{call SP_VTHistoryRep(?,?,?,?,?,?,?,?,?,?)}"
cmdSRGP.parameters.append cmdSRGP.createparameter("PSHistoryNum(0,j)",adInte ger, adParamOutput,1)
cmdSRGP.parameters.append cmdSRGP.createparameter("PsHistory(0,j)",adVarChar ,adParamInput,13)
cmdSRGP.parameters.append cmdSRGP.createparameter("PsHistory(1,j)",adInteger ,adParamInput,4)
cmdSRGP.parameters.append cmdSRGP.createparameter("PsHistory(2,j)",adDBDate, adParamInput,133)
cmdSRGP.parameters.append cmdSRGP.createparameter("PsHistory(3,j)",adCurrenc y,adParamInput,10)
cmdSRGP.parameters.append cmdSRGP.createparameter("PsHistory(4,j)",adVarChar ,adParamInput,250)
cmdSRGP.parameters.append cmdSRGP.createparameter("PsHistory(5,j)",adChar,ad ParamInput,1)
cmdSRGP.parameters.append cmdSRGP.createparameter("PsHistory(6,j)",adChar,ad ParamInput,1)
cmdSRGP.parameters.append cmdSRGP.createparameter("PsHistory(7,j)",adChar,ad ParamInput,7)
cmdSRGP.parameters.append cmdSRGP.createparameter("PsHistory(8,j)",adVarChar ,adParamInput,10)

cmdSRGP.parameters("PsHistory(0,j)") =PsNumReporte
cmdSRGP.parameters("PsHistory(1,j)")=PsnumRepC
cmdSRGP.parameters("PsHistory(2,j)")=FormateaFecha Server(lsFechaCreacion)
cmdSRGP.parameters("PsHistory(3,j)")=lnTotalFavor
cmdSRGP.parameters("PsHistory(4,j)")=lsConcepto
cmdSRGP.parameters("PsHistory(5,j)")=5
cmdSRGP.parameters("PsHistory(6,j)")=lsTipoReporte
cmdSRGP.parameters("PsHistory(7,j)")=lsCompania
cmdSRGP.parameters("PsHistory(8,j)")=lsEmpleadoTH

response.write cmdSRGP("PSHistoryNum(0,j)")
response.write "<br>"
response.write cmdSRGP("PsHistory(0,j)")
response.write "<br>"
response.write cmdSRGP("PsHistory(1,j)")
response.write "<br>"
response.write cmdSRGP("PsHistory(2,j)")
response.write "<br>"
response.write cmdSRGP("PsHistory(3,j)")
response.write "<br>"
response.write cmdSRGP("PsHistory(4,j)")
response.write "<br>"
response.write cmdSRGP("PsHistory(5,j)")
response.write "<br>"
response.write cmdSRGP("PsHistory(6,j)")
response.write "<br>"
response.write cmdSRGP("PsHistory(7,j)")
response.write "<br>"
response.write cmdSRGP("PsHistory(8,j)")
response.write "<br>"
response.write "Hi otro"

cmdSRGP.Execute
Set cmdSRGP = Nothing

j=j+1
next

%>
por algun motivo no me retorna el valor no veo error en el codigo ni en el procedimiento
gracias