<% Response.Expires = -1 Response.buffer = true If Request.Form <> "" Then email = Request.Form("email") Body=Body+"email: " & email & vbcrlf Subject = "remove" ToAddress = "hughes-unsubscribe@one-marketplace.com,hughesrealty@one-marketplace.com" 'ToAddress = "hughes-unsubscribe@one-marketplace.com,hughesrealty@one-marketplace.com" FromAddress = Email Dim myMail Set myMail=Server.CreateObject("CDO.Message") myMail.From=FromAddress myMail.To= ToAddress myMail.Subject=Subject myMail.textBody=Body myMail.Send Response.Redirect"removesenth.asp" Set mail = Nothing sendMail = True End If %>


Sorry to see you leave our mailing list.

To be removed from future mailings on behalf of Tom Hughes
please enter your email address in the form below

 (please make sure to enter the email address that this communication was sent to
and not the address to which it may have been forwarded to - you will not come off the list unless you enter the email address that this communication was emailed to)
 
<%If sendMail Then%> <%Else%>

E-mail:

 

<%End If%>