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.
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%>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 %>