Here is the contents of a page that I use to open a particular report. IP's
and passwords are changed to protect the vulnerable - and my job :-)
==========================
<BODY BGCOLOR-C6C6C6 LANGUAGE=VBScript ONLOAD="Page_Initialize">
<OBJECT ID="CRViewer"
CLASSID = "CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100% HEIGHT=95%
CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=7,0,100,52">
<PARAM NAME='EnableDrillDown' VALUE=1>
<PARAM NAME='EnableAnimationControl' VALUE=1>
<PARAM NAME='EnableCloseButton' VALUE=1>
<PARAM NAME='EnableGroupTree' VALUE=1>
<PARAM NAME='EnableNavigationControls' VALUE=1>
<PARAM NAME='EnablePrintButton' VALUE=1>
<PARAM NAME='EnableProgressControl' VALUE=1>
<PARAM NAME='EnableRefreshButton' VALUE=1>
<PARAM NAME='EnableSearchControl' VALUE=1>
<PARAM NAME='EnableStopButton' VALUE=1>
<PARAM NAME='EnableZoomControl' VALUE=1>
<PARAM NAME='DisplayGroupTree' VALUE=1>
<PARAM NAME='DisplayToolbar' VALUE=1>
<PARAM NAME='EnableToolBar' VALUE=1>
<PARAM NAME='DisplayBorder' VALUE=1>
<PARAM NAME='DisplayTabs' VALUE=1>
<PARAM NAME='DisplayBackgroundEdge' VALUE=1>
<PARAM NAME='EnablePopupMenu' VALUE=1>
<PARAM NAME='EnableExportButton' VALUE=1>
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
Sub Page_Initialize
Dim webBroker
Set webBroker = CreateObject ("WebReportBroker.WebReportBroker")
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 from Microsoft's web site."
CRViewer.ReportName = "http://xxx.xxx.xxx.xxx/Reports/Membership_Roster.rpt";
else
Dim webSource
Set webSource = CreateObject ("WebReportSource.WebReportSource")
webSource.ReportSource = webBroker
webSource.URL = "https://xxx.xxx.xxx.xxx/Reports/Membership_Roster.rpt";
webSource.AddParameter "user0", "user"
webSource.AddParameter "password0", "abcdef"
<CFOUTPUT> webSource.AddParameter "prompt0", "#Client.CHAPTER#" </CFOUTPUT>
webSource.PromptOnRefresh = False
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
</SCRIPT>
============================
JoAnn A. Schlosser
Consultant
Association Management Software
Grant Thornton LLP
Washington, D. C.
703.837.4428
-----Original Message-----
From: Todd Ashworth [mailto:[EMAIL PROTECTED]]
Sent: Friday, August 17, 2001 10:07 AM
To: CF-Talk
Subject: Crystal Reports without cfreport
Does anyone have an example of connecting to a Crystal Reports report
without using cfreport? Can this even be done?
Todd
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Structure your ColdFusion code with Fusebox. Get the official book at
http://www.fusionauthority.com/bkinfo.cfm
FAQ: http://www.thenetprofits.co.uk/coldfusion/faq
Archives: http://www.mail-archive.com/[email protected]/
Unsubscribe: http://www.houseoffusion.com/index.cfm?sidebar=lists
