Ayuda con Crystal y ASP

[Carlos B. G]

tengo una aplicación con ASP que intenta llamar u a un reporte que contiene subrerportes, el problema es que no sé como, ya he leido diferentes ejemplos, pero algunos son para vb esclusivamente y pues no reconoce algunas funciones o variables que me imagino se crean al realizar la referencia en el lenguaje, etc. el caso es que no me muestra el reporte cuando lo pido. Sin embargo si el reporte no tiene subreportes, si me lo muestra, el codigo es el siguiente, espero puedan ayudarme. DE ANTEMANO GRACIAS. Solo anexo el codigo de donde trata segun yo de anexar los parametros a los subreportes, pues de otras formas lo demas si esta bien configurado puesto que si no no podría ver otros reportes sencillos.


'aqui solo pasa los parametros a REPORTE PRINCIPAL
set session("ParamCollection") = Session("oRpt").Parameterfields


set Parametros=session("ParamCollection")

for i = 1 to Parametros.Count
'set Param= Parametros.Item(i)
'Response.Write(Param.ValueType)
if i = 1 then
Call Param.SetCurrentValue (request("custno"))
end if
if i = 2 then
Call Param.SetCurrentValue (cstr(request("fecha")),12)
end if


next

' abre sub repostes
dim sub1(7)
sub1(1)="sr1.rpt"
sub1(2)="sr2.rpt"
sub1(3)="sr3.rpt"
sub1(4)="sr4.rpt"
sub1(5)="sr5.rpt"
sub1(6)="sr6.rpt"
sub1(7)="sr7.rpt"

for y= 1 to 7
Response.Write(y)
set subReporte=session("oRpT").OpenSubReport(sub1(y))
For Each subTable in subReporte.Database.Tables
With subTable.ConnectionProperties
.Item("user ID") = DatabaseUser
.Item("Password") = DatabasePassword
.Item("DSN") = DatabaseServer
.Item("Database") = DatabaseName
End With
Next

set Parametros=subReporte.Parameterfields
' aqui debera de pasar los parametros a cada uno de los subreportes
for i = 1 to Parametros.Count

if i = 1 then
Call Param.SetCurrentValue (request("custno"))
end if
if i = 2 then
Call Param.SetCurrentValue (cstr(request("fecha")),12)
end if


next
next

Gracias