<%
public sub sendmail(emailfrom, emailto, emailsubject, emailbody,strPriority)
dim oMail
Set oMail = Server.CreateObject("CDONTS.NewMail")
with oMail
.MailFormat = 0
.From = emailfrom
.To = emailto
.Subject = emailsubject
.Body = emailbody
.BodyFormat = 0
.Importance = strPriority
.Send
end with
set oMail = nothing
end sub
%>