How to contact us
Contact. |
Provincial Grand Secretary. |
Provincial Office. |
7 New Bridge Street, Truro, TR1 2AA. |
T. |
01872 276191 |
F. |
01872 222572 |
Office hours: Monday to Friday 9.00 a.m – 12.30
p.m |
<%
Dim process
process = Request.Form("process")
If process = "true" Then
Dim title, fullname, address1, address2, phone, mobile, fax, email, webpage, enquiry, preferred, errorMsg
'Get form data.
title = Request.Form("title")
fullname = Request.Form("fullname")
address1 = Request.Form("address1")
address2 = Request.Form("address2")
phone = Request.Form("phone")
mobile = Request.Form("mobile")
fax = Request.Form("fax")
email = Request.Form("email")
webpage = Request.Form("webpage")
enquiry = Request.Form("enquiry")
preferred = Request.Form("preferred")
'If data is error free dispatch email
If errorMsg = "" Then
Dim Mail, body
body="Enquiry Submitted " & date() &"-"& time() & vbCrLf & vbCrLf
body=body & "Name : " & fullname & vbCrLf & vbCrLf
body=body & "Address 1 : " & address1 & vbCrLf
body=body & "Address 2 : " & address2 & vbCrLf & vbCrLf
body=body & "Phone : " & phone & vbCrLf
body=body & "Mobile : " & mobile & vbCrLf
body=body & "Fax : " & fax & vbCrLf
body=body & "Email : " & email & vbCrLf
body=body & "Webpage : " & webpage & vbCrLf
body=body & "Preferred method of Response : " & preferred & vbCrLf & vbCrLf
body=body & "Enquiry : " & vbCrLf & enquiry & vbCrLf
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.To = "craigbryant@hotmail.com"
Mail.From = "craigbryant@hotmail.com"
Mail.Subject = "Contacts from Freemasonry Site"
Mail.Body = body
Mail.Send
Response.Write("Enquiry Sent we will get back to you as soon as possible.")
Set Mail=Nothing
Else
Response.Write(errorMsg)
End If
Else
%>
|
Acknowledgements:
All directions & maps compiled by ~
The Reverend Raymond Wood
------------------------------------------------ |
The Maps are based on the Ordnance Survey details, so are Crown
Copyright.
The Photographs are copyright of
Robert Lawrence LBIPP
of Abbey House Studios - 01291 680089
|
|
