problema al insertar varias filas con store procedure

[nancy8120]

bueno no esactamente funciones
te doy un ejemplo

for i=0 to ubound(laReportes,2)
redim preserve laTotales(i)
redim preserve laConceptos(i)
cmdSRG.CommandType = adCmdText
cmdSRG.activeconnection=conSRG
lsSQl="update TReporte set sIdStatus=5 where sNumReporte='" & laReportes(0,i) & "' and nNumRep=" & laReportes(1,i)
cmdSRG.commandtext=lsSql
cmdSRG.execute()'****ojo

'*******Inserta movimiento en THistmovimientos
lsFechaCreacion=Request.Form("hdnFechaCreacion")(i + 1)
lsSql="exec SP_THistMovimientos 1,'" & laReportes(0,i) & "'," & laReportes(1,i) & ",null,'Procesado',"
lsSql=lsSql & "5,'" & FormateaFechaServer(lsFechaCreacion) & "','" & lsEmpleado & "','" & lsEmpleado & "'"

cmdSRG.CommandText=lsSql
cmdSRG.Execute '***ojo

y le sigue el codigo q mostre al principio

es correcto eso ? o debo crear un objeto command para cada uno y destruir
Me explique ?
gracias