ckwizard77
Programmer
I am using the prompt# command to send multiple parameters and value through a URL to be viewed in crystal 8. When I do this in Crystal 10 I get nothing?
Here is the url: str1="/Reports10/genReport.asp?reportname=SummaryTest.rpt" & _
"&prompt0=" & s_Boro & "&prompt1=" & s_Category & "&prompt2=" & _
s_Year & "&prompt3=" & i_Boro & "&prompt4=" & i_Category & "&promptOnRefresh=0"
NOTE: the parameters and values are pipe delimited
What needs to be changed to view this in Crystal Reports 10?
Here is the receiving page:
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../common/session_check.asp"-->
<!-- #INCLUDE FILE="../common/ClsCrystalLogon.asp"-->
<%dim crReport
dim s_reportname
dim s_param
dim i_counter
dim s_paramname
s_paramname="param"
if request(s_paramname & "0")="" then
s_paramname="prompt"
end if
i_counter=0
s_reportname=request("reportname")
if s_reportname>"" then
set crReport=new ClsCrystalLogon
with crReport
.ReportName=s_reportname
.ServerKey="Etrac_Servername"
.DBKey="Etrac_InitialCatalog"
.UserKey="Etrac_Userid"
.PwdKey="Etrac_Pwd"
s_param=request(s_paramname & "0")
while s_param>""
.addParam replace(s_param, "*","%")
i_counter=i_counter+1
s_param=request(s_paramname & i_counter)
wend
end with
'Generate report
crReport.genReport
end if
%>
I am also using the ActiveXViewer.
Any assitance would be greatly appreciated.
If you need to see more code, I will be happy to furnish this. So far I have posted to numerous websites and no one has been able to assist.
Thank you.
Here is the url: str1="/Reports10/genReport.asp?reportname=SummaryTest.rpt" & _
"&prompt0=" & s_Boro & "&prompt1=" & s_Category & "&prompt2=" & _
s_Year & "&prompt3=" & i_Boro & "&prompt4=" & i_Category & "&promptOnRefresh=0"
NOTE: the parameters and values are pipe delimited
What needs to be changed to view this in Crystal Reports 10?
Here is the receiving page:
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../common/session_check.asp"-->
<!-- #INCLUDE FILE="../common/ClsCrystalLogon.asp"-->
<%dim crReport
dim s_reportname
dim s_param
dim i_counter
dim s_paramname
s_paramname="param"
if request(s_paramname & "0")="" then
s_paramname="prompt"
end if
i_counter=0
s_reportname=request("reportname")
if s_reportname>"" then
set crReport=new ClsCrystalLogon
with crReport
.ReportName=s_reportname
.ServerKey="Etrac_Servername"
.DBKey="Etrac_InitialCatalog"
.UserKey="Etrac_Userid"
.PwdKey="Etrac_Pwd"
s_param=request(s_paramname & "0")
while s_param>""
.addParam replace(s_param, "*","%")
i_counter=i_counter+1
s_param=request(s_paramname & i_counter)
wend
end with
'Generate report
crReport.genReport
end if
%>
I am also using the ActiveXViewer.
Any assitance would be greatly appreciated.
If you need to see more code, I will be happy to furnish this. So far I have posted to numerous websites and no one has been able to assist.
Thank you.