Estou encontrando um problema para exibir meus relatórios em crystal reports 8.5 na web (asp básico)
Já tentei de várias formas, porém sem sucesso.
Meu código :
<%if Request("titulo_relatorio") <> "" then
sTituloRelatorio = Request("titulo_relatorio")
else
sTituloRelatorio = "Seagate ActiveX Viewer"
end if%>
<HTML>
<HEAD>
<TITLE><%=sTituloRelatorio%></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="c:\arquivos de programas\seagate software\viewers\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")
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")
webSource.ReportSource = webBroker
webSource.URL = "rptserver.asp"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
</BODY>
</HTML>
E o erro acontece na linha
CRViewer.ReportSource = webSource
Line: 40
Error: Object doesn't support this property or method: 'CRViewer.ReportSource'
Pergunta
ALL_BASILE
Olá Pessoal!
Estou encontrando um problema para exibir meus relatórios em crystal reports 8.5 na web (asp básico)
Já tentei de várias formas, porém sem sucesso.
Meu código :
<%if Request("titulo_relatorio") <> "" then sTituloRelatorio = Request("titulo_relatorio") else sTituloRelatorio = "Seagate ActiveX Viewer" end if%> <HTML> <HEAD> <TITLE><%=sTituloRelatorio%></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="c:\arquivos de programas\seagate software\viewers\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") 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") webSource.ReportSource = webBroker webSource.URL = "rptserver.asp" webSource.PromptOnRefresh = True CRViewer.ReportSource = webSource end if CRViewer.ViewReport End Sub --> </SCRIPT> </BODY> </HTML>E o erro acontece na linha
CRViewer.ReportSource = webSource
Line: 40
Error: Object doesn't support this property or method: 'CRViewer.ReportSource'
Instalei o Crystal no servidor..
alguém já passou por isso ?
Poderiam me ajudar?
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.