myaouss
Messages postés1Date d'inscriptionmercredi 7 février 2007StatutMembreDernière intervention 8 février 2007
-
8 févr. 2007 à 15:21
Eric -
2 mars 2007 à 11:44
...bon voila...je usi debutante dans le domaine:'(:(...quand jouvre ma page...et bien elle reste vierge et jai une croix rouge en haut a gauche....
...voici le code....
<%
' Get QS variables
rpttoview = request.querystring("rpt")
viewer = request.querystring("init")
'build full path for report
rpttoview = MID(request.ServerVariables("PATH_TRANSLATED"), 1, (LEN(request.ServerVariables("PATH_TRANSLATED"))-11)) & "\xtreme\" & rpttoview & ".rpt"
' build path to MDB
' Only create the Crystal Application Object on first time through
If Not IsObject ( session ("oApp")) Then
Set session ("oApp") = Server.CreateObject("CrystalRuntime.Application")
End If
' Turn off all Error Message dialogs
'session("oApp").MorePrintEngineErrorDialogs = False
'session("oApp").EnableParameterPrompting = False
'Set oGlobalOptions = Session ("oApp").Options
'oGlobalOptions.MorePrintEngineErrorMessages = 0
' Open the report
If IsObject(session("oRpt")) then
Set session("oRpt") = nothing
End if
Set session("oRpt") = session("oApp").OpenReport(rpttoview,1)
' Turn off sepecific report error messages
session("oRpt").MorePrintEngineErrorMessages = False
session("oRpt").EnableParameterPrompting = False
' Opening the page engine will cause the data to be read
Set session("oPageEngine") = session("oRpt").PageEngine
' Now decide what viewer to create
Select Case viewer
Case "java"
%>
<html>
<head>
<title>Seagate Crystal Smart Viewer for Java</title>
</head>
<body bgcolor=C6C6C6>
<SCRIPT LANGUAGE="JavaScript"><!--
var _ns3 = false;
var _ns4 = false;
//--></SCRIPT>
<COMMENT><SCRIPT LANGUAGE="JavaScript1.1"><!--
var _info = navigator.userAgent;
var _ns3 = (navigator.appName.indexOf("Netscape") >= 0 && _info.indexOf("Win16") < 0 && _info.indexOf("Mozilla/3") >= 0);
var _ns4 = (navigator.appName.indexOf("Netscape") >= 0 && _info.indexOf("Win16") < 0 && _info.indexOf("Mozilla/4") >= 0 );
//--></SCRIPT></COMMENT>
<SCRIPT LANGUAGE="JavaScript"><!--
if(_ns3 == true)
document.writeln( '<applet code="com.seagatesoftware.img.ReportViewer.ReportViewer.class" codebase="http://localhost/Viewer/JavaViewer" id=ReportViewer width=100% height=95% archive="http://localhost/Viewer/JavaViewer/ReportViewer.zip">' );
else if (_ns4 == true)
document.writeln( '<applet code="com.seagatesoftware.img.ReportViewer.ReportViewer.class" codebase="http://localhost/Viewer/JavaViewer" id=ReportViewer width=100% height=95% archive="http://localhost/Viewer/JavaViewer/ReportViewer.jar">' );
else
document.writeln( '<applet code="com.seagatesoftware.img.ReportViewer.ReportViewer.class" codebase="http://localhost/Viewer/JavaViewer" id=ReportViewer width=100% height=95% archive="http://localhost/Viewer/JavaViewer/ReportViewer.zip">' );
//--></SCRIPT>
<param name=ReportName value="rptserver.asp">
<param name=HasGroupTree value=true>
<param name=ShowGroupTree value=true>
<param name=HasRefreshButton value=true>
<param name=HasPrintButton value=true>
<param name=HasExportButton value=true>
<param name=cabbase value="http://localhost/Viewer/JavaViewer/ReportViewer.cab">
</applet>
</body>
</html>
<%
Case "actx"
%>
<HTML>
<HEAD>
<TITLE>Seagate Crystal Smart Viewer for ActiveX</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="/viewers/activeXViewer/activexviewer.cab#Version=2,2,4,36">
<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")
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 = Location.Protocol + "//" + Location.Host + "/wwwroot/scrreports/rptserver.asp"
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource")
webSource.ReportSource = webBroker
webSource.URL = Location.Protocol + "//" + Location.Host + "/wwwroot/scrreports/rptserver.asp"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
</BODY>
</HTML>
<%
Case "html_frame"
response.redirect "htmstart.asp"
Case "html_page"
response.redirect "rptserver.asp"
end select
%>
Tu n'as pas installé l'activeX (CRViewer) correctement, normalement, il s'installe la premiere fois que tu demandes l'affichage d'un rapport crystal depuis ta page ASP. Verifie si tu as les droits pour que cet ActiveX s'installe. Sinon sur le site de crystadecision tu peux telecharger un .MSI (Microsoft Installeur) de cet activeX (ReportViewer).
Mais en premier, verifie si ton.CAB est bien a l'emplacement specifie dans ton code: /viewers/activeXViewer/activexviewer.cab, ensuite verifie si tu as la DLL qui va bien CRAXDT.DLL sous win/system32...
Mais en general c'est un Pb de droit, met ton site parmi les sites de confiance dans la config internet explorer.
Trouvez des réponses à vos questions sur la création de sites web, le référencement et les meilleures pratiques pour gérer un site. Échangez avec d'autres webmasters passionnés pour améliorer vos compétences en ligne et optimiser vos projets de site web.
