<% 'email sent to US Send_Email_To = "carey@profam.org" Send_Email_cc = "larry@profam.org" Send_Email_bcc = "calolson@profam.org" 'Send_Email_To = "sam@profam.org" 'Send_Email_cc = "susie@profam.org" 'Send_Email_bcc = "jane@profam.org" Email_Subject = "Download Family Manifesto" 'email sent to THEM Send_Email_FROM = "secretariat@worldcongress.org" Email_Subject2 = "Family Manifesto Download Verification" manifesto_url = "http://www.profam.org/pub/fia/fia_1903.asp" '============================================ session("sessionthc")="" if request.form("doform") then theyear = RIGHT(YEAR(date()),2) themonth = MONTH(date()) if len(themonth) = 1 then themonth = "0" & themonth theday = DAY(date()) if len(theday) = 1 then theday = "0" & theday thedate = theyear & "-" & themonth & "-" & theday str = thedate &"," & Request.form("organization") &","& Request.form("title") &","& Request.form("firstname") &","& Request.form("lastname") &","& Request.form("emailaddress") &","& Request.form("phone") &","& Request.form("address1") &","& Request.form("address2") &","& Request.form("city") &","& Request.form("state") &","& Request.form("zip") &","& Request.form("country") str = Replace(str,chr(10),"",1,-1) str = Replace(str,chr(13)," ",1,-1) Dim objCDO dim msg Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = Send_Email_To objCDO.cc = Send_Email_cc objCDO.bcc = Send_Email_bcc objCDO.From = "download@profam.org" objCDO.Subject = Email_Subject fuo = Request.form("checkboxFUO") if fuo = "" then fuo = "no" fia = Request.form("checkboxFIA") if fia = "" then fia = "no" msg = msg & chr(13) & "Family Update Sub: " & fuo msg = msg & chr(13) & "FIA Sub: " & fia msg = msg & chr(13) & "Organization: " & Request.form("organization") msg = msg & chr(13) & "Title: " & Request.form("title") msg = msg & chr(13) & "First Name: " & Request.form("firstname") msg = msg & chr(13) & "Last Name: " & Request.form("lastname") msg = msg & chr(13) & "E-Mail Address: " & Request.form("emailaddress") msg = msg & chr(13) & "Phone #: " & Request.form("phone") msg = msg & chr(13) & "Address 1: " & Request.form("address1") msg = msg & chr(13) & "Address 2: " & Request.form("address2") msg = msg & chr(13) & "City: " & Request.form("city") msg = msg & chr(13) & "State / Province: " & Request.form("state") msg = msg & chr(13) & "Postal Code: " & Request.form("zip") msg = msg & chr(13) & "Country: " & Request.form("country") msg = msg & chr(13) & "" msg = msg & chr(13) & "=============================================" msg = msg & chr(13) & "" msg = msg & chr(13) & "Comma Separated Value:" msg = msg & chr(13) & "" msg = msg & chr(13) & "Date,Organization,Title,First Name,Last Name,Email Address,Phone,Address 1,Address 2,City,State,Zip,Country" msg = msg & chr(13) & str objCDO.bodyformat = 1 '0 = html, 1 = text objCDO.mailformat = 0 '0 = mime, 1 = text objCDO.Body = msg objCDO.Send Set objCDO = Nothing Dim objCDO2 msg="" Set objCDO2 = Server.CreateObject("CDONTS.NewMail") objCDO2.To = request.form("EmailAddress") objCDO2.From = Send_Email_From objCDO2.Subject = Email_Subject2 msg = "Thank you for registering to download the Family Manifesto" msg = msg & chr(13) & "To view the manifesto, please visit:" msg = msg & chr(13) & chr(13) & manifesto_url & "?cde=" & request.form("EmailAddress") objCDO2.Body = msg objCDO2.bodyformat = 1 '0 = html, 1 = text objCDO2.mailformat = 0 '0 = mime, 1 = text objCDO2.Send Set objCDO2 = Nothing if fuo = "yes" then Dim objCDO3 msg="" Set objCDO3 = Server.CreateObject("CDONTS.NewMail") objCDO3.To = "join-wcfupdate@lyris.dundee.net,cal@profam.org" objCDO3.From = Request.form("firstname") & " " & Request.form("lastname") & " <" & Request.form("emailaddress") &">" 'objCDO3.Subject = Email_Subject2 'msg = "Thank you for registering to view the Family Manifesto" 'msg = msg & chr(13) & "To view the manifest, please visit:" 'msg = msg & chr(13) & manifesto_url & "?cde=" & request.form("EmailAddress") 'objCDO3.Body = msg objCDO3.bodyformat = 1 '0 = html, 1 = text objCDO3.mailformat = 0 '0 = mime, 1 = text objCDO3.Send Set objCDO3 = Nothing end if 'session("sessionthc")="true" Response.Cookies("cookiethc3") = Request.form("emailaddress") Response.Cookies("cookiethc3").Path ="/" Response.Cookies("cookiethc3").Expires = "April 13, 2037" Response.Clear 'response.redirect "manifesto.asp" end if %> :::THC-WCF:::

 
 

 The Natural Family: A Manifesto 
 

<%if request.form("doform") = "" then %>To read, study or download (.pdf format) The Family Manifesto please fill out form below. ( * = Required Entry)

Organization:  * Address 1:   
* Title: Address 2: 
* First Name:    Middle Initial: * City:   
* Last Name:  * State / Province:  
* E-mail Address: * Postal Code: 
Phone #:   Country:
 

Yes -Subscribe to FREE Weekly Email newsletter, Family Update Online

Yes -FREE 6-Month hard copy subscription to Family In America
         
         
 

[note: browser "cookies" MUST be turned on to view / download MANIFESTO]
<%else%>

Thank you <%=Request.form("firstname")%> <%=Request.form("lastname")%>.

An email has been sent to <%=Request.form("emailaddress")%> with a link to a page where you can
read, study, or download The Family Manifesto (.pdf format).

[note: browser "cookies" MUST be turned on]

Click here to Go Back

<%end if%>

 

 

 
 

Copyright © 1997-2011 The Howard Center: Permission granted for unlimited use. Credit required. | contact: webmaster