What our guests say about the Addington Arms... <% dim strFileName dim file dim fso strFileName = server.mappath("gbook1.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 %>

What our guests say about the Addington Arms...

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

Sign the online guest book

HOME • TOPSAIL SUITE • HERITAGE SUITE • FLYING JIB SUITE • SPANKER SUITE • ABOUT LUNENBURG • CONTACT US • RATES• LINKS
Website design & Hosting - Hellard Gallagher • design@hellardgallagher.com • Photography Gallagher
Copyright 2002, 2003, 2004, 2005 Addington Arms • Not to be used without permission.