<% 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%>
    Home     Community     Shops and Trade     About the village     Contact            
 
 
 
 
     
 
This is..

Chew Magna in Somerset UK.

 		 
 
 


The village is about 10 miles from Bristol, 15 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.

Take an online tour of Chew Magna - click here!

Have a Panoramic view of the Chew Valley - click here!

Thank you for visiting Chew Magna ..

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

  Chew Magna Community pages   Chew Magna Shops and Trade  


Maps of Chew Magna Where is it?
Weather in Chew Magna Local Weather
Chew Magna Local History Local History
 
   
     
 

 
 
 
  Level A conformance icon, W3C-WAI Web Content Accessibility Guidelines 1.0  
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