<% '***************************************************** '* Code written by Alexander Haneng (C) 1998-2001 * '* FREE download from http://www.haneng.com/ * '***************************************************** %>

<% Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile = MyFileObj.OpenTextFile(Server.MapPath("guestbook.txt")) WHILE NOT MyTextFile.AtEndOfStream Response.Write(MyTextFile.ReadLine & Chr(10)) WEND MyTextFile.Close %>