<%
on error resume next
function SendMail(mailto,subject,msg)

sender=page_email

Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = sender
objMail.Subject = subject
objMail.To = mailto
objMail.Body = msg
objmail.bodyformat=0
objmail.mailformat=0
objMail.Send
set objMail = nothing

end function

%>