<% strReferrer = Trim(Request.ServerVariables("HTTP_REFERER")) 'response.write strReferrer strHost = "mail.newdemocracycoalition.org" bInitial = request("strSent") 'response.write bInitial & " - binit
" If Request("Send") <> "" Then strRefer = request("referpage") strBody = "I thought you might find New Democracy Coalition interesting." & vbcrlf strBody = strBody & "You can visit their site at "& strRefer & vbcrlf strBody = strBody & Request("Body") Set oCdoMail = Server.CreateObject("CDO.Message") Set oCdoConf = Server.CreateObject("CDO.Configuration") sConfURL = "http://schemas.microsoft.com/cdo/configuration/" with oCdoConf .Fields.Item(sConfURL & "sendusing") = 2 .Fields.Item(sConfURL & "smtpserver") = "localhost" .Fields.Item(sConfURL & "smtpserverport") = 25 .Fields.Update end with with oCdoMail .From = Request("From") .To = Request("To") .Subject = "From New Democracy Coalition" .TextBody = strBody end with oCdoMail.Configuration = oCdoConf oCdoMail.Send Set oCdoConf = Nothing Set oCdoMail = Nothing End If %> New Democracy Coalition - Send email to a friend
  Contact Us
New Democracy Coalition, making democracy work  
About Us
Support Us
Donate
Membership
Partner
What We Do

We need your support

You can help us continue our workby making a one-off or regular donation
donate here on-line

 

 Register to Vote Join Our Mailing List  

Renew the Voting Rights Act Project:

The Voting Rights Act is said, by many, to be the greatest of the Civil Rights Legislation of the 1960s. You can read more

Send a friend an email

<% if bInitial <> "" then%> <% If strErr <> "" Then %>

An error occurred while sending your message: <% = strErr %>

<% End If %> <% If bSuccess Then %>

Thank you for getting the message out.

<% End If %> <%Else%>

Your Email Address:

Friends Email Address:

Comments:
<%End If%>
 
Email Us e-mail     Print This Print