<% If Request.Form("submit") = "" Then %> e-Newsletter

e-Newsletter Sign Up

Email Address:

All email addresses and/or contact information is kept confidential for your privacy.
<% Else %> <% sCRLF = CHR(13) & CHR(10) Dim myCDONTSMail, strFrom, strTo, strSubject, strBody Set myCDONTSMail = CreateObject("CDONTS.NewMail") strFrom = "agrant@chicagoappleseed.org" strTo = "agrant@chicagoappleseed.org" If strFrom = "" Then strFrom = "ccl@chicagocouncil.org" strSubject = "e-Newsletter Sign Up Request - ChicagoCouncil.org" strBody = "Please add " & Request.Form("email") & " to the e-Newsletter mailing list" & sCRLF & sCRLF myCDONTSMail.send strFrom,strTo,strSubject,strBody,1 %>

e-Newsletter Sign Up

Thanks for joining our e-Newsletter mailing list!

Click here to return to the e-Newsletter archive.

 

 

 

 

 
<% End if %>