|
Guest BookPrevious Comments Page 1 <% 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 = "Guest Book comment 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 %> |
|
Other comments from the Provincial Grand MasterLatest Charity NewsFreemasons in Cornwall are actively involved in Masonic and Non-Masonic donations in a number of ways. In addition to their commitment to help their fellow masons and dependants there is a strong responsibility more Forum NewsHelpful LinksContact Details |
