<%@ LANGUAGE = "VBScript" %> <% option Explicit %> <%response.Expires = 0%> <%response.buffer=true%> <% dim forename, surname, address, town, county, email, tel, comments, submit, mainmsg, mailmsg submit = request("submit") if submit <>"" then forename = request("forename") surname = request("surname") address = request("address") town = request("town") county = request("county") email = request("email") tel = request("tel") comments = request("comments") mainmsg = "Response form the Website." mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Please contact the person below." mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & formatdatetime(now,2) mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Forename:"& Chr(9)&forename&"" mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Surname:"& Chr(9)&surname&"" mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Address:"& Chr(9)&address&"" mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "City/Town:"& Chr(9)&town&"" mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "County:"& Chr(9)&county&"" mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Email:"& Chr(9)&email&"" mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "tel:"& Chr(9)&tel&"" mainmsg = mainmsg & Chr(13) & Chr(10) mainmsg = mainmsg & "Comments:"& Chr(9)&comments&"" mainmsg = mainmsg & Chr(13) & Chr(10) Set mailmsg = Server.CreateObject("CDONTS.NewMail") mailmsg.To = "info@pressuresystemsolutions.co.uk" mailmsg.From = email mailmsg.Subject = "Response form the Website." mailmsg.Body = mainmsg mailmsg.Host = "127.0.0.1" mailmsg.Send end if %> Pressure Systems Solutions


Home
 		<% if submit = "" then %>
Forename:
Surname:
Address:
City/Town:
County:
Postcode:
Email:
Contact Telephone:
Comments:
 
<% else %> <% end if %>

sales@pressuresystemsolutions.co.uk
info@pressuresystemsolutions.co.uk
enquiry@pressuresystemsolutions.co.uk