% 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 = "Mailing List Registration" JMail.AddRecipient "join@scotland-edinburgh.co.uk" Jmail.AppendText("Hello!" & vbcrlf & vbcrlf) Jmail.AppendText("A Mailing List registration was requested on Scotland Edinburgh" & vbcrlf) Jmail.AppendText("Below are the details" & vbcrlf & vbcrlf) Jmail.AppendText("-------------------------------" & vbcrlf & vbcrlf) Jmail.AppendText("Name: " & Request.Form("name") & vbcrlf) Jmail.AppendText("Contact Email: " & Request.Form("email")& vbcrlf & vbcrlf) Jmail.AppendText("-------------------------------" & vbcrlf & vbcrlf) Jmail.AppendText("Best Regards." & vbcrlf) Jmail.AppendText("The Calinet Staff." & vbcrlf & vbcrlf) Jmail.send "outgoing.calinet.co.uk" End If %>
