<%
DIM ok
ok=""
if request("Submit")="Send" then
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "website@bryco-in-europe.com"
MyCDONTSMail.To= "philomena@bryco-in-europe.com"
MyCDONTSMail.Subject="Web Site Message from : " & request("from")
MyCDONTSMail.BodyFormat=0
MyCDONTSMail.MailFormat=0
MyCDONTSMail.Body=HTML
MyBody = "Message from " & request("name") & " (" & request("email") & ") " & request("message")
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
ok="Thank you, your message has been sent"
end if%>