HPS Plastering Contact Information

<%@ Language=VBScript %> <% Option Explicit Response.Buffer = true Response.Expires = -1000 Dim JMail, emailmsg, thing, msg %> HPS Plastering Contact Information

	Contact Us
	Address:	HPS Plastering Unit A100, The Sanderson Centre, Lees Lane, Gosport Hants, P012 3UL
	Telephone:	02392 35 10 29
	Fax:	02392 43 13 44
	General enquires:	info@hps-plastering.co.uk
	Website:	www.hps-plastering.co.uk

<% ' Amend the Recipient, Subject and redirected page below. if (Request.Form("Submit")) = "Submit Request" then emailmsg = "" emailmsg = emailmsg & "Title=" & request.form("Title") & vbcrlf emailmsg = emailmsg & "Name=" & request.form("Name") & vbcrlf emailmsg = emailmsg & "Company Name=" & request.form("CompanyName") & vbcrlf emailmsg = emailmsg & "Address=" & request.form("Address") & vbcrlf emailmsg = emailmsg & "Town=" & request.form("Town") & vbcrlf emailmsg = emailmsg & "County=" & request.form("County") & vbcrlf emailmsg = emailmsg & "Postcode=" & request.form("Postcode") & vbcrlf emailmsg = emailmsg & "Daytime Number=" & request.form("DaytimeNumber") & vbcrlf emailmsg = emailmsg & "Evening Number=" & request.form("EveningNumber") & vbcrlf emailmsg = emailmsg & "Mobile Number=" & request.form("MobileNumber") & vbcrlf emailmsg = emailmsg & request.form("Email") & vbcrlf emailmsg = emailmsg & "Fax Number=" & request.form("Fax") & vbcrlf emailmsg = emailmsg & "Domestic Enquiry=" & request.form("DomesticEnquiry") & vbcrlf emailmsg = emailmsg & "Commerical Enquiry=" & request.form("CommercialEnquiry") & vbcrlf emailmsg = emailmsg & "Industrial Enquiry=" & request.form("IndustrialEnquiry") & vbcrlf emailmsg = emailmsg & "New Build Enquiry=" & request.form("NewBuildEnquiry") & vbcrlf emailmsg = emailmsg & "Main Contractor Enquiry=" & request.form("MainContractorEnquiry") & vbcrlf emailmsg = emailmsg & "Sub Contractor Enquiry=" & request.form("SubContractorEnquiry") & vbcrlf emailmsg = emailmsg & "Notes=" & request.form("AdditionalNotes") & vbcrlf emailmsg = emailmsg & "Source=" & request.form("How_Hear") & vbcrlf set msg = Server.CreateOBject( "JMail.Message" ) msg.Logging = true msg.silent = false msg.From = request.form("email") msg.AddRecipient "info@hardwayplastering.co.uk" 'Recipient of emailed form msg.Subject = "Website Enquiry Form" 'Subject of Email msg.Body = cstr(EmailMsg) msg.Send( "www15.redstation.co.uk" ) 'Change this to www2, www3 etc set msg = Server.CreateOBject( "JMail.Message" ) emailmsg = "" emailmsg = emailmsg & request.form("Title") & " " & request.form("Name") & vbcrlf emailmsg = emailmsg & request.form("Address") & vbcrlf emailmsg = emailmsg & request.form("Town") & vbcrlf emailmsg = emailmsg & request.form("County") & vbcrlf emailmsg = emailmsg & request.form("Postcode") & vbcrlf & vbcrlf emailmsg = emailmsg & Day(Date) & " " & Month(Date) & " " & Year(Date) & vbcrlf & vbcrlf emailmsg = emailmsg & "Dear " & request.form("Title") & " " & request.form("Name") & vbcrlf & vbcrlf emailmsg = emailmsg & "A Warm Welcome from Hardway Plastering" & vbcrlf & vbcrlf emailmsg = emailmsg & "We are pleased that you have contacted us though our website today and are considering using our professional services." & vbcrlf & vbcrlf emailmsg = emailmsg & "In order that we may provide you with the best possible service, please notify our office if any of your details are incorrect." & vbcrlf emailmsg = emailmsg & "You will shortly receive a call from us to deal with your enquiry." & vbcrlf & vbcrlf emailmsg = emailmsg & "Please feel free to contact us on 023 92 35 10 29 if you have any queries, we will be happy to hear from you." & vbcrlf & vbcrlf emailmsg = emailmsg & "Our office hours are Monday to Friday 09.00 – 17.00." & vbcrlf & vbcrlf emailmsg = emailmsg & "Yours Sincerely" & vbcrlf & vbcrlf emailmsg = emailmsg & "Administration" & vbcrlf emailmsg = emailmsg & "Hardway Plastering" & vbcrlf emailmsg = emailmsg & "admin@hardwayplastering.co.uk" & vbcrlf & vbcrlf emailmsg = emailmsg & "www.hardwayplastering.co.uk" & vbcrlf msg.Logging = true msg.silent = false msg.From = "info@hardwayplastering.co.uk" 'Company email address msg.AddRecipient request.form("email") msg.Subject = "A Warm Welcome from Hardway Plastering" 'Subject of Email msg.Body = cstr(EmailMsg) msg.Send( "www15.redstation.co.uk" ) 'Change this to www2, www3 etc response.redirect "thankyou.htm" 'address of thank you page end if %>