% @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 & "" & 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 %>Please click here to return to the main website.
<% Else %>![]() |
||
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!
|