Chew Magna - Somerset

<% session("cmPage") = "default.asp" Session("HeadColor")= "#50777E" Session("MenuColor") = "#7FBEC9" Dim nMonth nMonth = Cint(Datepart("M", Now())) Select Case nMonth Case 1 Session("HeadColor") = "#b3b3b3" Session("BodyColor") = "#ffffff" Case 2 Session("HeadColor") = "#8d96b3" Session("BodyColor") = "#cad7ff" Case 3 Session("HeadColor") = "#8c98ab" Session("BodyColor") = "#cadbf7" Case 4 ' Session("HeadColor") = "#50777E" ' Session("BodyColor") = "#7FBEC9" Session("HeadColor") = "#8cad95" Session("BodyColor") = "#cafad7" Case 5 Session("HeadColor") = "#8da0b3" Session("BodyColor") = "#cae5ff" Case 6 Session("HeadColor") = "#aba48c" Session("BodyColor") = "#f7f5cb" Case 7 Session("HeadColor") = "#8ca4ab" Session("BodyColor") = "#caedf7" Case 8 Session("HeadColor") = "#8cadab" Session("BodyColor") = "#cafaf7" Case 9 Session("HeadColor") = "#b3a58d" Session("BodyColor") = "#fff5c9" Case 10 Session("HeadColor") = "#ab988c" Session("BodyColor") = "#f7e3cb" Case 11 Session("HeadColor") = "#857B6D" Session("BodyColor") = "#D1C1AB" Case 12 ' Session("HeadColor") = "#413651" Session("HeadColor") = "#AE0C0C" Session("BodyColor") = "#FFFAFA" end Select Session("MenuColor") = Session("HeadColor") %> Chew Magna - Somerset - UK

<% class Quotes Public Function GetQuotes() Dim sSQL, oSQL Dim nRecordsAffected Set oSQL = New DB_IO sSQL = "Select * from Quotations " Set GetQuotes = oSQL.RunSQLWithRS(sSQL) Set oSQL = nothing End Function Public Function GetQuote(rNum) Dim sSQL, oSQL Dim nRecordsAffected Set oSQL = New DB_IO sSQL = "Select * from Quotations WHERE Id =" & rNum & " " 'response.write sSQL 'response.end Set GetQuote = oSQL.RunSQLWithRS(sSQL) Set oSQL = nothing End Function end class %> <% Dim oQuote, oQuoteRS Dim rNum, totQuotes, Quote, Author Set oQuote = New Quotes set oQuoteRS = oQuote.GetQuotes() totQuotes = oQuoteRS.recordCount Randomize rNum = Int((totQuotes - 1 + 1) * Rnd + 1) set oQuoteRS = oQuote.GetQuote(rNum) Quote = oQuoteRS("Quotation") Author = oQuoteRS("Author") %>

<%= quote%> - <%= author%>

Visiting Chew Magna .....

If you are visiting or planning to visit Chew Magna then we hope to provide you with some helpful information and tips.

An online tour of Chew Magna

The village is about 10 miles from Bristol, 14 miles from Bath and 13 miles from the city of Wells. It is just on the northern edge of the Mendip Hills (a designated Area of Oustanding Natural Beauty)and is in the general area known as the Chew Valley. The village is a conservation area which has meant that Chew Magna has retained its character, friendliness and quiet charm.

There are two Primary schools and a Secondary school, several shops, three churches, three pubs serving the area. The community has about 1200 residents and there are several other near by villages and hamlets.

Chew Magna has an interesting history that provides a backdrop to today's vibrant society... a little more is described in our history page.

The logo at the top of the page is from the new road boundary stones installed April 2003, that welcome every one to the village.

Thank you for visiting Chew Magna ..

All visitors are welcome and any feedback about the site is helpful.


	Where is it?

	Local Weather

	Local History


		Visit our Sponsors Managed by and copyright of Abitas Ltd based in the UK. All content, photographic material, art work and design on this site are covered by copyright, please ask permission if you wish to use or purchase copies of material for any purpose commercial or private. Click to email chewmagna