<% dim strFileName dim file dim fso strFileName = server.mappath("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 %>