<% @language=vbscript %> 
  <% 
   
  Set DosyaSistemi = CreateObject("Scripting.FileSystemObject") 
   
  Set MetinDosyasi = DosyaSistemi.OpenTextFile("abc.txt",1, 0) 
   
  Do 
  Satir = MetinDosyasi.ReadLine 
  %> 
  <%=Satir%> 
  <% 
  Loop Until MetinDosyasi.AtEndOfStream 
   
  MetinDosyasi.Close 
  %>