Ok here is what i have for my sub report... it works 100% correctly but the thing is that when we made the subreport we made the report, in Report Designer, with a datapoint_id (which is Param(9)) with a default vale of lets say "88" how do i grab the default value from the subreport??
i looked throught the help files and the closest thing i could find was:
'response.write subparams.item(9).getnthcurrentvalue
or
'response.write subparams.item(9).value
And this "should" grab the default value of item(9).
'==================================================================
' WORKING WITH SETLOGONINFO (SUBREPORT) #1
'==================================================================
'open the subreport
Set CRSubreports = session("oRpt"

.OpenSubreport("rpt_nt_proc_pct_proc_tm.rpt"

' The Sample subreport in this example has 3 tables, each table must be
' logged onto using the SetLogOnInfo method.
'Set Subreport logon parameters for each table in the report.
set crtablesub = CRSubreports.Database.Tables.Item(1)
crtablesub.SetLogonInfo "yakko", "edba", "sa", ""
set subparams= crsubreports.parameterfields
response.write crtablesub.testconnectivity
Set ThisParam = subparams.item(1)
Set ThisParam2 = subparams.item(2)
Set ThisParam3 = subparams.item(3)
Set ThisParam4 = subparams.item(4)
Set ThisParam5 = subparams.item(5)
Set ThisParam6 = subparams.item(6)
Set ThisParam7 = subparams.item(7)
Set ThisParam8 = subparams.item(8)
Set ThisParam9 = subparams.item(9)
Set ThisParam10 = subparams.item(10)
Set ThisParam11 = subparams.item(11)
'response.write subparams.item(9).getnthcurrentvalue
'response.write subparams.item(9).value
NewParamValue = "3"
NewParamValue2 = "2004"
NewParamValue3 = "1"
NewParamValue4 = "yakko"
NewParamValue5 = "edba"
NewParamValue6 = "pmi"
NewParamValue7 = "03/21/2000"
NewParamValue8 = "03/30/2000"
NewParamValue9 = "85" <------ this should be the default value
NewParamValue10 = "0"
NewParamValue11 = "0"
ThisParam.SetCurrentValue cint(NewParamValue), 7
ThisParam2.SetCurrentValue cint(NewParamValue2), 7
ThisParam3.SetCurrentValue cint(NewParamValue3), 7
ThisParam4.SetCurrentValue cstr(NewParamValue4), 12
ThisParam5.SetCurrentValue cstr(NewParamValue5), 12
ThisParam6.SetCurrentValue cstr(NewParamValue6), 12
ThisParam7.SetCurrentValue (CDate(#2000/03/23#)), 16
ThisParam8.SetCurrentValue (CDate(#2000/03/30#)), 16
ThisParam9.SetCurrentValue cint(NewParamValue9), 7
ThisParam10.SetCurrentValue cint(NewParamValue10), 7
ThisParam11.SetCurrentValue cstr(NewParamValue11), 12
[sig][/sig]