What happened with this code? RSS

• • Reply
  

  pjhospod

  Member

  55 Points

  11 Posts

  What happened with this code?

  Aug 18, 2003 04:27 PM|LINK

  It is not running properly. Why?

  <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>