Microsoft VBScript runtime error '800a0046'

Permission denied

/aspchat1/chat.asp, line 49

ma permesso negato da cosa?il file è in una cartella con i permessi dis crittursa e di lettura.
line 49 = Set inStream = fileObject.OpenTextFile(textFile,8,True,FALSE)

--------------------codice completo------------------------
<%
Set fileObject = Server.CreateObject("Scripting.FileSystemObject")
'Map appropriate topic file
textFile = Server.MapPath("files/" & Replace(Topic, "+", "_") & ".txt")
If Not fileObject.FileExists(textfile) Then
Set inStream = fileObject.OpenTextFile(textFile,8,True,FALSE)
inStream.WriteLine " "
End If

Set inStream = fileObject.OpenTextFile(textFile,1,TRUE,FALSE)


file = inStream.ReadAll
Set inStream = Nothing

If Len(file) > 5000 Then
'archive the old file
'archive name is topic_date put under files/archives
archiveFile = Server.MapPath("files/" & Replace(Topic, "+", "_") & "_" & Server.URLEncode(Now) & ".txt")
Set inStream = fileObject.CreateTextFile(archiveFile,True)
inStream.Write file
inStream.Close
Set inStream = Nothing


Set inStream = fileObject.CreateTextFile(textFile,True)
inStream.Write " "
Set inStream = Nothing
file = " "
End If

If IsNull(Session("Enter")) Or Session("Enter") = True Then
file = file & "<FONT SIZE=2 FACE='Vedana,Arial' Color=#808080><b>***[" & name & " è entrato (" & Now & ")]***</b></FONT><br>"
Session("Enter") = False
End If

If Request.Form("Add") = "TRUE" Then
file = file & "<FONT SIZE=2 Color=#000000 FACE='Verdana,Arial'><b>" & name & "</b><small>(" & Now & ")</small>:</FONT>" & Request("Msg") & "<br>"
End If

Set outStream = fileObject.CreateTextFile(textFile,True)
outStream.WriteLine(file)
Set outStream = Nothing

Response.Write "<font color=#000000>" & file & ""

PrivRcpt = Application("PrivateRcpt")
Match = 0
If IsArray(PrivRcpt) Then
PrivateMsgs = Application("PrivateMsgs")
NumOfRcpt = UBound(PrivRcpt)
ReDim Preserve UpdatedPrivRcpt(1)
ReDim Preserve UpdatedPrivMsg(1)
For I = 0 To NumOfRcpt
If Name = PrivRcpt(I) Then
Response.Write "<FONT color=#ff0000 SIZE=2 FACE='Verdana,Arial'><b>*** " & PrivateMsgs(I) & " ***</b></font>"
Else
ReDim Preserve UpdatedPrivRcpt(Match)
ReDim Preserve UpdatedPrivMsg(Match)
UpdatedPrivRcpt(Match) = PrivRcpt(I)
UpdatedPrivMsg(Match) = PrivateMsgs(I)
Match = Match + 1
End If
Next
Application("PrivateRcpt") = UpdatedPrivRcpt
Application("PrivateMsgs") = UpdatedPrivMsg
End If

%>

dov'è il problema?

una volta mi è successa una cosa analoga e posso dirti che i permessi secondo me non devi vederli dalla tua pag. ma dal server stesso.
se il tuo sistema operativo è win 2000 server allora prova a dare tutti i permessi a guest ed everyone, poi se funziona farai una cernita delle cose superflue.

i permessi con tasto destro sulla cartella o meglio sul file stesso che devi utilizzare- protezione- e poi aggiungi tutti i vari permessi .

ciao max