The asp page that calls main report:
<%@ Language=VBScript %>
<%
server.ScriptTimeout=600
Response.CacheControl="no-cache"
pstart=Request.QueryString("pstart"

pend=Request.QueryString("pend"

site=Request.QueryString("site"
if Request.QueryString("pdiv"

="" then
pdiv=0
else
pdiv=cint(Request.QueryString("pdiv"

)
end if
if Request.QueryString("pacct"

="" then
pacct=0
else
pacct=cdbl(Request.QueryString("pacct"

)
end if
if Request.QueryString("pnum"

="" or Request.QueryString("pnum"

="0" then
pnum=0
else
pnum=cdbl(Request.QueryString("pnum"

)
end if
ReportName="main_report.rpt"
%>
<!-- #include file="AlwaysRequiredSteps.asp" -->
<%
set crtable = session("oRpt"

.Database.Tables.Item(1)
crtable.SetLogonInfo "dbname" ,"", cstr("user"

, cstr("user"
if crtable.testconnectivity="True" then
Set ParamDefCollection = Session("oRpt"

.Parameterfields
set session("Param"

= ParamDefCollection
set MyParam = session("Param"

.Item(1)
Call Myparam.SetCurrentValue(cdbl(pnum),7)
set MyParam = session("Param"

.Item(2)
Call Myparam.SetCurrentValue(cdbl(pdiv),7)
set MyParam = session("Param"

.Item(3)
Call Myparam.SetCurrentValue(cdbl(pacct),7)
set MyParam = session("Param"

.Item(4)
Call Myparam.SetCurrentValue(cstr(pstart),12)
set MyParam = session("Param"

.Item(5)
Call Myparam.SetCurrentValue(cstr(pend),12)
set MyParam = session("Param"

.Item(6)
Call Myparam.SetCurrentValue(cstr(""

,12)
%>
<!-- #include file="MoreRequiredSteps.asp" -->
<!-- #include file="SmartViewerActiveX.asp" -->
<%
end if
%>
Thank you.
Julia