Sign our guest book...

Your Name
Location
Your Message

 


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.


<% dim strFileName dim file dim fso dim varName dim varEmail dim varMessage strFileName = server.mappath("gbook1.txt") Const ForReading = 1, ForWriting = 2, ForAppending = 8 set fso = server.CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(strFileName,ForAppending ,true) varName=Trim(request.form("name")) varEmail=Trim(request.form("email")) varMessage=Trim(request.form("message")) IF varName<>""THEN file.write "Name: " & varName & vbCrlf IF varEmail<>""THEN file.write "Email: " & varEmail & vbCrlf IF varMessage<>""THEN file.write "Message:" & vbCrlf & varMessage & vbCrlf & "................" & vbCrlf file.close set file = nothing set fso = nothing END IF END IF END IF %>