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
