TxtRead

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

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

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