<% 'Specify your captcha length here, this is the only configuration requirement captchaLength = 5 Function captcha(captchaLength) if captchaLength > 15 then captchaLength = 15 HighestValue = left(100000000000000,captchaLength) lowestValue = left(999999999999999,captchaLength) Randomize intHighestNumber = Int((HighestValue - LowestValue + 1) * Rnd) + LowestValue session("captcha") = Int(intHighestNumber) x = 1 Response.Write vbcrlf & "
" & vbcrlf & vbtab & "" & vbcrlf while x <= captchaLength response.write vbtab & vbtab & "" & vbcrlf x = x + 1 wend Response.Write vbtab & "" & vbcrlf & "
" & vbcrlf End Function if request.form("hSubmit") = "Captcha" then if cstr(request.form("captcha")) = cstr(session("captcha")) then name = Replace(TRIM( Request.Form( "name" ) ),"'","") phone = Replace(TRIM( Request.Form( "phone" ) ),"'","") email = Replace(TRIM( Request.Form( "email" ) ),"'","") message = Replace(TRIM( Request.Form( "message" ) ),"'","") 'question8 = Replace(TRIM( Request.Form( "q14" ) ),"'","") 'question8 = Replace(TRIM( Request.Form( "q15" ) ),"'","") 'question8 = Replace(TRIM( Request.Form( "q16" ) ),"'","") 'question8 = Replace(TRIM( Request.Form( "q17" ) ),"'","") email = Trim( Request.Form( "email" )) Dim oMail Set oMail = CreateObject("cdo.message") oMail.From = "donotreply@MidlandGas.com" 'oMail.ContentType = "text/html" oMail.To ="info@midlandgas.co.uk" oMail.Subject = "MidlandGas - Online Form Submission" oMail.HTMLBody = "
Hi,

We got following information through an online form submission,

" & _ "" & "" & "
Name:  " & Request.Form("name") & "
" & _ "" & "" & "
Contact No.:  " & Request.Form("phone") & "
" & _ "" & "" & "
E-mail:  " & Request.Form("email") & "
" & _ "" & "" & "
Comments:" & Request.Form("message") & "
" & _ "


Regards
Online Team
" & _ "


Disclaimer: Please do not reply to this message.
" oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ ="localhost" 'Server port oMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _ =25 oMail.Configuration.Fields.Update 'Response.Write(sStr) oMail.Send Response.Write("") else sErrMsg = "Please enter correct numbers from the image below" end if end if 'Code for sending mails 'name= Request.Form("name") 'email = Request.Form("email") %>

0121 663 0906

Wolverhampton: 01902 213196
Walsall: 01922 235176
Dudley/Stourbridge: 01384 913526

Central Heating Installation

Most households in the UK are gas central heated. As the gas is piped direct to your home, you will never have to store fuel which helps to make this a highly efficient way to warm your home. The process of this method is for a gas fired boiler to heat the water, which then provides central heating via your radiators as well as hot water through the taps in your home.

This type of installation is far more advanced than it was say even 5 years ago. With the latest technology, new systems can react to temperatures in your room ensuring that your gas central heating system is heating your home exactly when you need it to, saving your time and money.

It is often thought that installing a new system will be too expensive, however, whilst the initial outlay may seem more than you want to pay, we have different systems to suit all homes and budgets. Replacing your system can often be the best choice you will make as you will save money in the longer term as it will help to reduce your energy consumption, all whilst doing your bit for the environment.

Central Heating Grants

There are still many UK households that have the old systems in place which do not perform as well, therefore making them a less efficient option. In order to change this, the UK government offers a grant to qualifying systems to help with replacement costs. These grants are regularly under review and may be an option that you could consider. It is definitely worth asking your installer about this as you may be eligible to receive considerable savings if you qualify for grants available.

  • Worcester
  • Vaillant
  • Baxi
  • Alpha
  • Keston

We have called on Midland Gas a few times now. Each time their service is great. Their skills in ensuring that we have the right solution are spot on and consistently high in standard. Great job lads.

Kay Claire