<%@ Language=VBScript %>
<%
sub sendMail(fromWho,toWho,Subject,Body)
dim myMail
set myMail= Server.CreateObject ("CDONTS.Newmail")
myMail.From = fromWho
myMail.To = toWho
myMail.Subject = Subject
myMail.Body = Body
myMail.Send
set myMail = nothing
end sub