<% path = server.mappath("news.txt") IF NOT Request.Form("NextLine")="" THEN Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile=MyFileObject.OpenTextFile(path, 2, TRUE) MyTextFile.WriteLine(Request.Form("NextLine")) MyTextFile.Close END IF%>

<%txtBase="" Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile=MyFileObject.OpenTextFile(path) WHILE NOT MyTextFile.AtEndOfStream txtBase = txtBase & MyTextFile.readline & vbCrLf WEND response.write txtBase MyTextFile.Close %>