<% IF NOT Request.Form("NextLine")="" THEN Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile=MyFileObject.OpenTextFile("d:\story.txt", 8, TRUE) MyTextFile.WriteLine(Request.Form("NextLine")) MyTextFile.Close END IF %>
Online Story
<% Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile=MyFileObject.OpenTextFile("d:\story.txt") WHILE NOT MyTextFile.AtEndOfStream Response.Write(" "&MyTextFile.ReadLine) WEND MyTextFile.Close %>