<% '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

Services

Boiler Installation/Replacement

As you can imagine, your boiler accounts for over half of your yearly energy bills, so it is very important that it is in optimal condition to maximise the efficiency of your central heating system. An older boiler may need replacing even if it is regularly serviced.
Find out more

Combi Boiler Installation/Replacement

This is a fairly new kind of boiler which combines all of the heating components into one unit, the pump, flue, hot water storage cylinder etc so it's a good option to save on some space. Its also a more energy efficient way to heat your home and it doesn't take as long as a traditional boiler to heat your water.
Find out more

Boiler Servicing

We would recommend that you have your boiler serviced every year. It can be extremely dangerous if your boiler is left year after year as this can increase the risks of carbon monoxide poisoning.
Find out more

Central Heating Servicing

Maintaining your Central Heating system can help considerably to reduce your bills and prolong the life of your overall system.
Find out more

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.
Find out more

Landlords' Services

As a landlord, you are legally required to look after the safety of your tenants and as such, the Gas Safety Regulations 1998 (installation and use), deals with this to ensure landlords comply to make sure that gas appliances, fittings and flues in the property are in safe working order for tenants.
Find out more

Emergency Services

If you smell gas, call the National Gas Emergency Service on 0800 111 999. It doesn't matter what time it is, whether its day or night, they have fully trained staff working 24/7 for this type of emergency. They will ask for some detailed information so that they can get their engineers deployed quickly to the exact location.
Find out more

  • 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