<% If (Request.QueryString("action") = "news") Then Set JMail = Server.CreateObject("JMail.Message") JMail.MailServerUserName = "this-is-business@calinet.co.uk" JMail.MailServerPassword = "sender5600" JMail.From = "this-is-business@calinet.co.uk" JMail.Subject = "DestinationScotland Mailing List Request" JMail.AddRecipient "marketing@destinationscotland.com" Jmail.AppendText("Hello!" & vbcrlf & vbcrlf) Jmail.AppendText("A Mailing List request was requested on DS Website" & vbcrlf) Jmail.AppendText("Below are the details" & vbcrlf & vbcrlf) Jmail.AppendText("-------------------------------" & vbcrlf & vbcrlf) Jmail.AppendText("Contact Email: " & Request.Form("emailaddress")& vbcrlf & vbcrlf) Jmail.AppendText("-------------------------------" & vbcrlf & vbcrlf) Jmail.AppendText("Best Regards." & vbcrlf) Jmail.AppendText("The Muppet Show." & vbcrlf & vbcrlf) Jmail.send "outgoing.calinet.co.uk" End If %> Edinburgh Boutique Hotels, Boutique Hotels Scotland, Glasgow Luxury Hotels

Edinburgh Boutique Hotels