HighTechTalks DotNet Forums  

Error 3716 when doing stream.savetofile

Dotnet Scripting microsoft.public.dotnet.scripting


Discuss Error 3716 when doing stream.savetofile in the Dotnet Scripting forum.



Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old   
mb
 
Posts: n/a

Default Error 3716 when doing stream.savetofile - 04-05-2006 , 05:37 AM






i save a mail message to a file on a computer that is located in my network
places, my operating system is xp.
The code in the html page is a vbscript code and the application run in the
intranet.

this message that i get is:

3716 Safety setting on the computer prohibit accessing adta source on athoer
domain.


when i run this web applicaiton from w2000 client it works fine.
in the begining it worked fine also from a XP client, but suddenly it
stopped working .

I want to know if there any other way to do the saving?

code:
function expmail(displayname,href)
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.open "GET", href, false
objXMLHTTP.setRequestHeader "Translate","f"
objXMLHTTP.send
fname = BaseLocation + displayname
on error resume next
set stm = createobject("ADODB.Stream")
If err.number <> 0 Then
msgbox cstr(Err.number ) + " " + Err.Description
end if
stm.open
msgstring = objXMLHTTP.responsetext
stm.type = 2
stm.Charset = "x-ansi"
stm.writetext msgstring,0
stm.Position = 0
stm.type = 1
on error resume next
stm.savetofile fname
set stm = nothing
If err.number <> 0 Then
msgbox cstr(Err.number ) + " " + Err.Description
End If
end function




Reply With Quote
  #2  
Old   
William Daniel
 
Posts: n/a

Default Re: Error 3716 when doing stream.savetofile - 05-02-2006 , 02:24 AM






Try and disable the local in-built Windows XP firewall from the control
panel.

mb wrote:
Quote:
i save a mail message to a file on a computer that is located in my network
places, my operating system is xp.
The code in the html page is a vbscript code and the application run in the
intranet.

this message that i get is:

3716 Safety setting on the computer prohibit accessing adta source on athoer
domain.


when i run this web applicaiton from w2000 client it works fine.
in the begining it worked fine also from a XP client, but suddenly it
stopped working .

I want to know if there any other way to do the saving?

code:
function expmail(displayname,href)
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.open "GET", href, false
objXMLHTTP.setRequestHeader "Translate","f"
objXMLHTTP.send
fname = BaseLocation + displayname
on error resume next
set stm = createobject("ADODB.Stream")
If err.number <> 0 Then
msgbox cstr(Err.number ) + " " + Err.Description
end if
stm.open
msgstring = objXMLHTTP.responsetext
stm.type = 2
stm.Charset = "x-ansi"
stm.writetext msgstring,0
stm.Position = 0
stm.type = 1
on error resume next
stm.savetofile fname
set stm = nothing
If err.number <> 0 Then
msgbox cstr(Err.number ) + " " + Err.Description
End If
end function




Reply With Quote
Reply




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off



Powered by vBulletin Version 3.5.4
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.