<% Dim blnCAPTCHAcodeCorrect 'Set to true if the CAPTCHA code entered is correct Dim strCAPTCHAenteredCode 'Holds the code entered by the user 'Initilise the security code bulleon to false blnCAPTCHAcodeCorrect = False If LCase(Session("strSecurityCode")) = LCase(Request("valcode")) And Session("strSecurityCode") <> "" Then blnCAPTCHAcodeCorrect = True End If strName = Trim(Request.Form("Full Name")) strAge= Trim(Request.Form("age")) strEmail = Trim(Request.Form("email")) strPhone = Trim(Request.Form("telephone")) strClasses = Trim(Request.Form("classes")) strMessage = Trim(Request.Form("message")) sPosted = UCase(Request.Form("posted")) If sPosted = "Y" Then If blnCAPTCHAcodeCorrect Then If strName = "" Or strMessage = "" Or (strPhone = "" And strEmail = "") Then lValid = False Else lValid = True strBody = "e64 Website Enquiry" strBody = strBody & "" strBody = strBody & strName & " submitted the following enquiry via the website:" & vbCrLf & vbCrLf strBody = strBody & "
" & strMessage & "
" & vbCrLf & vbCrLf strBody = strBody & "

" & strName & "'s contact details are:

" & vbCrLf & vbCrLf strBody = strBody & "
" strBody = strBody & "
Classes: " & strClasses strBody = strBody & "
Phone: " & strPhone strBody = strBody & "
Email: " & strEmail & "" strBody = strBody & "
" strBody = strBody & "

Thank you,
" & vbCrLf & "RPMAA

" & vbCrLf & vbCrLf strBody = strBody & "

 

" Session.Contents.Remove("strSecurityCode") SendEmail "info@rpmaa.com", "info@rpmaa.com", "Website Enquiry from " & strName, strBody, "" If strEmail <> "" Then strBody = "Dear " & strName & vbCrLf & vbCrLf strBody = strBody & "Thank you for the enquiry you posted via our website where you wrote:" & vbCrLf & vbCrLf strBody = strBody & strMessage & vbCrLf & vbCrLf strBody = strBody & "Your contact details are:" & vbCrLf & vbCrLf strBody = strBody & "Phone: " & strPhone & vbCrLf strBody = strBody & "Email: " & strEmail & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "If these details are not correct please let us know, otherwise we'll be in touch with you shortly to discuss this further." & vbCrLf & vbCrLf strBody = strBody & "Thank you," & vbCrLf & "RPMAA" & vbCrLf & vbCrLf SendEmail "scolling@gmail.com", strEmail, "RPMAA Website Enquiry", strBody, "" SendEmail "info@rpmaa.com", strEmail, "RPMAA Website Enquiry", strBody, "" End If End If End If End If %> Contact Russell Perks Martial Arts Academy

Contact Page

Our adult's classes promote health, fitness, self defence, modern and traditional Martial Arts, whilst our children's classes aim to develop character, in addition to teaching physical skills for anti-bullying and self defence.

We encourage participation of the whole family and have many parents training in our adults classes. The classes are safe, fully insured and taught by qualified instructors.

For detailed information, please browse our website, join us on Facebook or contact us here where we will be glad to answer any questions you may have.

Fill out the enquiry form below, email info@rpmaa.com or alternatively call 01562 636005 / 07977 245664.


<% If sPosted = "Y" And lValid Then %>

Thank you for contacting us, we'll be in touch very soon.

<% Else %>
<% If sPosted = "Y" And Not lValid Then %>

The Validation Code didn't match, please try again.

<% End If %>

Fill out a contact form


A value is required.

A value is required.

A value is required.
Invalid format.

A value is required.

A value is required.

A value is required.

Please contact us if you have problems seeing this image

<% If server_response <> "" Or newCaptcha Then response.Write(recaptcha_challenge_writer()) End If %>

<% End If %>
 

Where to Find Us



Like us on Facebook

<% Function SendEmail(sFromAddr, sToAddr, sSubject, sBody, sAttachment) Dim sHTML, sText, myMail, sSch, cdoConfig, cdoMessage, oFso If InStr(LCase(sBody), "") > 0 Then sHTML = sBody sText = RemoveHTML(sBody, True) Else sHTML = "" sText = sBody End If Set cdoConfig = Server.CreateObject("CDO.Configuration") sSch = "http://schemas.microsoft.com/cdo/configuration/" With cdoConfig.Fields .Item(sSch & "sendusing") = 2 ' cdoSendUsingPickup .Item(sSch & "smtpserver") = "redmail.e64.com" .update End With Set cdoMessage = Server.CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = sFromAddr .To = sToAddr .Subject = sSubject If Len(sAttachment) <> 0 Then Set oFso = Server.CreateObject("Scripting.FileSystemObject") If oFso.FileExists(sAttachment) Then .AddAttachment sAttachment End If Set oFso = Nothing End If If sHTML <> "" Then .HTMLBody = sHTML .TextBody = sText .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing End Function Function RemoveHTML(strText, lFormat) Dim sTextOnly, oRegEx Set oRegEx = New RegExp sTextOnly = strText oRegEx.IgnoreCase = True oRegEx.Global = True If IsNull(sTextOnly) Or Len(sTextOnly) = 0 Then sTextOnly = " " If lFormat then ' Replace certain HTML tags with some text formatting characters oRegEx.Pattern = "\r\n|(^[ \t]+|[ \t]+$)| |

" sTextOnly = oRegEx.Replace(sTextOnly, "") oRegEx.Pattern = "[ \t]+" sTextOnly = oRegEx.Replace(sTextOnly, " ") oRegEx.Pattern = "]*>|]*>||]*>||]*>|" sTextOnly = oRegEx.Replace(sTextOnly, "") oRegEx.Pattern = "]*>" sTextOnly = oRegEx.Replace(sTextOnly, " ") oRegEx.Pattern = "]*>" sTextOnly = oRegEx.Replace(sTextOnly, "") oRegEx.Pattern = "`&(amp;)?[^\;]+;`i" sTextOnly = oRegEx.Replace(sTextOnly, "") oRegEx.Pattern = "`<[^>]*>(.*<[^>]*>)?`Usi" sTextOnly = oRegEx.Replace(sTextOnly, "") End If oRegEx.Pattern = "]*>(.*?)" sTextOnly = oRegEx.Replace(sTextOnly, "") oRegEx.Pattern = "<[^>]+>" sTextOnly = oRegEx.Replace(sTextOnly, "") Set oRegEx = nothing sTextOnly = Replace(sTextOnly,";>"," ") sTextOnly = Replace(sTextOnly,">"," ") sTextOnly = Replace(sTextOnly," ","") RemoveHTML = sTextOnly End Function %>