<%
if request("submit") <> "" then
typeofform = "Website - Referral Request"
bodyofform = "Web site request for referral has been submitted. Please see fields below:
"
For ix = 1 to Request.Form.Count
if Request.Form.Key(ix) <> "submit" and Request.Form.Key(ix) <> "info_type" then
bodyofform = bodyofform & Request.Form.Key(ix) & " = " & Request.Form.Item(ix) & " "
end if
'response.write Request.Form.Item(ix) & " "
Next
'=====Send Email to Contact=========
Set objMail = Server.CreateObject("CDONTS.NewMail")
' from must be an email address
objMail.From = "info@olmcancercenter.org"
objMail.Subject = typeofform
' you need TO add these lines FOR the mail
' to be sent in HTML format
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.To = "rclarke@gpclarke.com, gwagener@gpclarke.com, rkirkwood@creatinggenius.com"
objMail.Body = bodyofform
objMail.Send
set objMail = Nothing
end if
%>
Our Lady of Mercy Medical Center Comprehensive Cancer Center
