<script LANGUAGE="VBScript">
'On Error Resume Next
Sub window_onLoad()
Page_Initialize()
End Sub
Sub Page_Initialize
Dim webBroker
Set webBroker = CreateObject("WebReportBroker9.WebReportBroker")
if err.number <> 0 then
window.alert "The Seagate Software ActiveX Viewer is unable to create it's resource objects."
CRViewer9.ReportName = "http://localhost/WebApplication3/TESTEPH1.RPT"
else
Dim webSource0
Set webSource0 = CreateObject("WebReportSource9.WebReportSource")
webSource0.ReportSource = webBroker
webSource0.URL = "http://localhost/WebApplication3/TESTEPH1.RPT"
webSource0.PromptOnRefresh = True
CRViewer9.ReportSource = webSource0
end if
CRViewer9.ViewReport
End Sub
</script>
pjhospod
Member
55 Points
11 Posts
What happened with this code?
Aug 18, 2003 04:27 PM|LINK
<script LANGUAGE="VBScript"> 'On Error Resume Next Sub window_onLoad() Page_Initialize() End Sub Sub Page_Initialize Dim webBroker Set webBroker = CreateObject("WebReportBroker9.WebReportBroker") if err.number <> 0 then window.alert "The Seagate Software ActiveX Viewer is unable to create it's resource objects." CRViewer9.ReportName = "http://localhost/WebApplication3/TESTEPH1.RPT" else Dim webSource0 Set webSource0 = CreateObject("WebReportSource9.WebReportSource") webSource0.ReportSource = webBroker webSource0.URL = "http://localhost/WebApplication3/TESTEPH1.RPT" webSource0.PromptOnRefresh = True CRViewer9.ReportSource = webSource0 end if CRViewer9.ViewReport End Sub </script>