% 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 = "Autumn Gold Mailing List Request"
JMail.AddRecipient "autumn@destinationscotland.com"
Jmail.AppendText("Hello!" & vbcrlf & vbcrlf)
Jmail.AppendText("Please add me to the Autumn Gold Mailing List" & vbcrlf)
Jmail.AppendText("Below are the details" & vbcrlf & vbcrlf)
Jmail.AppendText("-------------------------------" & vbcrlf & vbcrlf)
Jmail.AppendText("Name: " & Request.Form("name") & vbcrlf)
Jmail.AppendText("Email: " & Request.Form("email") & vbcrlf)
Jmail.AppendText("Please also add me to your seasonal mailing list for: " & Request.Form("otheroffers") & vbcrlf)
Jmail.AppendText("-------------------------------" & vbcrlf & vbcrlf)
Jmail.AppendText("Best Regards." & vbcrlf)
Jmail.AppendText("Autumn Gold." & vbcrlf & vbcrlf)
Jmail.send "outgoing.calinet.co.uk"
End If
%>
Autumn gold breaks Scotland