Permission denied

jeg får følgende fejl når jeg kører nedenstående kode:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/textfile/Default.asp, line 17

<%
Option Explicit

' Set up Constants
Const ForWriting = 2 ' Input OutPut mode
Const Create = True

Dim MyFile
Dim FSO ' FileSystemObject
Dim TSO ' TextStreamObject

' Use MapPath function to get the Physical Path of file

MyFile = Server.MapPath("textfile.txt")

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TSO = FSO.OpenTextFile(MyFile, ForWriting, Create)

TSO.write "This is first line in this text File" & vbcrlf
' Vbcrlf is next line character
TSO.write "This is Second line in this text file" & vbcrlf
TSO.write "Writen by devasp visitor at " & Now()
TSO.WriteLine ""

Response.Write " Three lines are writen to textfile.txt <br>"
Response.Write " Local time at server is " & Now()

' close TextStreamObject and
' destroy local variables to relase memory
TSO.close
Set TSO = Nothing
Set FSO = Nothing
%>

Jeg ved godt det er noget med rettigheder på folderen "textfile", men jeg har ikke "Security" fanebladet når jeg højreklikker på folderen "textfile" og vælger properties.
Se http://www.aspemporium.com/tutorials.aspx?tid=9

Hvordan får jeg løst problemet?