function sendMail(emailTo, emailFrom, subject, message)
on error resume next
dim obj
set obj = server.createObject("CDONTS.NewMail")
obj.from = emailFrom
obj.to = emailTo
obj.subject = subject
obj.body = message
'obj.cc = "user@domain.com;user@domain.com"
'obj.bcc = "user@domain.com;user@domain.com"
'obj.importance = 1 '(0=Low, 1=Normal, 2=High)
'obj.attachFile "c:\path\filename.txt", "filename.txt"
obj.bodyFormat = 0
obj.mailFormat = 0
obj.send
if err.number <> 0 then
sendMail = err.description
else
sendMail = true
end if
set obj = nothing
end function
temp = sendMail("my@email.com" , request.form("emailFrom") , request.form("subject") , message)
if temp = true then
status_msg = "<p class=""success"">Thank you, your request has been submitted</p>"
else
status_msg = "<p class=""error"">I'm sorry, but there was an error with your request.<br />"& temp &"</p>"
end if