Contact Us
<% response.buffer=true %><% '************************************************ '** Submit and process the feedback form '** last modified 09/10/04 by Roy Preece '************************************************ If Request.Form("submitemail") = "Submit" Then adminemail = "roy.preece@symbionohealth.com" Consumer_Products = "SymbionConsumer.Reception@symbionhealth.com" Diagnostic_Imaging = "Jacqui.young@symbionhealth.com" Investor_Relations = "lisa.connor@symbionhealth.com" Medicentres = "medicalcentres.centraladmin@symbionhealth.com" Pathology = "domenic.persano@symbionhealth.com" Pharma_Manufacturing = "gail.brown@au.maynepharma.com" Pharma_Research_Deveplopment = "joan.santos@au.maynepharma.com" Pharma_Sales_Asia = "grace.lim@sg.maynepharma.com" Pharma_Sales_Australia_New_Zealand = "marie.desilva@au.maynepharma.com" Pharma_Sales_Canada = "helen.murphy@ca.maynepharma.com" Pharma_Sales_Europe = "corinne.fitzgerald@uk.maynepharma.com" Pharma_Sales_Middle_East_Africa = "caroline.mendonca@ae.maynepharma.com" Pharma_Sales_USA = "paul.irving@us.maynepharma.com" Pharmacy_services = "rebecca.wilson@symbionhealth.com" If request.form("topic") = "14" then recipient = Consumer_Products End if If request.form("topic") = "5" then recipient = Diagnostic_Imaging End if If request.form("topic") = "23" then recipient = Investor_Relations End if If request.form("topic") = "7" then recipient = Medicentres End if If request.form("topic") = "6" then recipient = Pathology End if If request.form("topic") = "21" then recipient = Pharma_Manufacturing End if If request.form("topic") = "22" then recipient = Pharma_Research_Deveplopment End if If request.form("topic") = "20" then recipient = Pharma_Sales_Asia End if If request.form("topic") = "19" then recipient = Pharma_Sales_Australia_New_Zealand End if If request.form("topic") = "18" then recipient = Pharma_Sales_Canada End if If request.form("topic") = "15" then recipient = Pharma_Sales_Europe End if If request.form("topic") = "16" then recipient = Pharma_Sales_Middle_East_Africa End if If request.form("topic") = "17" then recipient = Pharma_Sales_USA End if If request.form("topic") = "12" then recipient = Pharmacy_services End if msg = "This email was sent from the www.symbionhealth.com web site contact form." & vbCrLf& vbCrLf msg = msg & "To:" & recipient & vbCrLf msg = msg & "Subject: Symbion Health web site contact form" & vbCrLf & vbCrLf msg = msg & "------------------------------------" & vbCrLf & vbCrLf if recipient = adminemail then msg = msg & "No area selected for email to go to" & vbCrLf End if msg = msg & "Topic selected: " & request.form("topic") & vbCrLf msg = msg & "From: " & request.form("name") & vbCrLf msg = msg & "Email: " & request.form("senderemail") & vbCrLf msg = msg & "Phone Number: " & request.form("phone") & vbCrLf msg = msg & "Comments: " & request.form("comments") Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="127.0.0.1" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Update ObjSendMail.To = recipient ObjSendMail.Subject = "Symbion Health web site contact form" 'ObjSendMail.From = Request.Form("name") & " <" & Request.Form("senderemail") & ">" ObjSendMail.From = "webform@symbionhealth.com" ObjSendMail.TextBody = msg ObjSendMail.Send Set ObjSendMail = Nothing %>
Thankyou, your message was sent successfully.
<% Else %>