<% dim strFileName dim file dim fso strFileName = server.mappath("gbook.txt") strFileName = "/content/BusinessHost/a/r/arrocharheritage.com/web/Guestbook/gbook.txt" Const ForReading = 1, ForWriting = 2, ForAppending = 8 set fso = server.CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(strFileName,ForReading) Response.Write replace(file.readall, vbCrlf, "
") file.close set file = nothing set fso = nothing %>