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



Mailing List Subscribe Form


 

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

E-mail:

 

<%End If%>