Guest_imported
New member
- Jan 1, 1970
- 0
I have just start to use crstal activexviewer under asp .
but page could not display the report
here is my code
can you give some examples about this subject.
Thanks.
Omur Tirol
'========================Crystal section============
<OBJECT ID="CRViewer"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100% HEIGHT=95%
codebase="/viewer/activeXViewer/activexviewer.cab#Version=1.0.0.0">
<PARAM NAME="EnableRefreshButton" VALUE=1>
<PARAM NAME="EnableGroupTree" VALUE=1>
<PARAM NAME="DisplayGroupTree" VALUE=1>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=1>
<PARAM NAME="EnableDrillDown" VALUE=1>
<PARAM NAME="EnableSearchControl" VALUE=1>
<PARAM NAME="EnableAnimationControl" VALUE=1>
<PARAM NAME="EnableZoomControl" VALUE=1>
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub window_onLoad()
Page_Initialize()
End Sub
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker"
URL = "if InStr(1, URL, "?">0 then
URL=Mid(URL, 1, InStr(1, URL, "?" - 1)
alert url
end if
if ScriptEngineMajorVersion <2 then
window.alert "IE 3.02 users on NT4 need to get the " & _
"latest version of VBScript or install IE 4.01 SP1. IE " & _
"3.02 users on Win95 need DCOM95 and latest version of " & _
"VBScript, or install IE 4.01 SP1. These files are " & _
"available at Microsoft's web site."
CRViewer.ReportName = URL
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource"
webSource.ReportSource = webBroker
webSource.URL = URL
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
'========================
but page could not display the report
here is my code
can you give some examples about this subject.
Thanks.
Omur Tirol
'========================Crystal section============
<OBJECT ID="CRViewer"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100% HEIGHT=95%
codebase="/viewer/activeXViewer/activexviewer.cab#Version=1.0.0.0">
<PARAM NAME="EnableRefreshButton" VALUE=1>
<PARAM NAME="EnableGroupTree" VALUE=1>
<PARAM NAME="DisplayGroupTree" VALUE=1>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=1>
<PARAM NAME="EnableDrillDown" VALUE=1>
<PARAM NAME="EnableSearchControl" VALUE=1>
<PARAM NAME="EnableAnimationControl" VALUE=1>
<PARAM NAME="EnableZoomControl" VALUE=1>
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub window_onLoad()
Page_Initialize()
End Sub
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker"
URL = "if InStr(1, URL, "?">0 then
URL=Mid(URL, 1, InStr(1, URL, "?" - 1)
alert url
end if
if ScriptEngineMajorVersion <2 then
window.alert "IE 3.02 users on NT4 need to get the " & _
"latest version of VBScript or install IE 4.01 SP1. IE " & _
"3.02 users on Win95 need DCOM95 and latest version of " & _
"VBScript, or install IE 4.01 SP1. These files are " & _
"available at Microsoft's web site."
CRViewer.ReportName = URL
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource"
webSource.ReportSource = webBroker
webSource.URL = URL
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
'========================