TxtRead

<%
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
'LEGGO IL FILE

Set InStream=FileObject.OpenTextFile(Server.MapPath("prova.txt"),1,False,False)
linee=Instream.ReadAll
InStream.Close
Set InStream=Nothing
'MOSTRO A VIDEO IL CONTENUTO DEL FILE

Response.write "<pre>" & linee & "</pre>"
Set FileObject=Nothing
%>
Leggere un testo da un Pc Remoto