<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function %> <% code = true If (CStr(Request("MM_insert")) = "form1") Then WA_Universal_Email_1_SendMail("info@equineacresireland.com") response.redirect("contactEmailSuccess.asp") 'else ' code=false 'end if End If %> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "Equine Acres Website|WA|" & cStr(cStr(Request.Form("userEmail"))) & "" MailSubject = "Equine Acres Web Form Submission" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("mail.arldesign.com","25","","") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,"andy@arldesign.com") 'CC Entries 'Character Set 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "

Equine Acres Web Form Submission

" & vbCrlf & "" MailBody = MailBody & "

Name : " MailBody = MailBody & cStr(Request.Form("userFirstName")) MailBody = MailBody & " " MailBody = MailBody & cStr(Request.Form("userSurname")) MailBody = MailBody & " 

" & vbCrlf & "" MailBody = MailBody & "

Email Address: " MailBody = MailBody & cStr(Request.Form("userEmail")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "

Contact Number : " MailBody = MailBody & cStr(Request.Form("userTel")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "

Query : " MailBody = MailBody & cStr(Request.Form("userQuery")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> Equine Acres - Innovative Equine & Amenity Products
Contact : +353 (0)62 63005 / +353 (0)87 923 7328

Contact Us

If you have a query or would like to request a call back. Please fill in the form below and we will contact you back.

First Name:
 " size="40" />
Surname:
 " size="40" />
Email:
 " size="40" />
Telephone
 " size="40" />
Query


View Our Product Range



ANTI CAST STRIPS



Proven to reduce the risk of horses getting cast ... Full Installation Service Available More Information >>


MACHINERY FOR HIRE


 

Both our AGRI-vator and Disc Seeder machines are available for hire. More Information >>

 
Ballinacurra, Kinsale, Co Cork, Ireland Website : ARL Design