0x800A0046 - Tilladelse nægtet

Hej.

Jeg har følgende kode:
---
Dim fso, f, filespec
Set fso = Server.CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("test.txt")
Set f = fso.OpenTextFile(filespec,2)
---

Og jeg får følgende fejl meddelse:
---
Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0046)
Tilladelse nægtet
---
fejlen henviser til linien: "Set f = fso.OpenTextFile(filespec,2)"

Jeg kører IIS på WinXP Pro 2002

Jeg HAR sat min IIS root mappe til læse- OG skriveadgang.
Jeg har også sikret mig at der er anonym adgang med IUSR_MITCOMPUTERNAVN.

Nogen der kan hjælpe?

---
Mvh Mads