Åtkomst nekad

När jag försöker köra en fil så får jag detta felmeddelande:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A0046)
Åtkomst nekad.
/zatzy/inc_bottom.asp, line 34

så här ser en del av koden ut.. line 34 är markerad med en *

<%
If Session("counted") <> "1" Then
Set A = CreateObject("Scripting.FileSystemObject")
Set B = A.OpenTextFile(Server.MapPath("visitors.txt"), 1)

Visits = B.ReadLine

*Set F = CreateObject("Scripting.FileSystemObject")
Set T = F.CreateTextFile(Server.MapPath("visitors.txt"))

T.WriteLine Visits + 1

'Set T = F.CreateTextFile("c:\ircbot\mirc\visitors.txt")

'T.WriteLine Visits + 1

'T.Close
Session("counted") = "1"
End If

Set A = CreateObject("Scripting.FileSystemObject")
Set B = A.OpenTextFile(Server.MapPath("visitors.txt"), 1)

Visits = B.ReadLine

B.Close

det låter som ett rättighets problem, jag har gått in i IIS och ändrat till Skrivrättigheter på textfilen men det funkar iaf inte..