ASP - Gestion de Error y Ficheros

Hola! un saludo a todos.
Tengo este problema, Tengo un fichero al que pueden acceder varios usuarios a la vez,y me gustaria que se hiciera un bucle cuando el archivo estuviese abierto y no que de un molesto error.

Estoy intentando cosas como esta, pero no hay forma....

On Error Resume Next
do while <EL ERROR>
Set texstr = sisfich.OpenTextFile(server.mappath ("../hola/adios.txt"), 2)
loop

Esto claro no me funciona, en ocasiones me hace un bucle infinito...
Agradeco algun codigo explicativo
Un saludo

'utiliza un bloqueo de aplicación.
'no es recomendable que varios usuarios graben en un fichero a la vez
ya que unos pueden estar borrando los datos que otros acaban de escribir, en cualquier caso esto te puede ayudar

aplication.look
'abres el archivo
'lo manipulas, lo cierras
aplication.unlook