To contact Jon please email or fill in the contact /feedback form below.
If you would rather talk than type... then you can call Jon direct on +44 (0) 7886 008651.

*Your Name:

*Your Email Address:

Your Telephone Number:

Your Enquiry / Feedback

*Mandatory Fields.

 
<% ' Get the form data forename = Request.Form("forename") surname = Request.Form("surname") address = Request.Form("address") birthday = Request.Form("birthday") postcode = Request.Form("postcode") telephone = Request.Form ("telephone") senderEmail = Request.Form("email") subject = "Enquiry From The Shoal Hill Tavern Website Contact Form" recipient = "dave@shoalhilltavern.co.uk" checkbox = Request.Form("checkbox") body = Request.Form("forename") & Request.Form("surname") & Request.Form("telephone") & Request.Form("address") & Request.Form("birthday")& Request.Form("postcode") & Request.Form("checkbox") strReferer = request.servervariables("HTTP_REFERER") strServer = Replace(request.servervariables("SERVER_NAME"),"www.shoalhilltavern.co.uk","") strSMTPServer = "smtp." & strServer ' check referer intComp = inStr(strReferer, strServer) If intComp > 0 Then blnSpam = False Else ' Spam Attempt Block blnSpam = True End If ' Create the JMail message Object set msg = Server.CreateOBject( "JMail.Message" ) ' Set logging to true to ease any potential debugging ' And set silent to true in case you wish to handle the errors yourself msg.Logging = true msg.silent = true ' Enter the sender data msg.From = senderEmail ' Note that as addRecipient is a method and not ' a property, you do not use an equals ( = ) sign msg.AddRecipient recipient ' The subject of the message msg.Subject = subject ' And the body msg.body = body ' Now send the message, using the indicated mailserver If NOT blnSpam Then if not msg.Send(strSMTPServer ) then Response.write "

" & msg.log & "

" else Response.write "Thank you for your application." end if end if ' Clear the object set msg = nothing %>