<% '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 = "Endorse Family Manifesto" 'email sent to THEM Send_Email_FROM = "secretariat@worldcongress.org" Email_Subject2 = "Thank you for your endorsement of The Natural Family: A Manifesto" 'I endorse The Natural Family: A Manifesto 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") &","& Request.form("txtmessage") 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 = "endorse@profam.org" 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) & "" 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) & "Date,Organization,Title,First Name,Last Name,Email Address,Phone,Address 1,Address 2,City,State,Zip,Country,Endoresement" 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 '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:::

 
 

 Endorse The Natural Family: A 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

Enter your endorsement:

<%else%>

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

Thank you for your endorsement.

Click here to Go Back

<%end if%>

 

 

 
 

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