AYUDA... me estan saliendo canas verdes

Hola, por favor alguien que me ayude con esto...

Entorno:
Win XP Prof y ASP 3.0

Tengo una rutina que funciona perfectamente en el servidor web y en mi
anteior PC con Win98. Sin embargo, necesito hacer unos cambios y sus
correspondientes pruebas y no puedo porque está fallando en mi actual PC. La
rutina es:

function leerArchivo(ruta)
' La variable ruta tiene el valor correcto y tras ver el contenido de
' Server.MapPath() vi que tambien esta OK.
' Para hacerlo le coloqué instrucciones Response.Write para ver sus valores.
Const ForReading = 1
dim fso, ts, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile( server.MapPath( ruta ) , ForReading)
' en la linea anterior se queda en un loop infinito. nunca termina de cargar
la pagina.
s = ts.ReadAll
ts.Close
set ts = nothing
set fso = nothing
leerArchivo = s
end function

¿Alguien tiene alguna idea de que esta funcionando mal?

Salu2
MV