Passing in SubReport Sproc Parameters using ASP

[Aaron]

The following code works fine when previewing a Crystal report using
ASP, EXCEPT when it gets to a report using a SubReport and its
associated parameters. The whole report just comes up blank with this
error message: "The Error Message was: Error detected by database
DLL.from: Crystal Reports ActiveX Designer".

What am I doing wrong in the SubReport section below and how do I
properly pass in sproc params to the subreport? Thanks.

------------------------------------------------------------

<%@ LANGUAGE="VBSCR IPT" %>
<title>Make Report</title>

<%
reportname = "\Reports\" & request("Report Name")
%>

<!-- #include file="AlwaysReq uiredSteps.asp" -->

<%

userid = "userid"
Password= "pwd"

session("oRpt") .MorePrintEngin eErrorMessages = False
session("oRpt") .EnableParamete rPrompting = False

set crtable = session("oRpt") .Database.Table s.Item(1)
crtable.SetLogo nInfo "SERVER", "DB", cstr(userid),cs tr(Password)

'============== =============== =============== =============== =======
' WORK WITH STORED PROCEDURE PARAMETERS

' - get the database's Stored Procedure Parameters
' Create a variable and point it to the Stored Procedure Parameter
' in the report

set StoredProcParam Collection = Session("oRpt") .ParameterField s

' - get the specific Store Procedure Parameter
' Create a variable and point it to the specific stored procedure
' that we want to work on

Set Param1 = StoredProcParam Collection.item (1)
Set Param2 = StoredProcParam Collection.item (2)

' Save the new value for the Stored Procedure in the Store Procedure

Param1.SetCurre ntValue cstr((request(" Program"))), 12
Param2.SetCurre ntValue cstr((request(" Client"))), 12

'============== =============== =============== =============== =======
''' ** Check for SubReport here
'============== =============== =============== =============== =======
if (request("SubRe portName"))<>"-1" then

'Open the subreport - This creates a subreport object
Set CRSubreports = session("oRpt") .OpenSubreport( cstr((request(" SubReportName") )))

userid = "userid"
Password= "pwd"

session("oRpt") .MorePrintEngin eErrorMessages = False
session("oRpt") .EnableParamete rPrompting = False

' Create Database object
set ReportDatabase2 = CRSubreports.Da tabase

'Database Table collection
Set crdatabasetable s2 = ReportDatabase2 .tables

set crtable2 = crdatabasetable s2.Item(1)
crtable2.SetLog onInfo "SERVER", "DB", cstr(userid),cs tr(Password)

'============== =============== =============== =============== =======
' WORK WITH STORED PROCEDURE PARAMETERS

' - get the database's Stored Procedure Parameters
' Create a variable and point it to the Stored Procedure Parameter
' in the report

set StoredProcParam Collection = Session("oRpt") .ParameterField s

' - get the specific Store Procedure Parameter
' Create a variable and point it to the specific stored procedure
' that we want to work on

Set subParam1 = StoredProcParam Collection.item (1)
Set subParam2 = StoredProcParam Collection.item (2)

subParam1.SetCu rrentValue cstr((request(" Program"))), 12
subParam2.SetCu rrentValue cstr((request(" Client"))), 12

end if

%>
<!-- #include file="MoreRequi redSteps.asp" -->
<!-- #include file="SmartView erActiveX.asp" -->

-----------------------------------------------------------