<%Sub SendMail(strAddressTo, strAddressFrom, strAddressReply, _
	strSubject, strBody)
	Dim oMail
	Set oMail = Server.CreateObject("CDONTS.NewMail")
	oMail.To = strAddressTo
	oMail.From = strAddressFrom
	oMail.Value("Reply-To") = strAddressReply
	oMail.Subject = strSubject
	oMail.Body = strBody
	oMail.Send
	Set oMail = Nothing
	End Sub
	%>