<% 'registration code errorCount = 0 Dim fullname, address1, address2, address3, post_town, post_code, telephone, email, nature_of_business fullname = request("fullname") address1 = request("address1") address2 = request("address2") address3 = request("address3") post_town = request("post_town") post_code = request("post_code") telephone = request("telephone") email = request("email") nature_of_business = request("nature_of_business") if request("Submit") <> "" then whichServer = Request.ServerVariables("server_name") whichServer = replace(whichServer,"www.","") whichServer = replace(whichServer,".co.uk","") whichServer = replace(whichServer,".com","") whichServer = replace(whichServer,"http://","") if whichServer <> "energasenergysolutions" then validHost = "

Originating Host is not correct

" errorCount = errorCount + 1 end if whichReferer = Request.ServerVariables("HTTP_REFERER") whichReferer = replace(whichReferer,"www.","") whichReferer = replace(whichReferer,".co.uk","") whichReferer = replace(whichReferer,".com","") whichReferer = replace(whichReferer,"http://","") whichReferer = left(whichReferer,22) if whichReferer <> "energasenergysolutions" then validReferer = "

HTTP referer is not correct

" errorCount = errorCount + 1 end if if Request.ServerVariables("REQUEST_METHOD") <> "POST" then validPost = "

Form was not posted

" errorCount = errorCount + 1 end if badStrings = array("Content-Type%3A","MIME-Version%3A","Content-Transfer-Encodin%3A","bcc%3A","cc%3A") checkFormString = Request.Form.Item For Each badWord in badStrings if InStr(1,checkFormString, badWord,1) <> 0 then response.write(badWord) validString = "

Bad string found

" errorCount = errorCount + 1 end if next if fullname = "" then validfullname = ("

Please enter your name

") errorCount = errorCount + 1 end if if address1 = "" then validaddress1 = ("

Please enter your address

") errorCount = errorCount + 1 end if 'check the email is equal to something and contains a fullstop and @ sign if email = "" or inStr(email,"@") = 0 or inStr(email,".") = 0 then validemail = ("

Please enter a valid email

") errorCount = errorCount + 1 end if if post_town = "" then validpost_town = ("

Please enter your town

") errorCount = errorCount + 1 end if if telephone = "" then validtelephone = ("

Please enter your telephone number

") errorCount = errorCount + 1 end if if post_code = "" then validpost_code = ("

Please enter your postcode

") errorCount = errorCount + 1 end if if errorCount <> 0 then errMsg = "

The following information is required:

" &_ "

" end if if errorCount = 0 then content = "Name: " & fullname & vbcrlf content = content & "Address: " & address1 & vbcrlf content = content & "Address: " & address2 & vbcrlf content = content & "Address: " & address3 & vbcrlf content = content & "Address: " & post_town & vbcrlf content = content & "Postcode: " & post_code & vbcrlf content = content & "Telephone: " & telephone & vbcrlf content = content & "Email: " & email & vbcrlf & vbcrlf content = content & "Nature of Business: " & vbcrlf & nature_of_business & vbcrlf content = "The following is an enquiry from the Energas Energy Solutions website please follow up as soon as possible" & vbcrlf & vbcrlf & content 'if not administrator then email him Dim sMsg Dim sTo Dim sFrom Dim sSubject Dim sTextBody 'sTo = "ken.atkinson@energas.co.uk" sTo = "keith.fisher@energas.co.uk" 'sTo = "brian@innovative-graphics.co.uk" sCC = "brian@innovative-graphics.co.uk" sFrom = email sSubject = "WEBSITE ENQUIRY via energasenergysolutions.co.uk" sTextBody= content Dim objMail 'Create the mail object Set objMail = Server.CreateObject("CDO.Message") 'Set key properties objMail.From = sFrom objMail.To = sTo objMail.CC = sCC objMail.Subject= sSubject objMail.TextBody = sTextBody 'Send the email objMail.Send 'Clean-up mail object Set objMail = Nothing contactEmailSent = "

Thank you for your on-line enquiry, a representative of Energas Energy Solutions will contact you shortly.

" end if end if %> Energas Energy Solutions - Supplier of Bulk LPG Gas for business and domestic users throughout the UK


	At Home Leisure Autogas In Business Forklift Trucks Payment Options Technical Installation FAQs Changing Supplier

Energas Energy Solutions
Supplying Lincolnshire, Yorkshire, Nottinghamshire, Derbyshire and the East Midlands

If you would like to know more about Energas Energy Solutions contact us on the freephone number below or complete and submit the online form:

Energas Energy Solutions Ltd
Fulwood Road South
Common Road
Huthwaite
Sutton-in-Ashfield NG17 2JZ

Telephone: 0808 178 2009 (freephone)
Email:

<% if contactEmailSent = "" then %>

If you would like to request further information by email complete the form below and click the submit button:

<%=errMsg%>

<% else response.write(contactEmailSent) end if %>

Find our distribution centres:

Links:

hosted by Innovative Graphics Limited


	Energas Energy Solutions Ltd. Fulwood Road South, Common Road, Huthwaite, Sutton-in-Ashfield NG17 2JZ. Tel: 0808 178 2009

Energas Energy Solutions Supplying Lincolnshire, Yorkshire, Nottinghamshire, Derbyshire and the East Midlands

Energas Energy Solutions
Supplying Lincolnshire, Yorkshire, Nottinghamshire, Derbyshire and the East Midlands