Varför fungerar det inte att köra denna sub: jag tror att onload förutsätter att den skall starta ett javascript och inte en asp-rutin. Du skulle kunna använda vb_script istället men det stödjs tyvärr inte av netscape - prova istället att skriva ...sub???
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker")
if ScriptEngineMajorVersion < 2 then
window.alert
CRViewer.ReportName = Location.Protocol + "//" + Location.Host + "/scrsamples/Web Component Server/rptserver.asp"
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource")
webSource.ReportSource = webBroker
webSource.URL = Location.Protocol + "//" + Location.Host + "/scrsamples/Web Component Server/rptserver.asp"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
Jag skriver i body: <onload ="Page_Initialize">Sv: sub???
<html>
<body>
<%
Page_Initialize
%>
.......
<%
din subrutin
%>