Visualizar arquivo TXT em página ASP

Um exemplo simplificado de como podemos visualizar arquivos TXT em página ASP

*´¨) AN-ICE
¸.•´¸.•*´¨) ¸.•*¨)
(¸.•´ (¸.•` * ANGELO JÚNIOR (.)(.)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
'O parâmetro forReading é utilizado somente para leitura.
ForReading = 1
'Informe aqui o caminho do arquivo TXT
str_caminho="C:nome_do_arquivo.txt" 
%>








Arquivo TXT em página ASP 




<% 
'Cria o objeto
Set objeto = CreateObject("Scripting.FileSystemObject")

'Condição para verificar se o arquivo exite no local informado
If (objeto.FileExists(str_caminho)) Then
%>
		<%
	'Abertura do objeto e loop para ler o arquivo TXT
	Set str_fso = objeto.OpenTextFile(str_caminho,ForReading,False)
	While (not str_fso.AtEndOfStream) 
	campo = str_fso.readline 
	response.write(Server.HTMLEncode(campo) & CHR(13)) 
	wend
	%>
	
<%
Else
	response.write "Arquivo não encontrado !!!"
End If
%>




www.codigofonte.com.br


<% 
Set str_fso = nothing 
set objeto = nothing 
%>