<%
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
'Leggo il file
Set InStream=FileObject.OpenTextFile(Server.MapPath("nomefile.txt"),1,False,False)
linee=Instream.ReadAll
InStream.Close
Set InStream=Nothing
'Mostro il contenuto del file
Response.write "<pre>" & linee & "</pre>"
Set FileObject=Nothing
%>