Problemas con Global.asa

Buenas a todos

Tengo colocado un global.asa en una pagina que lo que hace es leer un
fichero de texto donde se guardan las visitas y asi poder controlar las
visitas a la pagina.
La pagina donde esta el contador no tiene enlace, es para uso interno,

de tanto en tanto al entrar a la pagina da un error en el global.asa, tipo

este

Error de Microsoft VBScript en tiempo de ejecución error '800a0046'.
Permiso denegado

Este es el codigo que tengo en el global.asa
Aunque no aparece muy a menudo, me parece un poco extraño:

<script language=vbscript runat=server>
sub application_OnStart
set fso=server.createObject("Scripting.FileSystemObject")
set
fitxer=fso.OpenTextFile(server.MapPath("contador/web.txt"),1,false,false)
application.lock
application("visites")=fitxer.ReadLine
application.unlock
end sub

sub session_OnStart
application.lock
application("visites")=application("visites")+1
application.unlock
set fso=server.createObject("Scripting.FileSystemObject")
set
fitxer=fso.CreateTextFile(server.MapPath("contador/web.txt"),true,false)
fitxer.WriteLine(application("visites"))
end sub
</script>

Si alguien pudiera ayudarme

Gracias de antemano y un saludo a todos
Xavi