<%

  Set fs=Server.CreateObject("Scripting.FileSystemObject")

  Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)

  do while f.AtEndOfStream = false

  Response.Write(f.ReadLine)

  Response.Write("<br>")

  loop

  f.Close

  Set f=Nothing

  Set fs=Nothing

%>