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:



CONTACT US

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

If you have any questions about Remaking American Medicine ~ Health Care for the 21st Century or the accompanying outreach campaign please feel free to contact us.

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

 

Contact Information:

Patrick Stevens, Webmaster: Manages Remaking American Medicine campaign Web site. (805) 966-3700 ps@crosskeysmedia.com or webmaster@ramcampaign.org

<%elseif request.form("sendInfo") = "1" then 'Send email fromAddress = "ramcontactform@ramcampaign.org" strToAddress = "webmaster@ramcampaign.org" 'strToAddress = request.form("email") message = "RAM Website Contact Us Form" & vbCRLF & vbCRLF message = message & "Name: " & request.form("firstName") & " " & request.form("lastName") & vbCRLF message = message & "Email: " & request.form("email") & vbCRLF message = message & "Title: " & request.form("title") & vbCRLF message = message & "Organization: " & request.form("organization") & vbCRLF message = message & "Title: " & request.form("title") & vbCRLF message = message & "Address: " & vbCRLF & request.form("address") & vbCRLF & request.form("city") & ", " & request.form("state") & " " & request.form("zip") & vbCRLF message = message & "Phone: " & request.form("phone1") & "-" & request.form("phone2") & "-" & request.form("phone3") & " ext. " & request.form("ext") & vbCRLF message = message & "Comments: " & vbCRLF & request.form("Comments") & vbCRLF strSubject = "RAM Contact Us" on error resume next Set objMail = CreateObject("CDONTS.NewMail") errNum = err.number on error goto 0 if errNum = 0 then '------------------ 'Use for Windows Server 2000 '------------------ objMail.From = fromAddress objMail.Subject= strSubject objMail.To = strToAddress objMail.Body = message objMail.Send set objMail = nothing else '------------------ '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 '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 = Nothing end if %>

Your message has been sent. Thank you.

<% end if %>