<HTML>
<HEAD>
<TITLE>Crystal Reports ActiveX Viewer</TITLE>
<script language="javascript">
// Set this value to false from another browser window if recycling this Report Viewer
// so that the Cleanup.asp does not execute and destory the report session variables.
var bCleanUpSessionVariables = true;
function CleanupSessions()
{
if ( bCleanUpSessionVariables )
{
window.open("ASPv10/Cleanup.asp","Cleanup","status=no,toolbar=no,location=no,menu=no,scrollbars=no,width=1,height=1");
}
}
</script>
</HEAD>
<BODY BGCOLOR=C6C6C6 ONUNLOAD="CleanupSessions();" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0">
<OBJECT ID="CRViewer"
CLASSID="CLSID:A1B8A30B-8AAA-4a3e-8869-1DA509E8A011"
WIDTH=100% HEIGHT=100%
CODEBASE="/viewer10/ActiveXControls/ActiveXViewer.cab#Version=10,0,0,280" VIEWASTEXT>
<PARAM NAME="EnableRefreshButton" VALUE=0>
<PARAM NAME="EnableGroupTree" VALUE=1>
<PARAM NAME="DisplayGroupTree" VALUE=0>
<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
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("CrystalReports10.WebReportBroker.1")
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."
else
Dim webSource
Set webSource = CreateObject("CrystalReports10.WebReportSource.1")
webSource.ReportSource = webBroker
webSource.URL = location.protocol + "//" + location.host +"/reports/ASPv10/rptserver.asp"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
</BODY>
</HTML>