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

 


HOMETOPSAIL SUITEHERITAGE SUITEFLYING JIB SUITESPANKER SUITEABOUT LUNENBURGCONTACT USRATESLINKS
Website design & Hosting - Hellard Gallagher • design@hellardgallagher.com • Photography Gallagher
Copyright 2002, 2003, 2004, 2005 Addington Arms • Not to be used without permission.