<%
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
'read the file
Set InStream=FileObject.OpenTextFile(Server.MapPath("nomefile.txt"),1,False,False)
linee=Instream.ReadAll
InStream.Close
Set InStream=Nothing
'Show the content of the file
Response.write "<pre>" & linee & "</pre>"
Set FileObject=Nothing
%>