Welcome to Honeycomb

For the almost twenty years, Honeycomb has provided a direct means of communication within the six parishes of the United Benefice of the Stodden Churches, initally as a duplicated circular and laterly as a printed and bound booklet. Now, to keep pace with the rapidly improving communication facilities afforded through the Internet, it is now available on line. The information that appears in Honeycomb On-line is identical to that which appears in the monthly magazine with the added facility of being able to incorporate photographic illustrations both as news content or simply decorative additions.


All Hallows' Church - Upper Dean

The menu along the honeycomb band at the top of the screen allows you to select what you wish to see. You can return to this screen via the Home Page in the Menu bar. The various monthly editions can be selected from the menus on the right hand side of the screen whenever they are displayed.


The general details of Honeycomb are available to all across the internet. However, for security reasons we have avoided including individual's details including personal telephone numbers and email addresses. If you are a resident of the six parishes you will be able to access to these details via instructions in the printed version of Honeycomb.
<% ' Builds a variable page with the absolute location of the page ' Create the http://anydomain.ext/ page= "http://" & request.servervariables("SERVER_NAME") ' Add the page on the server being counted to the page variable page= page & request.servervariables("script_name") ' Check for any text after the filename to the page variable ' If you're not interested in querystring in you data remove ' from here to the end if qstring= request.servervariables("query_string") if trim(qstring) <> "" then ' Add any text after the filename to the page variable page= page & "?" & qstring end if ' end querystring routine ' Open a connection to the hitcounterdb accessdb="hitcounterdb" cn="DRIVER={Microsoft Access Driver (*.mdb)};" cn=cn & "DBQ=" & server.mappath(accessdb) Set rs = Server.CreateObject("ADODB.Recordset") ' Insert the url for the page and the number one for the number of hits ' The Accessdb is set up to also post the date and time into the db sql = "insert into hitcounter (page,hit)" sql = sql & " values( '" & page & "',1 )" rs.Open sql, cn ' Select statement to count the number of hits for the current page sql= "SELECT Sum([hit]) AS hits FROM hitcounter where page='"& page &"'" rs.Open sql, cn ' Write out the current hit count to the browser %>