<%
'	Call email("From","To","Subject","body")
		Dim myMail
	Sub email(emv1,emv2,emv3,emv4)
		SET myMail = Server.CreateObject ("CDONTS.Newmail")
			myMail.MailFormat = 0
			myMail.BodyFormat = 0
			myMail.From = emv1
			myMail.To = emv2
			myMail.Subject = emv3
			myMail.Body = emv4
			myMail.Send
		SET myMail = NOTHING
	End Sub
%>