<% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Dim strFirst, strLast, strAdd, strTown, strCounty, strNation, strPost, strMail, strMessage If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then strFirst = Trim(Request.Form("FirstName")) strLast = Trim(Request.Form("LastName")) strAdd = Trim(Request.Form("Address")) strTown = Trim(Request.Form("CityTown")) strCounty = Trim(Request.Form("StateCounty")) strNation = Trim(Request.Form("Country")) strPost = Trim(Request.Form("Postcode")) strMail = Trim(Request.Form("Email")) strMessage = Trim(Request.Form("Comments")) Dim objMail, htmlText Set objMail = Server.CreateObject("CDONTS.NewMail") htmlText = "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "Contact the Northwest Church Of God" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "

" & strFirst & "

" htmlText = htmlText & "

" & strLast & "

" htmlText = htmlText & "

" & strAdd & "

" htmlText = htmlText & "

" & strTown & "

" htmlText = htmlText & "

" & strCounty & "

" htmlText = htmlText & "

" & strNation & "

" htmlText = htmlText & "

" & strPost & "

" htmlText = htmlText & "

" & strMail & "

" htmlText = htmlText & "

" & strMessage & "

" htmlText = htmlText & "" htmlText = htmlText & "" objMail.From = strFirst objMail.To = "pastor@nwchurch-of-god.org.uk" objMail.Subject = "Form reply" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = htmlText objMail.Send Set objMail = Nothing %> Thank You

Thank you <%= strFirst %> <%= strLast %>, Your form has been submitted.



Please click here to return to the main website.

<% Else %> Contact the northwest church of God
nwchurch of God banner

Hot Topics

Please fill in the form below and click on "Submit"


Note: None of the fields are compulsory, and we dont send out unsolicited emails or letters!

" METHOD=POST>
First Name
Last Name
Address
City or Town
County/State
Country
Postcode
Email
Comments
Submit
Reset
<% End If %>