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 = "
Thank you, your request has been submitted
" else status_msg = "I'm sorry, but there was an error with your request.
"& temp &"