<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim contact_name, contact_email, contact_phone, contact_hearfrom, contact_comment Dim intError, arrMessage(5) intError = 0 If request.Form("Send") = "contact" Then contact_name = Trim(request.Form("name")) contact_email = Trim(request.Form("email")) contact_phone = Trim(request.Form("phone")) contact_hearfrom = Trim(request.Form("hearfrom")) contact_comment = Trim(request.Form("comment")) If contact_name = "" Then arrMessage(intError) = "Your Name is empty or invalid." intError = intError+1 End If If contact_email = "" Or IsValidEmail(contact_email) = false Then arrMessage(intError) = "Invalid Email address." intError = intError+1 End If If contact_phone = "" Then arrMessage(intError) = "Your Phone number is empty." intError = intError+1 End If If contact_hearfrom = "" Then arrMessage(intError) = "Please select Where did you hear about us." intError = intError+1 End If If intError = 0 Then 'Send email with information to the owner Dim Temp, MailSubject, MailBody, MailTo, MailExtraTo, MailFrom, MailAttachment MailSubject = "Webiste Enquiry" MailBody = MailBody & VbCrLf & "AMK Leisure ENQUIRY" & VbCrLf & VbCrLf MailBody = MailBody & "Contact Details: "& VbCr MailBody = MailBody & "-------------------------------------------------- " & VbCrLf MailBody = MailBody & "Name: " & contact_name & VbCrLf & VbCrLf If contact_email <> "" Then MailBody = MailBody & "Email: " & contact_email & VbCrLf End If If contact_phone <> "" Then MailBody = MailBody & "Phone: " & contact_phone & VbCrLf End If MailBody = MailBody & VbCrLf & VbCrLf If contact_comment <> "" Then MailBody = MailBody & "Comment: "& VbCr MailBody = MailBody & "-------------------------------------------------- " & VbCrLf MailBody = MailBody & contact_comment & VbCrLf & VbCrLf End If MailTo = "office@amkleisure.com" MailExtraTo = "vincent@babblecom.co.uk" If contact_email <> "" Then MailFrom = contact_email Else MailFrom = "noEmail@amkleisure.com" End If call SendMail() response.Redirect("contact_us.asp?act=thanks") End If Else contact_name = "" contact_email = "" contact_phone = "" contact_hearfrom = "" contact_comment = "" End If %> Contact us | AMK Leisure - Design, manage, build innovative sport and leisure facility solutions

Here you are <•> Home Page > Contact us

Contact us

AMK Leisure
Tel: 01492 541815 or 07743410896
email :
<% If request.QueryString("act") = "thanks" Then %>

Successfull...

Thank you for your enquiry,
we will get back to you as soon as possible.

Regards,

Anthony McKinnon Team

<% Else %>
Please complete the form below.
<% If intError <> 0 Then response.Write("
" & intError & " error(s) must be fixed: ") For intCount = 0 to intError-1 response.Write("
" & intCount+1 & " - " & arrMessage(intCount) & vbCr) Next response.Write("
") End If %>

Note: Fields marked with (*) are compulsory.
<% End If %> Back to top

Recent News

Direct Debit Management Services

AMK Leisure aims to simplify the Direct Debit process and put your money in your bank reliably and efficiently.

View more ...
AMK Leisure launch Training Division

AMK Leisure are pleased to announce the launch of their dedicated Training Division.

View more ...
Public/Private sector Change Management division launched

Following the recruitment of specialist consultants, further new services have been added to the AMK Leisure portfolio.

View more ...