How to display a Crystal Report object in a web page?

TheBugSlayer · Nov 17, 2003

All,
I am designing some reports with Crystal Report 8.0.1.0 which I need to publish on the web. Can anyone tell me how to view a Crystal Report object in a web page using ASP/HTML?

Thanks in advance.

PS: By the way, it had been such a long time from I last used CR that I learnt yesterday only that the product no longer belongs to Seagate but Crystal Decisions, and that's what tehy call version 9 now...

SpiderBear6 · Nov 17, 2003

I replied to your thread in the ASP forum.

TheBugSlayer · Nov 18, 2003

SpiderBear6,
thanks for your reply. I have one or two questions.

You can use the CRViewer object, like this...

<OBJECT ALIGN = Center ID="CRViewer" WIDTH=100% HEIGHT=100%
CLASSID = "CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
CODEBASE="
http://test/CRViewer.dll">;
<PARAM NAME="Report Name" VALUE="rptserver.asp">
<PARAM NAME="Show Group Tree" Value=0>
<PARAM NAME="Show Toolbar" VALUE=1>
<PARAM NAME="Has Group Tree" VALUE=0>
<PARAM NAME="Has Navigation Control" VALUE=1>
<PARAM NAME="Has Stop Button" VALUE=1>
<PARAM NAME="Has Print Button" VALUE=1>
<PARAM NAME="Has Zoom Control" VALUE=1>
<PARAM NAME="Has Close Button" VALUE=0>
<PARAM NAME="Has Progress Control" VALUE=1>
<PARAM NAME="Has Search Button" VALUE=1>
<PARAM NAME="Has Refresh Button" VALUE=1>
<PARAM NAME="Can Drill Down" VALUE=1>
<PARAM NAME="Has Animation Control" VALUE=1>
</OBJECT>

Above is the code you posted in the ASP forum. Is 'rptserver.asp' the name of the CR report to be displayed? My I create the report in CR and it isn't an ASP file but a .rpt. I would appreciate your prompt response.

Just to be sure, you have preferred to place the DLL on the server so it's accessible to every client, right? Otherwise clients who don't have the DLL won't be able to view the report...

SpiderBear6 · Nov 18, 2003

Sorry I forgot I had created separate asp pages to do some of the work...

I did find this in another forum... might be useful.

First of all, you will need to create an HTML page(you might already done this) and take the user input, and secondly you will have do a Form Action to redirect to create an ASP page where you can call the report through Crystal Report RDC(Report Designer Component) automation server, and passing in the parameters that you've got from the HTML page.

My following example has this report that has two parameters, first is country, and second is a string. Then I've create a selection formula in Crystal which has:
{Customer.Country} = {?Country}
and then I put the other parameter to the Report header as a report title.

From my HTML page I've create two type of parameter, a drop-down list parameter, and then a user typing-in-value kind of parameter. In the form action of this page, I am calling the ASP page where it pasisng the two parameters taken from this HTML page. And then I will view the report in the ActiveX Viewer. Here are my two pages:
for HTML, here is what I have:
<html>
<title>Parameter Field Sample</title>
<body>
<form method="POST" action="ParameterFields.asp">
<p><select name="SelectedCountry" size="1">
<option selected>USA</option>
<option>Canada</option>
<option>UK</option>
<option>France</option>
<option>Italy</option>
<option>Holland</option>
</select></p>
<FONT face="Arial" size=2>
Note: Netscape Plug-in Report Viewer works only with Netscape Navigator 4.x browser.
<BR>
<BR>
<b><font size="2">Add a Title to the Report</font></b><BR>
<p><input type="text" name="TitleString" size="53" value="Report Title"><BR>
<br>
<input type="submit" value="Get Report">
</body>
</html>

For the ASP page, here is what I've got:
<%@ LANGUAGE="VBSCRIPT" %>

<%
reportname = "ParameterFields.rpt"

' CREATE THE APPLICATION OBJECT
If Not IsObject (session("oApp&quot

) Then
Set session("oApp&quot

= Server.CreateObject("CrystalRuntime.Application&quot

End If

' CREATE THE REPORT OBJECT
Path = Request.ServerVariables("PATH_TRANSLATED&quot

While (Right(Path, 1) <> "\" And Len(Path) <> 0)
iLen = Len(Path) - 1
Path = Left(Path, iLen)
Wend

'OPEN THE REPORT (but destroy any previous one first)
If IsObject(session("oRpt&quot

) then
Set session("oRpt&quot

= nothing
End if

Set session("oRpt&quot

= session("oApp&quot

.OpenReport(path & reportname, 1)

'This line uses the "PATH" and "reportname" variables to reference the Crystal
'Report file, and open it up for processing.

session("oRpt&quot

.MorePrintEngineErrorMessages = False
session("oRpt&quot

.EnableParameterPrompting = False

'force report to refresh:
session("oRpt&quot

.DiscardSavedData

'====================================================================================
' Insert the value for the Crystal Report Parameter Field
'====================================================================================

set session("ParamCollection&quot

= Session("oRpt&quot

.Parameterfields
'This line creates an object to represent the collection of parameter
'fields that are contained in the report.
'create the parameter field for {?Country} parameter:
set Param1 = session("ParamCollection&quot

.Item(1)

'create the parameter field for {?Title} parameter:
set Param2 = session("ParamCollection&quot

.Item(2)

'get the user input for the country:
ParamValue = Request.Form("SelectedCountry&quot

'pass it to the report:
Call Param1.SetCurrentValue (CStr(ParamValue), 12)

'get the user input for the report title:
ParamValue = Request.Form("TitleString&quot

'pass it to the report:
Call Param2.SetCurrentValue (CStr(ParamValue), 12)

'This line calls the SetCurrentValue method of the parameter field
'object to give the parameter field the value of the ParamValue variable.
'
'The first parameter passed to the SetCurrentValue method is the value
'that you want to pass to the Crystal Reports parameter field. The
'second parameter is the datatype of the value you are passing to the
'Crystal Parameter field.

'Since we are passing a VBScript variable as the value for the parameter
'we must cast the variable as the proper datatype before passing it to
'the report. This is because VBScript variables are not datatyped unless
'cast.

'Below is a list of Crystal Data types, the VBScript cast functions and
'data type qualifier parameter to pass to the SetCurrentValue method:

' Param Field Type VBScript Call Type Number
'
' NumberField CDbl 7
' CurrencyField CDbl 8
' Boolean CBool 9
' StringField CStr 12

'*Note* that you can not use the CDate() function to cast a variable as
'a VB Date type, then qualify that variable as type number 10 to pass
'the value as a Crystal Date. This is because a VB Date and a Crystal
'Date type are not the same. The best solution is to pass the date value
'to the Crystal Parameter field as a string type and convert the strng
'to a date in Crystal Reports using a Crystal Formula Field.

'====================================================================================
' Retrieve the Records and Create the "Page on Demand" Engine Object
'====================================================================================

On Error Resume Next
session("oRpt&quot

.ReadRecords
If Err.Number <> 0 Then
Response.Write "An Error has occured on the server in attempting to access the data source"
Else

If IsObject(session("oPageEngine&quot

) Then
set session("oPageEngine&quot

= nothing
End If
set session("oPageEngine&quot

= session("oRpt&quot

.PageEngine
End If

' INSTANTIATE THE CRYSTAL REPORTS SMART VIEWER
%>
<HTML>
<HEAD>
<TITLE>Seagate ActiveX Viewer</TITLE>
</HEAD>
<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=8,0,0,224">
<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>
</OBJECT>

<SCRIPT LANGUAGE="VBScript">
<!--
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker&quot

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."
CRViewer.ReportName = "rptserver.asp"
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource&quot

webSource.ReportSource = webBroker
webSource.URL = "

http://eugtrip1/aspxmps8/test/CrystalQueryReports/rptserver.asp"

webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>

</BODY>
</HTML>

Turkbear · Nov 19, 2003

Hi SpiderBear6 ,
Maybe I missed something in your thread, but I still see nothing that explains what rptserver.asp
contains...It is not one of the 2 files you listed.

mattyboy2000 · Jun 29, 2005

QUESTION:
What happens if the parameters are set in ASP,
yet the parameter "prompt" still appears?
(This is visible after the line: CRViewer.ShowReport)

Rgds,
Wayne.

TheBugSlayer · Jun 29, 2005

This was such a long time ago I don't remember a thing. Maybe the other guys can help u. Sorry.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How to display a Crystal Report object in a web page?

TheBugSlayer

Programmer

SpiderBear6

Programmer

TheBugSlayer

Programmer

SpiderBear6

Programmer

Turkbear

Technical User

mattyboy2000

Programmer

TheBugSlayer

Programmer

Similar threads

Part and Inventory Search

Sponsor