Is this a Javascript , ASP or Crystal Reports Query ?? ?

welshone · Oct 31, 2001

Hello,

I am using the following script when a page opens to show the users that they have to wait for a report to load.
This script works fine only all other things, but for some reason when used with crystal reports the report is not shown ?

How can I get this to work ?

<SCRIPT Language=Javascript>
function HideHourGlass(){
szNavVersion = navigator.appVersion // Hide the 'retreiving records' display
if (szNavVersion.indexOf ("4.&quot

>= 0 || szNavVersion.indexOf ("5.&quot

>= 0) {
if (navigator.appName == "Netscape&quot

{
document.layers["StatusText"].visibility="hide"
}else{
if (document.all("StatusIE&quot

){
document.all("StatusIE&quot

.style.visibility = "hidden";
}
}
}
}
</SCRIPT>
<BODY onLoad="HideHourGlass()">
<DIV ID="StatusIE"><LAYER ID="StatusText"><center>Generating Report, Please Wait... </center></LAYER></DIV>

thanks in asvance.

cschaffer · Oct 31, 2001

To answer your title question....looks like Javascript to me....

CS ***************

http://www.digital6.com

***************

cschaffer · Oct 31, 2001

to anser your question how to get this to work...this is script that realy has nothing to do with reports or anything...it is really just finding the type of browser and displaying some test....maybe it doens't work with CR cause it never gets to this script??THe report doesn't show or the "please wait..." doesn't show?

post the file that uses the CR code as well.....

CS ***************

http://www.digital6.com

***************

welshone · Nov 1, 2001

This is the whole File :

<%@ LANGUAGE="VBSCRIPT" %>
<title>A001</title>

<%

reportname = "A001.01 Admissions Extract.rpt"

%>

<SCRIPT Language=Javascript>
function HideHourGlass(){
szNavVersion = navigator.appVersion // Hide the 'retreiving records' display
if (szNavVersion.indexOf ("4.&quot

>= 0 || szNavVersion.indexOf ("5.&quot

>= 0) {
if (navigator.appName == "Netscape&quot

{
document.layers["StatusText"].visibility="hide"
}else{
if (document.all("StatusIE&quot

){
document.all("StatusIE&quot

.style.visibility = "hidden";
}
}
}
}
</SCRIPT>
<BODY onLoad="HideHourGlass()">
<DIV ID="StatusIE"><LAYER ID="StatusText"><center>Generating Report, Please Wait... </center></LAYER></DIV>

<%

If Not IsObject (session("oApp&quot

) Then
Set session("oApp&quot

= Server.CreateObject("Crystal.CRPE.Application&quot

End If

Path = Request.ServerVariables("PATH_TRANSLATED&quot

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

If isObject(session("oRpt&quot

) then
set session("oRpt&quot

= nothing
End If

Set session("oRpt&quot

= session("oApp&quot

.OpenReport(path & ReportName, 1)

Set oRptOptions = Session("oRpt&quot

.Options
oRptOptions.MorePrintEngineErrorMessages = 0
session("oRpt&quot

.DiscardSavedData
%>

<%

userid = "ed"
password = "ed"

'session("oRpt&quot

.MorePrintEngineErrorMessages = False
'session("oRpt&quot

.EnableParameterPrompting = False

' Set the location
set crtable = session("oRpt&quot

.Database.Tables.Item(1)
crtable.SetLogonInfo "Holding", "Holding", cstr(userid), cstr(password)

%>

<%

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

%>

<HTML>
<HEAD>
<TITLE>Seagate ActiveX Viewer</TITLE>
</HEAD>

<script>
parent.resizeTo(800, 600);
</script>

<input type="button" value=" Close Report " OnClick="document.location='./Default.htm';return false;" id=button1 name=button1>

<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=2,2,4,28">
<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 = "rptserver.asp"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>

</BODY>
</HTML>

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!

Is this a Javascript , ASP or Crystal Reports Query ?? ?

welshone

Programmer

cschaffer

IS-IT--Management

cschaffer

IS-IT--Management

welshone

Programmer

Similar threads

Part and Inventory Search

Sponsor