sub sendmail( fromWho, toWho, Subject, Body )
? dim mymail
? setmymail = Server.CreateObject("CDONTS.Newmail")
? mymail.From = fromWho
? mymail.To = toWho
? mymail.Subject = Subject
? mymail.Body = Body
? mymail.Send
? set mymail = Nothing
end sub
? dim mymail
? setmymail = Server.CreateObject("CDONTS.Newmail")
? mymail.From = fromWho
? mymail.To = toWho
? mymail.Subject = Subject
? mymail.Body = Body
? mymail.Send
? set mymail = Nothing
end sub