<% '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 = "Endorse Family Manifesto" 'email sent to THEM Send_Email_FROM = "Family Manifesto " Email_Subject2 = "Thank you for your endorsement of The Natural Family: A Manifesto" 'I endorse The Natural Family: A Manifesto '============================================ 'session("sessionthc")="" vv= request.form if instr(vv,"http") > 0 or instr(vv,"href") > 0 or instr(vv,"option>") > 0 then spam = 1 'if request.form("doform") then if request.form("doform") and request.form("address1") <> "" and request.form("city") <> "" and spam <> 1 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 = "endorsement," & 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") & "," & Request.ServerVariables("http_user_agent")& "," & Request.ServerVariables("remote_addr") 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 = Send_Email_From objCDO.Subject = Email_Subject 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) & "Publish: " & Request.form("publish") msg = msg & chr(13) & "Source: " & Request.form("source") msg = msg & chr(13) & "" msg = msg & chr(13) & "Endorsement: " msg = msg & chr(13) & "" msg = msg & chr(13) & Request.form("txtmessage") 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 your endorsement of The Natural Family: A Manifesto. We have been gratified by the large and positive response so far received. The press coverage has also been good. We are now working to supplement the Manifesto with a book, explaining in more detail its meaning, its significance, and its grounding in the findings of modern social science. Again, thank you for your encouragement." msg = msg & chr(13) msg = msg & chr(13) & "-Allan C. Carson and Paul T. Mero" objCDO2.Body = msg objCDO2.bodyformat = 1 '0 = html, 1 = text objCDO2.mailformat = 0 '0 = mime, 1 = text objCDO2.Send Set objCDO2 = Nothing end if %> Endorse 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?
 

Endorse The Manifesto

<%if request.form("doform") = "" then %>“To the world, we say:

 

•   

We will build a new culture of marriage, where others would define marriage out of existence.

 

•

We will welcome and celebrate more babies and larger families, where others would continue a war on human fertility.

 

•

We will find ways to bring mothers, fathers, and children back home, where others would further divide parents from their children.
 

•

And we will create true home economies, where others would subject families to the full control of big government and vast corporations.”

   

—From The Natural Family: A Manifesto      

Please fill out form to endorse The Natural Family: A Manifesto  ( * = Required Entry)

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

 

Subject: I endorse The Natural Family: A Manifesto      Yes, It is O.K. to publish my Endorsement!

Enter your endorsement:

 

<%else%>

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

Thank you for your endorsement.

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