% If (Request.QueryString("action") = "news") Then Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.calinet.co.uk" JMail.Sender = "this-is-business@calinet.co.uk" JMail.Subject = "Mailing List Registration" JMail.AddRecipient "stacey@balbirnie.co.uk" Jmail.AppendText("Hello!" & vbcrlf & vbcrlf) Jmail.AppendText("A Mailing List registration was requested on Balbirnie House" & vbcrlf) Jmail.AppendText("Below are the details" & vbcrlf & vbcrlf) Jmail.AppendText("-------------------------------" & vbcrlf & vbcrlf) Jmail.AppendText("Name: " & Request.Form("name") & vbcrlf & vbcrlf) Jmail.AppendText("Contact Email: " & Request.Form("email")& vbcrlf & vbcrlf) Jmail.AppendText("Lesiure Breaks: " & Request.Form("leisure_breaks")& vbcrlf & vbcrlf) Jmail.AppendText("Dining: " & Request.Form("dining")& vbcrlf & vbcrlf) Jmail.AppendText("Corporate Events: " & Request.Form("corporate_events")& vbcrlf & vbcrlf) Jmail.AppendText("Spa: " & Request.Form("spa")& vbcrlf & vbcrlf) Jmail.AppendText("Newsletter: " & Request.Form("newsletter")& vbcrlf & vbcrlf) Jmail.AppendText("Festive Breaks: " & Request.Form("festive_breaks")& vbcrlf & vbcrlf) Jmail.AppendText("-------------------------------" & vbcrlf & vbcrlf) Jmail.AppendText("Best Regards." & vbcrlf) Jmail.AppendText("The Calinet Staff." & vbcrlf & vbcrlf) Jmail.execute End If %>
<% if Request.QueryString("action") = "news" Then response.write "
Balbirnie House is a quite unique multi-award winning country house hotel which combines understated luxury with superb service and outstanding value. Widely acknowledged as one of the finest of the privately owned small luxury hotels in Scotland, Balbirnie offers a wonderful experience, whatever the occasion of your visit.
Fine food, lovely surroundings and above all a real sense of friendly Scottish hospitality combine to create quite a unique setting for today’s house guests to enjoy.