Nationwide

<% 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 %> Nationwide

<% '

<% if Request("EMAIL")<>"Y" then %> <% else %>

This webpage will be sent to the below email address:
Email Address

This webpage has been sent to the following email address: <%=Request.Form("EMAILADDRESS")%>

	<% end if %>