[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 562
  • Last Modified:

Microsoft VBScript compilation expected 'NEXT' line 8

<%
'This file contains the HTML code to instantiate the Smart Viewer ActiveX.  
'You will notice that the Report Name parameter references the RDCrptserver10.asp file.
'This is because the report pages are actually created by RDCrptserver10.asp.
'RDCrptserver10.asp accesses session("oApp"), session("oRpt") and session("oPageEngine")
'to create the report pages that will be rendered by the ActiveX Smart Viewer.
%>
<HTML>
<HEAD>
<TITLE>Crystal Reports ActiveX Viewer</TITLE>
</HEAD>
<BODY BGCOLOR=C6C6C6 ONUNLOAD="CallDestroy();" leftmargin=0 topmargin=0 rightmargin=0 bottommargin=0>
<OBJECT ID="CRViewer"
      CLASSID="CLSID:460324E8-CFB4-4357-85EF-CE3EBFE23A62"
      WIDTH=100% HEIGHT=99%
      CODEBASE="/crystalreportviewers11/ActiveXControls/ActiveXViewer.cab#Version=11,0,0,893" VIEWASTEXT>
<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>
<param name="SelectionFormula" value>
<param name="EnablePopupMenu" value=1>
<PARAM NAME="PromptOnRefresh" VALUE=0>


</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Window_Onload
      On Error Resume Next
      Dim webBroker
      Set webBroker = CreateObject("CrystalReports11.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("CrystalReports11.WebReportSource.1")
            webSource.ReportSource = webBroker
            webSource.URL = "RDCrptserver11.asp"
            webSource.PromptOnRefresh = True
            CRViewer.ReportSource = webSource
      end if
      CRViewer.ViewReport
End Sub
-->
</SCRIPT>

<script language="javascript">
function CallDestroy()
{
      window.open("Cleanup.asp");
}
</script>

</BODY>
</HTML>
0
Tiaanvanniekerk
Asked:
Tiaanvanniekerk
  • 2
1 Solution
 
mlmccCommented:
Which line is line 8?

mlmcc
0
 
TiaanvanniekerkAuthor Commented:
CLASSID="CLSID:460324E8-CFB4-4357-85EF-CE3EBFE23A62"
0
 
mlmccCommented:
The error doesn't make sense.  You might want to ask int he HTML forum

mlmcc
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now