Privacy PolicySite MapContact UsHome
HomeAbout RAMNational PartnersConnect with OthersResourcesQuality Improvement OrganizationsPress RoomUnderwritersFAQs
ImageMap

Subscribe to Remaking American Medicine's FREE newsletter.

Quick Login

For National Partners and Quality Improvement Organizations (QIOs) access a special section of RAMcampaign.org created just for you. To obtain a User ID and Password click here.

USER ID:

PASSWORD:



<% if request.form("saveInfo") = "" then %>

SUBSCRIBE TO REMAKING AMERICAN MEDICINE NEWSLETTER

Subscribe to the free Newsletter "About Remaking American Medicine." Each month, we'll deliver to your email address the latest news about the public television series, coalition activities taking place around the country, National Partner updates and other campaign highlights. From time to time, we may also send you bulletins alerting you to local events in which you may wish to participate. Just fill in the form below and click the submit button.

First Name:
Last Name:
Email:
Title:
Organization:
Address:
City:
State, Zip:
  
Phone:
- - ext.

NOTE: By submitting this information you agree to allow Crosskeys Media and Devillier Communications, Inc. to send you About Remaking American Medicine, our free Newsletter and occasionally send campaign update bulletins. All submitted information will be treated as confidential. No names or addresses will be given to third parties. As campaign opportunities arise, you agree that Crosskeys Media and Devillier Communications, Inc. may alert you by using the contact information you provide on this form.

<%elseif request.form("saveInfo") = "1" thenSet dbConn = Server.CreateObject("ADODB.Connection")Set rs = Server.CreateObject("ADODB.RecordSet")dbConn.open Application("ConnectionString")SQL = "INSERT INTO tblSubscribe "SQL = SQL & "(firstName, lastName, email, title, organization, address, city, state, zip, phone, ext)"SQL = SQL & " VALUES ("SQL = SQL & "'" & replace(request.form("firstName"),"'","''") & "', "SQL = SQL & "'" & replace(request.form("lastName"),"'","''") & "', "SQL = SQL & "'" & replace(request.form("email"),"'","''") & "', "SQL = SQL & "'" & replace(request.form("title"),"'","''") & "', "SQL = SQL & "'" & replace(request.form("organization"),"'","''") & "', "SQL = SQL & "'" & replace(request.form("address"),"'","''") & "', "SQL = SQL & "'" & replace(request.form("city"),"'","''") & "', "SQL = SQL & "'" & replace(request.form("state"),"'","''") & "', "SQL = SQL & "'" & replace(request.form("zip"),"'","''") & "', "SQL = SQL & "'" & replace(request.form("phone1") & request.form("phone2") & request.form("phone3"),"'","''") & "', "SQL = SQL & "'" & replace(request.form("ext"),"'","''") & "'"SQL = SQL & ")" dbConn.execute(SQL)'Send emailfromAddress = "webmaster@ramcampaign.org"strToAddress = request.form("email")message = "You are now subscribed to the Remaking American Medicine email newsletter. If you need to change your email address or unsubscribe in the future, please send an email to webmaster@ramcampaign.org."strSubject = "RAM Newsletter"on error resume nextSet objMail = CreateObject("CDONTS.NewMail")errNum = err.numberon error goto 0if errNum = 0 then '------------------ 'Use for Windows Server 2000 '------------------ objMail.From = fromAddress objMail.Subject= strSubject objMail.To = strToAddress objMail.Cc ="webmaster@ramcampaign.org" objMail.Body = message objMail.Send set objMail = nothingelse '------------------ 'Use for Windows Server 2003 '------------------ 'Dimension variables Dim objCDOSYSCon 'Create the e-mail server object Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'Set and update fields properties 'Out going SMTP server objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Application("MailServer") 'SMTP port objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'CDO Port objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update 'Update the CDOSYS Configuration Set objCDOSYSMail.Configuration = objCDOSYSCon 'Who the e-mail is from objCDOSYSMail.From = fromAddress 'Who the e-mail is sent to objCDOSYSMail.To = strToAddress objCDOSYSMail.Cc = "webmaster@ramcampaign.org" 'The subject of the e-mail objCDOSYSMail.Subject = strSubject 'Set the e-mail body format (HTMLBody=HTML TextBody=Plain) objCDOSYSMail.TextBody = message 'Send the e-mail objCDOSYSMail.Send 'Close the server mail object Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothingend if%>

SUBSCRIBE TO REMAKING AMERICAN MEDICINE

You are now subscribed to the Remaking American Medicine newsletter. An email has been sent to the address you provided confirming your subscription.

<% end if %>