Problemas con IIS 5.0 y Ficheros de texto TXT

[RufinoLM]

hola :

utilizo este codigo que recogí aqui...

Código:

 <%
	Const ForReading = 1
	Const Create = False
	Dim FSysObj
	Dim TS
	Dim strLine
	Dim strFileName
	
	ftexto=RS("critica")
	
	if ftexto<>"" then
	'
 		'nombre del fichero a mostrar
		strFileName = Server.MapPath("datos/criticas/"&ftexto&".txt")

		'Creación del objeto FileSystemObject
		Set FSysObj = Server.CreateObject("Scripting.FileSystemObject")

		' Abrimos el fichero
		Set TS = FSysObj.OpenTextFile(strFileName, ForReading, Create)

		If not TS.AtEndOfStream Then
		Response.Write "<p align='left' class='textos_criticas'>"
			Do While not TS.AtendOfStream
			' Leemos el fichero linea a linea y lo mostramos
			'strLine = strLine + TS.ReadLine & chr(13)
			strLine = TS.ReadLine & chr(13)
			Response.Write i & " " & Server.HTMLEncode(strLine) & "<br>"
			loop
		End If

	    'cerramos y destruimos los objetos
		TS.Close
    	Set TS = Nothing
		Set FSysObj = Nothing
		
		RS.Close
 	    oConn.Close
       set RS=nothing
       set oConn=nothing
	   
	end if
	%>

Cuando trato de accedera ver el fichero texto se queda colgado, pero solo con IIS 5.0 por que con Personal web server y windows 98, va bien...
alguien sabe que pasa...
RufinoLM