<% 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,specials1-unsubscribe@one-marketplace.com,specials2-unsubscribe@one-marketplace.com,specials3-unsubscribe@one-marketplace.com,specials4-unsubscribe@one-marketplace.com,specials5-unsubscribe@one-marketplace.com,info@one-marketplace.com" FromAddress = Email Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Dim myMail Set myMail=Server.CreateObject("CDO.Message") '==This section provides the configuration information for the remote SMTP server. MyMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort 'Name or IP of Remote SMTP Server MyMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM MyMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAnonymous 'Server port (typically 25) MyMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 MyMail.Configuration.Fields.Update '==End remote SMTP server configuration section== myMail.From=FromAddress myMail.To= ToAddress myMail.Subject=Subject myMail.textBody=Body myMail.Send Response.Redirect"removesent.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%>