<% 'registration code errorCount = 0 Dim fullname, address1, address2, address3, post_town, post_code, telephone, email, current_supplier, annual_usage 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") current_supplier = request("current_supplier") annual_usage = request("annual_usage") 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 content = content & "Current Supplier: " & current_supplier & vbcrlf content = content & "Annual Usage: " & annual_usage & vbcrlf content = "The following is an enquiry from the Change Supplier page of the Energas Energy Solutions website. The client wishes to register their interest in chagnging their gas supply to Energas. 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 - Client wishing to change supplier - 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

The Competition Commission Order
for the Supply of Bulk LPG for Domestic Use

The Competition Commission Order for the Supply of Bulk LPG for Domestic Use* has now been published and will come into effect on 13th April 2009.

The order puts into place certain processes that the Competition Commission believes will improve the domestic customer and supplier relationship, and aims to provide a better competitive environment for the industry.

More specificallly, it creates a framework for the industry to allow a domestic customer wishing to switch their supplier.

It also gives new suppliers like Energas Energy Solutions the right to transfer the ownership of your existing Bulk tank from your present supplier to Energas at no cost of transfer to you, the customer.

It requires the provision of clear information to domestic customers in relation to their right to switch; and reduces the exclusivity of supply, in a contract to a maximum of 2 years.

Summary
If you have no contract or
Are you more than 2 years into a supply contract?

Then you can SWITCH NOW to ENERGAS AT NO COST and start saving money on our tank refills of LPG.
Or
If you still have some time to go to reach the 2-year mark of your supply agreement, Don't worry, REGISTER now with ENERGAS – We will contact you before the due date and prepare the paperwork to get you ready to start saving money on your fuel bills, thereafter.

<% if contactEmailSent = "" then %>

Complete the form below to register your interest with ENERGAS:

<%=errMsg%>

Name*
Address line 1*
Address line 2
Address line 3
Post town*
Post code*
Telephone (inc. std)*
E mail*
Current Supplier
Annual gas usage (value in £)
*indicates required fields

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

	Are you:
	A hotel, pub, restaurant or residential home?
	Not on mains gas?
	Own your own bulk LPG tank?
	Requiring a new tank?
	Concerned about rising fuel costs?
	Looking for ways to save money?
If the answer is yes to any of the above then give us a call on 0808 178 2009

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