<% Response.Expires = -1 Response.buffer = true If Request.Form <> "" Then email = Request.Form("email") Body=Body+"email: " & email & vbcrlf Subject = "remove" ToAddress = "specials-unsubscribe@one-marketplace.com,specials6-unsubscribe@one-marketplace.com,info@one-marketplace.com" 'ToAddress = "specials-unsubscribe@one-marketplace.com,specials6-unsubscribe@one-marketplace.com,info@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"removesent6.asp" Set mail = Nothing sendMail = True End If %>


Sorry to see you leave our mailing list.

To be removed from our specials newsletter
please enter your email address in the form below

(please make sure to enter the email address that the newsletter 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 newsletter was emailed to)

 

<%If sendMail Then%> <%Else%>

E-mail:

 

<%End If%>