### Embedding the Report Viewer for Active X in a web page

The following HTML code demonstrates one means of embedding the Report Viewer for ActiveX in a web page using the OBJECT tag:

    <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 = Location.Href
        if InStr(1, URL, "?")>0 then
            URL=Mid(URL, 1, InStr(1, URL, "?") - 1)
        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>

This example displays a Group Tree to allow Smart Navigation. Additionally, the user can drill-down on summary reports, refresh report data, and print the report to a printer.

For information on using the ActiveX viewer inside other applications and development environments, refer to the Seagate Crystal Reports Technical Reference Guide.

Seagate Software, Inc. http://www.seagatesoftware.com Please send comments to: techpubs@seagatesoftware.com