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