% On Error Resume Next %> <% if Request("EMAIL")="Y" then Dim vEmailContent glbServerAddress="mail.arach.net.au" glbSenderAddress="perth@nationwidetermites.com.au" vEmailContent = "Please check out the Nationwide Termite and Pest Management website" & vbCRLF & vbCRLF vEmailContent = vEmailContent & "http://www.nationwidetermites.com.au" & vbCRLF vEmailContent = vEmailContent & "Thank you" & vbCRLF & vbCRLF vEmailContent = vEmailContent & "Nationwide" & vbCRLF Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = glbServerAddress JMail.SenderName = "Nationwide Termites" JMail.Sender = glbSenderAddress JMail.Subject = "Nationwide Termite Website" JMail.AddRecipient Request.Form("EMAILADDRESS") JMail.Body = vEmailContent JMail.Priority = 3 ' 1, 3 or 5 JMail.Execute end if %>