<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Function EmailTest(sEmail) RegExpTest = false Dim regEx, retVal Set regEx = New RegExp ' Create regular expression: regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" ' Set pattern: regEx.IgnoreCase = true ' Set case sensitivity. retVal = regEx.Test(sEmail) ' Execute the search test. If not retVal Then exit function End If EmailTest = true End Function Function PostcodeTest(sEmail) RegExpTest = false Dim regEx, retVal Set regEx = New RegExp ' Create regular expression: regEx.Pattern ="^([A-Za-z]{1,2})([0-9]{1,2})( {0,1})([0-9])([A-Za-z]{2})$" ' Set pattern: regEx.IgnoreCase = true ' Set case sensitivity. retVal = regEx.Test(sEmail) ' Execute the search test. If not retVal Then exit function End If PostcodeTest= true End Function %> <% if request.form("go")="true" then errr="
There has been an error with your request
" 'Do mail if not myerr then errr="
Your Request has been sent. Please wait for somebody to contact you within the next 24 hours
" select case conttime case "1" conttimeText = "Morning" case "2" conttimeText = "Afternoon" case "3" conttimeText = "Evening" end select select case contactby case "1" contactbyText = "Phone" case "2" contactbyText = "Email" end select select case findus case "1" findusText = "Search Engine" case "2" findusText = "Word of Mouth" case "3" findusText = "Article" case "4" findusText = "Advert" end select Dim txtSubject txtSubject = name&", "&number&", "&postcode&", "&email&VbCrLf&VbCrLf txtSubject = txtSubject& "Google Maps Link: http://maps.google.com/maps?q="&postcode&"&spn=0.269915,0.472275&hl=en"&VbCrLf txtSubject = txtSubject& "Heard about us from: "&findusText&VbCrLf txtSubject = txtSubject& "Contact in the: "&conttimeText&VbCrLf txtSubject = txtSubject& "Contact by: "&contactbyText&VbCrLf strSMTPServer = "smtp.allergytest.co.uk" Set NewMail = Server.CreateOBject( "JMail.Message" ) NewMail.Logging = true NewMail.silent = true NewMail.From = email NewMail.AddRecipient "info@allergytest.co.uk" ' The subject of the message NewMail.Subject = "Allergy Test enquiry from "&name ' And the body NewMail.HTMLBody = txtSubject NewMail.body = txtSubject if not NewMail.Send(strSMTPServer) then Response.write "
" & msg.log & "
" else end if Set NewMail=Nothing end if end if %> Allergy Testing UK - Request an Allergy Test
Skip to Content

How it all works

Request an Allergy Test

If you would like us to let you have details of your nearest Allergy Test UK trained tester then please complete the form below. Alternatively you can call us on 01934 842923 during business hours.

<%=errr%>
All details are mandatory