How Do We Do It

<% '--------------------------------------------------------------------------------------------------- 'These routines are here to back up the number of hits as some times it gets set to zero 'Get hit counter Set fs = CreateObject("Scripting.FileSystemObject") Set wfile = fs.OpenTextFile("\\Ws-server\cdisc\Inetpub\wwwroot\beverleybb\hits_how.txt") singleline=wfile.readline number_now=singleline wfile.close Set wfile=nothing 'then back it up 'Set fs = CreateObject("Scripting.FileSystemObject") 'Set wfile = fs.CreateTextFile("\\Ws-server\cdisc\Inetpub\wwwroot\beverleybb\Hits_how_bak.txt", True) 'wfile.Writeline (number_now) 'wfile.close 'Set wfile=nothing Set fs=nothing '-------------------------------------------------------------------------------------------------------- number_now=number_now+1 Set fs = CreateObject("Scripting.FileSystemObject") Set wfile = fs.CreateTextFile("\\Ws-server\cdisc\Inetpub\wwwroot\beverleybb\hits_how.txt",true) wfile.Writeline (number_now) wfile.close Set wfile=nothing %>

		How Do We Do It?

		At the Beverley B & B we have designed or implemented various ideas to save water or power and generally make the running of the B & B easier and more automatic. Some of these solutions actually save us money! On these pages we present some of those ideas. While some are not entirely our own, we have improved on them and the others are entirely our own inventions.

		How we water the gardens
		How we Fertilise all our plants
		How we control the room Water Heaters
		How we control the Verandah Lights
		Aquaponics

		Back to Home Page	Vistors <% =number_now%>