> Hi,

> I use this script:

> <SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
>   Const ForReading = 1, ForWriting = 2, ForAppending = 8
>   Dim fso, f
>   Set fso = CreateObject("Scripting.FileSystemObject")
>   Set f = fso.OpenTextFile("testfile.txt", ForWriting, True)
>   f.Write "Pokus1"
>   f.Close
> </SCRIPT>

> when I open the page from local directory, it opens the file and writes to
> it.
> But when I open the page from intranet (I use Personal Web Server) a
message
> appears: ActiveX can't create object:'CreateObject'.
> I tried to set up the access in PWS (read yes, execute yes) and sharing of
> the according folder, but it doesn't work.

> Thank you

> Petr PALAS

>You're attempting to create an unsafe object -- obviously, we can't let
>untrusted web pages create an object that can erase your hard disk.  You'll
>have to turn security off if you want to run the FSO on a web page.

>Eric

>> Hi,

>> I use this script:

>> <SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
>>   Const ForReading = 1, ForWriting = 2, ForAppending = 8
>>   Dim fso, f
>>   Set fso = CreateObject("Scripting.FileSystemObject")
>>   Set f = fso.OpenTextFile("testfile.txt", ForWriting, True)
>>   f.Write "Pokus1"
>>   f.Close
>> </SCRIPT>

>> when I open the page from local directory, it opens the file and writes
to
>> it.
>> But when I open the page from intranet (I use Personal Web Server) a
>message
>> appears: ActiveX can't create object:'CreateObject'.
>> I tried to set up the access in PWS (read yes, execute yes) and sharing
of
>> the according folder, but it doesn't work.

>> Thank you

>> Petr PALAS

><%
>Const ForReading = 1, ForWriting = 2, ForAppending = 8
>Dim fso, f
>Set fso = CreateObject("Scripting.FileSystemObject")
>Set f = fso.OpenTextFile( server.mappath("TESTFILE.TXT"), ForWriting, True)
>f.Write "This is only a test..."
>f.Close
>%>

>this saves a file in (on my computer)

>D:\InetPub\wwwroot\Testfile.txt