CONTACT US
<% if request.form("sendInfo") = "" then %>
To learn more about Remaking American Medicine. Health Care
for the 21st Century, or to find out how you can participate in the national
outreach campaign, please send an email to our Webmaster. We'll
respond within one business day.
Contact Information:
Barbara Lohman, Senior Vice President: Overall responsibility for campaign management, National Partner recruitment and relationships, QIO support. Available for presentations. (951) 340-0010, blohman1@aol.com
Lee Allen, Project Director: Day to day responsibility for the campaign. Serves as official liaison with Partners, QIOs and PBS stations. Manages PBS Incentive Grants Program. Available for presentations. 202-855-5544 ext. 459, lallen@devillier.com
Laura Warkentin, Project Manager: Responds to all requests for promotional materials such as written materials, series video clips and artwork. Provides overall support to QIOs/ National Partners Program and Web site. (202) 855-5544 ext. 458, lwarkentin@devillier.com
Allan Childers, Webmaster: Manages Remaking American Medicine campaign Web site. (202) 855-5544 ext. 460, achilders@devillier.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 %>
