<%
Dim strLinea, FileObject, Instream, strFile, intTipo
strFile = Server.MapPath("testo.txt")
intTipo = 1 ' lettura
' creo l'oggetto
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
' apro il file
Set InStream = FileObject.OpenTextFile(strFile, intTipo, true)
' leggo tutte le linee
strLinea = InStream.ReadAll()
Response.Write("<pre>" & strLinea & "</pre>" )
' libero risorse
InStream.Close
Set InStream = Nothing
Set FileObject = Nothing
%>