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

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

Regular Central Heating Servicing

Regular central heating maintenance is extremely important, especially if your boiler is an older model. The service we carry out will check for potential faults which could lead to the system malfunctioning. Even if everything appears to be in working order you should always ensure that an experienced and qualified heating engineer check your system.

Midland Gas provides a local central heating service which can look at all boilers and systems and all of our engineers are Gas Safe registered to guarantee service and safety. See boiler servicing for a checklist of what an engineer should be doing during a boiler service.

Power Flush

Power flushing is the process through which the build-up of any sludge and corrosive materials in your central heating pipes is removed. This is done using water at high velocity but low pressure so that no physical damage is caused to your system. This will help to evenly distribute the heat and may also help with reducing the energy required to pump water through the system.

This process should be done when a new boiler is first installed with an existing system, as this can help to alleviate any potential problems. It should then be done at regular intervals.

Check Radiators

Regularly check your radiators to check that heat is being evenly distributed.

If the top of the radiator is cold and the bottom is hot, then you need to bleed your radiator. If this is a happening frequently then air is getting into your system and you should get this checked by a heating engineer to find where the leak might be.

  • 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