<% Response.Expires = -1 Response.buffer = true If Request.Form <> "" Then email = Request.Form("email") Body=Body+"email: " & email & vbcrlf Subject = "Remove 2012" ToAddress = "info@one-marketplace.com" 'ToAddress = "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") = 2 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "forms@one-marketplace.com" MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "forms123forms" MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 MyMail.Configuration.Fields.Update '==End remote SMTP server configuration section== myMail.From=FromAddress myMail.ReplyTo=email myMail.To= ToAddress myMail.Subject=Subject myMail.textBody=Body myMail.Send Response.Redirect"removesent1.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%>