BorlandTalk.com Forum Index BorlandTalk.com
Borland discussion newsgroups
 
Archives   FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Runnig as Isapi.dll on server cause to Acces Denied on HTMLF

 
Post new topic   Reply to topic    BorlandTalk.com Forum Index -> Delphi Internet WebSnap
View previous topic :: View next topic  
Author Message
Andrew A. Yashchuk
Guest
PostPosted: Sat Mar 31, 2007 8:11 am    Post subject: Runnig as Isapi.dll on server cause to Acces Denied on HTMLF Reply with quote


Hello,

Trying to execute the VBScript in external file, using PageProducer HTMLFile
property cause to the Internal Application Error Access Denied on server.
And the next websnap page module, which hold the external file refference,
does not showing. Debugging the same using Web App Debugger cause no error.
I've checked the ISR_Machinename access to thet file, file are in local
folder. Even the ini file (in the same folder) writed fine from isapi.dll

Please any suggestions?



The vbscipt in external file is

<OBJECT ID="CRViewer"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100% HEIGHT=95%
CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=8,0,0,371">

<PARAM NAME="EnableDrillDown" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=1>
<PARAM NAME="DisplayGroupTree" VALUE=1>
<PARAM NAME="EnableGroupTree" VALUE=1>
<PARAM NAME="EnableAnimationControl" VALUE=1>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableRefreshButton" VALUE=1>
<PARAM NAME="EnableSearchControl" VALUE=1>
<PARAM NAME="EnableZoomControl" VALUE=1>
<PARAM NAME="EnableSearchExpertButton" VALUE=0>
<PARAM NAME="EnableSelectExpertButton" VALUE=0>
</OBJECT>

<SCRIPT LANGUAGE="VBScript">
<!--
Sub window_onLoad()
Page_Initialize()
End Sub
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker =
CreateObject("WebReportBroker.WebReportBroker")
if err.number <> 0 then
window.alert "The Seagate Software ActiveXViewer is unable to create it's
resource objects. To
rectify this problem, please install Internet Explorer
4.0 or install DCOM for Windows 95 and the latest
Microsoft Scripting Engine. These files are available
at Microsoft's web site."
CRViewer.ReportName ="<#REPORTURL>"
else
Dim webSource0
Set webSource0 = CreateObject("WebReportSource.WebReportSource")
webSource0.ReportSource = webBroker
webSource0.URL = "<#REPORTURL>"
webSource0.PromptOnRefresh = True
<#LOGININFO>
<#PARAMINFO>
CRViewer.ReportSource = webSource0
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
Back to top
Andrew A. Yashchuk
Guest
PostPosted: Mon Apr 02, 2007 6:17 am    Post subject: Re: Runnig as Isapi.dll on server cause to Acces Denied on H Reply with quote


I've found the string

rReportServer = 'http://localhost:80/wbweb/'; wich should be rReportServer =
'http://servername:80/wbweb/';

Sorry for inconvenience,
Andrew

"Andrew A. Yashchuk" <just4fun (AT) mail (DOT) ru> сообщил/сообщила в новостях
следующее: news:460def10 (AT) newsgroups (DOT) borland.com...
Quote:
Hello,

Trying to execute the VBScript in external file, using PageProducer
HTMLFile property cause to the Internal Application Error Access Denied
on server. And the next websnap page module, which hold the external file
refference, does not showing. Debugging the same using Web App Debugger
cause no error. I've checked the ISR_Machinename access to thet file, file
are in local folder. Even the ini file (in the same folder) writed fine
from isapi.dll

Please any suggestions?



The vbscipt in external file is

OBJECT ID="CRViewer"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100% HEIGHT=95%
CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=8,0,0,371"

PARAM NAME="EnableDrillDown" VALUE=1
PARAM NAME="EnableExportButton" VALUE=1
PARAM NAME="DisplayGroupTree" VALUE=1
PARAM NAME="EnableGroupTree" VALUE=1
PARAM NAME="EnableAnimationControl" VALUE=1
PARAM NAME="EnablePrintButton" VALUE=1
PARAM NAME="EnableRefreshButton" VALUE=1
PARAM NAME="EnableSearchControl" VALUE=1
PARAM NAME="EnableZoomControl" VALUE=1
PARAM NAME="EnableSearchExpertButton" VALUE=0
PARAM NAME="EnableSelectExpertButton" VALUE=0
/OBJECT

SCRIPT LANGUAGE="VBScript"
!--
Sub window_onLoad()
Page_Initialize()
End Sub
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker =
CreateObject("WebReportBroker.WebReportBroker")
if err.number <> 0 then
window.alert "The Seagate Software ActiveXViewer is unable to create it's
resource objects. To
rectify this problem, please install Internet Explorer
4.0 or install DCOM for Windows 95 and the latest
Microsoft Scripting Engine. These files are available
at Microsoft's web site."
CRViewer.ReportName ="<#REPORTURL>"
else
Dim webSource0
Set webSource0 = CreateObject("WebReportSource.WebReportSource")
webSource0.ReportSource = webBroker
webSource0.URL = "<#REPORTURL>"
webSource0.PromptOnRefresh = True
#LOGININFO
#PARAMINFO
CRViewer.ReportSource = webSource0
end if
CRViewer.ViewReport
End Sub
--
/SCRIPT




Back to top
Display posts from previous:   
Post new topic   Reply to topic    BorlandTalk.com Forum Index -> Delphi Internet WebSnap All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2006 phpBB Group
SEO toolkit © 2004-2006 webmedic.