<% path=Server.MapPath("test.txt") set myfileobject=Server.CreateObject("Scripting.FileSystemObject") set mytextfile=myfileobject.OpenTextFile(path) While Not mytextfile.AtEndOfStream response.write(mytextfile.ReadLine()+"<br>") Wend mytextfile.Close() %>