VBScript runtime error '800a0046'

Har problem med ett script. Jag får hela tiden svaret:

-------------------------------
Microsoft VBScript runtime error '800a0046'

Permission denied

/index.asp, line 94
-------------------------------

Fast användaren har full rättighet och även IUSR.
Vad kan det vara för fel på koden? rad 94 är den första raden
i koden. Har klistrat in en del av själva koden. Någon som vet hur jag ska fixa felet?

<%

if bolIndexCheck = False then
	filesystem.CreateTextFile filepath & "indexed",true
	set indexFile = filesystem.OpenTextFile(filepath & "\indexed",2 )
	For Each file in filecollection
	    if  cstr(left(file.name,8)) <> cstr("!tcache_") and lcase(right(file.name,3)) = "jpg" THEN
			indexFile.writeline file.name					
		end if
	next
	indexFile.close
	set indexFile = nothing
end if

' close file system stuff
set filesystem=nothing
set folder=nothing
set filecollection=nothing
%>