Crystal Report Viewer doesn´t display any report in ASP

See more:

ASP

CrystalReports

Hi,

I got an ASP application for debugging and fixing an issue. The application is to shows a report but on the browser I am only able to see the Report Viewer not the report. The application uses CR 2013 SP4 (14.1.4.1327).

Below is a block of code from ASP page -

%>

    <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>
    <%