Failed to view report when using ActiveXViewer.cab of Crystal Reports XI

Question

Hi
I failed to run Active Server Pages sample application that uses Crystal Reports XI Developer Edition on windows server 2003 machine ie 6.
What i am getting is a grey page with tiny x mark, meaning that activex failed to load (if i am not mistaking)
I have followed "Troubleshooting Report Designer Component Application Issues" document and succeded in
1. manually activeX installing (checked in ie and it a matching object appeared there).
2. succesfully ran the "test.wsf" (xsl was created)
but still in ie activex won't load.
Any help will be appreciated...
thx
Edited by: Daniel Polonsky on Mar 11, 2009 11:29 AM

Answer 1

Try this code, the report source uses Enterprise but you should be able to replace that with local file:
Sub Window_Onload
   'On Error Resume Next
   Dim webBroker
   Set webBroker = CreateObject("CrystalReports115.WebReportBroker.1")
   if err.number <> 0 then
        window.alert "The Crystal Report Viewer is unable to create its resource objects."
   elseif 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 y, z, yy
     z = 10
     y = 4
     Dim URLwebSource(13)
     Dim webSource(13)
     Set router = CreateObject("CrystalReports115.ReportSourceRouter.1")
     for x = 0 to y
     Set webSource(x) = CreateObject("CrystalReports115.WebReportSource.1")
     next
'     for x = 0 to y
     'reportIDs(1) = 763
     'response.write reportIDs(x)
<%
     for x = 0 to 4
     response.write(VBCRLF&"URLwebSource(" & x & ") = ""/crystalreportviewers115/viewrpt.asp?id=" & reportIDs(x) & "&apsuser=Administrator&apspassword=&apsauthtype=secEnterprise""")
     next     
%>
'      URLwebSource(x) = "/crystalreportviewers115/viewrpt.asp?id=" + reportIDs(0) + "&apsuser=Administrator&apspassword=&apsauthtype=secEnterprise"
'     next
     for x = 0 to y
     'webSource(x).PromptOnRefresh = True
     webSource(x).ReportSource = webBroker
     webSource(x).URL = URLwebSource(x)
     next
     for x = 0 to y
     router.addreport webSource(x)
     next
     CRViewer.ReportSource = router     
   end if
   CRViewer.ViewReport
End Sub
Thank you
Don