home *** CD-ROM | disk | FTP | other *** search
/ Chip: Windows 2000 Professional Resource Kit / W2KPRK.iso / apps / crystal / disk8 / report.as_ / report.as
Encoding:
Text File  |  1999-08-23  |  3.2 KB  |  98 lines
  1. <%
  2. ' Get QS variables
  3. rpttoview = request.querystring("rpt")
  4. viewer = request.querystring("init")
  5.  
  6. 'build full path for report
  7.  
  8. rpttoview = MID(request.ServerVariables("PATH_TRANSLATED"), 1, (LEN(request.ServerVariables("PATH_TRANSLATED"))-11)) & "\craze\" & rpttoview & ".rpt"
  9.  
  10. ' build path to MDB
  11.  
  12. pathtomdb = MID(request.ServerVariables("PATH_TRANSLATED"), 1, (LEN(request.ServerVariables("PATH_TRANSLATED"))-19)) & "\craze.mdb"
  13.  
  14. ' Only create the Crystal Application Object on first time through
  15. If Not IsObject ( session ("oApp")) Then
  16. Set session ("oApp") = Server.CreateObject("Crystal.CRPE.Application")
  17. End If
  18.  
  19. ' Turn off all Error Message dialogs
  20. Set oGlobalOptions = Session ("oApp").Options
  21. oGlobalOptions.MorePrintEngineErrorMessages = 0
  22.  
  23. ' Open the report
  24. Set session("oRpt") = session("oApp").OpenReport(rpttoview)
  25.  
  26. ' Turn off sepecific report error messages
  27. Set oRptOptions = Session("oRpt").Options
  28. oRptOptions.MorePrintEngineErrorMessages = 0
  29.  
  30. ' now set the table location
  31. Set oDB = session("oRpt").Database
  32. For Each oDBTable In oDB.Tables
  33.     oDBTable.Location = pathtomdb
  34. Next
  35.  
  36.  
  37. ' Opening the page engine will cause the data to be read
  38. Set session("oPageEngine") = session("oRpt").PageEngine
  39.  
  40. ' Now decide what viewer to create
  41. Select Case viewer
  42.  
  43.     Case "java"
  44. %>
  45.  
  46. <SCRIPT LANGUAGE="JavaScript"><!--
  47.      var _ns3 = false;
  48.      var _ns4 = false;
  49.      //--></SCRIPT>
  50.      <COMMENT><SCRIPT LANGUAGE="JavaScript1.1"><!--
  51.      var _info = navigator.userAgent;
  52.      var _ns3 = (navigator.appName.indexOf("Netscape") >= 0 && _info.indexOf("Win16") < 0 && _info.indexOf("Mozilla/3") >= 0);
  53.      var _ns4 = (navigator.appName.indexOf("Netscape") >= 0 && _info.indexOf("Win16") < 0 && _info.indexOf("Mozilla/4") >= 0 );
  54.      //--></SCRIPT></COMMENT>
  55.          <SCRIPT LANGUAGE="JavaScript"><!--
  56.              if(_ns3==true)
  57.  document.writeln( '<applet code=com.seagatesoftware.img.ReportViewer.ReportViewer          codebase="/viewer/JavaViewer"          id=ReportViewer width=100% height=95%  archive="/viewer/JavaViewer/ReportViewer.zip">' );
  58.              else if (_ns4 == true)
  59.  document.writeln( '<applet code=com.seagatesoftware.img.ReportViewer.ReportViewer          codebase="/viewer/JavaViewer"          id=ReportViewer width=100% height=95%  archive="/viewer/JavaViewer/ReportViewer.jar">' );
  60.              else
  61.  document.writeln( '<applet code=com.seagatesoftware.img.ReportViewer.ReportViewer          codebase="/viewer/JavaViewer"          id=ReportViewer width=100% height=95%  >' );
  62.          //--></SCRIPT>
  63.  
  64.          <param name=ReportName value="rptserver.asp">
  65.         <param name=HasGroupTree value=true>
  66.         <param name=ShowGroupTree value=true>
  67.         <param name=HasRefreshButton value=true>
  68.         <param name=HasPrintButton value=true>
  69.          <param name=cabbase value="/viewer/JavaViewer/ReportViewer.cab">
  70.         </applet>
  71.  
  72.  
  73.  
  74. <%
  75.     Case "actx"
  76. %>
  77. <OBJECT ALIGN = LEFT ID="CRViewer"  WIDTH=100% HEIGHT=95%
  78.  CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
  79.  CODEBASE="/viewer/activeXViewer/CRViewer.dll#Version=1,2,0,30">
  80.  <PARAM NAME="Report Name" VALUE="rptserver.asp">
  81.     <PARAM NAME="Show Group Tree" VALUE= 1>
  82.     <PARAM NAME="Show Toolbar" VALUE= 1>
  83. </OBJECT>
  84.  
  85. <%
  86.     Case "html_frame"
  87.         response.redirect "htmstart.asp"
  88.  
  89.     Case "html_page"
  90.  
  91.     response.redirect "rptserver.asp"
  92.  
  93.  
  94.  
  95.     end select
  96.  
  97. %>
  98.