<% 'email sent to US Send_Email_To = "carol@profam.org" Send_Email_cc = "larry@profam.org" Send_Email_bcc = "calolson@profam.org" 'Send_Email_To = "joe@kallsmart.com" 'Send_Email_cc = "susie@profam.org" 'Send_Email_bcc = "jane@profam.org" Email_Subject = "Download Family Manifesto" 'email sent to THEM Send_Email_FROM = "Family Manifesto " Email_Subject2 = "Family Manifesto Download Verification" manifesto_url = "http://www.familymanifesto.net/fm/manifesto.asp" '============================================ session("sessionthc")="" if request.form("doform") then 'on error resume next pth = Server.MapPath("../fpdb/log.csv") set fso = Server.CreateObject("Scripting.FileSystemObject") exists = fso.fileexists(pth) set fle = fso.OpenTextFile(pth, 8, True) if exists=false then fle.writeline("Type,Date,Organization,Title,First Name,Last Name,Email Address,Phone,Address 1,Address 2,City,State,Zip,Country,Source,Endorsement,Publish,Subscribe To Family Update,Subscribe To FIA") thedate = now() str = "download," & 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") & "," & request.form("source") & "," & request.form("txtmessage") & "," & request.form("publish")& "," & request.form("checkboxFUO")& "," & request.form("checkboxFIA") str = Replace(str,chr(10),"",1,-1) str = Replace(str,chr(13)," ",1,-1) fle.writeline(str) fle.close set flo = nothing set fso = nothing 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 = "admin@familymanifesto.net" objCDO.from = Send_Email_FROM 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) & "Source: " & Request.form("source") 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) & "Type,Date,Organization,Title,First Name,Last Name,Email Address,Phone,Address 1,Address 2,City,State,Zip,Country,Source,Endorsement,Publish,Subscribe To Family Update,Subscribe To FIA" 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.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 %> Read It - The Natural Family: A Manifesto
 
Home Page

Home Page

What is the Manifesto?

Read the Manifesto

[ or Download a Free Copy ]

Endorse the Manifesto

 [ Make a Donation ]

News / Press

Read Endorsements

Who Endorsed It?
 

Read It!    (English, POLISH, Portuguese, Russian)

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

Organization: 
* Title:  
* First Name:   Middle Initial:
* Last Name: 
* E-mail Address:  
Phone #:  
* Address 1:  
Address 2:  
* City:  
* State / Province:  
* Postal Code:  
 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 © 2005-2006   The Natural Family: A Manifesto • The Howard Center • The Sutherland Institute • World Congress of Families