%> <OBJECT ID="CRViewer" CLASSID="CLSID:C0A870C3-66BB-4106-9A25-60A26F3C1DA8" WIDTH="100%" HEIGHT="550" codebase="/crystalreportviewers10/ActiveXControls/ActiveXViewer.cab#Version=14,1,4,1327" VIEWASTEXT> <PARAM NAME="EnableRefreshButton" VALUE=1> <PARAM NAME="DisplayGroupTree" VALUE="1"> <PARAM NAME="EnableGroupTree" 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"> <PARAM NAME="EnableSelectExpertButton" VALUE="1"> </OBJECT> <SCRIPT LANGUAGE="VBScript"> <!-- Sub Window_Onload On Error Resume Next Dim webBroker Set webBroker = CreateObject("CrystalReports14.WebReportBroker.1") If ScriptEngineMajorVersion < 2 Then window.alert "IE 3.02 users need to get the latest version of VBScript or install IE 4.01 SP1 or newer. Users of Windows 95 additionally need DCOM95. These files are available at Microsoft's web site." else Dim webSource Set webSource = CreateObject("CrystalReports14.WebReportSource.1") webSource.ReportSource = webBroker webSource.URL = "rptserver.asp" webSource.PromptOnRefresh = True CRViewer.ReportSource = webSource End If CRViewer.ViewReport CRViewer.Zoom(1) CRViewer.DisplayGroupTree=true CRViewer.EnableExportButton=false End Sub --> </SCRIPT> <OBJECT ID="ReportSource" CLASSID="CLSID:C05C1BE9-3285-4ED8-B47E-8F408534E89D" HEIGHT=1% WIDTH=1% codebase="/crystalreportviewers10/ActiveXControls/ActiveXViewer.cab#Version=14,1,4,1327"> </OBJECT> <OBJECT ID="ViewHelp" CLASSID="CLSID:C02176CF-8629-4AF6-8F96-00D2DAA4EFB2" HEIGHT=1% WIDTH=1% codebase="/crystalreportviewers10/ActiveXControls/ActiveXViewer.cab#Version=14,1,4,1327"> </OBJECT> <OBJECT ID="ReportParameter" CLASSID="CLSID:9928001F-C059-4de0-86E7-A4A2859FBD78" HEIGHT="1%" WIDTH="1%" CODEBASE="/crystalreportviewers10/ActiveXControls/ActiveXViewer.cab#Version=14,1,4,1327"> </OBJECT> <div> <!-- This empty div prevents IE from showing a bunch of empty space for the controls above. --> </div> <%
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)