if Ucase( Request.ServerVariables("REQUEST_METHOD") ) = "POST" then
		Set objNewMail = CreateObject("CDONTS.NewMail")

		OutCr "MAIL FROM: " & Request.Form( "MailFrom" ) & "<br>"
		OutCr "RCPT TO: " & Request.Form( "MailTo" ) & "<br>"
		OutCr "Subject: " & Request.Form( "MailSubject" ) & "<br>"
		OutCr "Body: " & Request.Form( "MailBody" ) & "<br>"

		objNewMail.From = Request.Form( "MailFrom" )
		objNewMail.To = Request.Form( "MailTo" )
		objNewMail.Subject = Request.Form( "MailSubject" )
		objNewMail.Body = Request.Form( "MailBody" )

		objNewMail.Send

		Set objNewMail = Nothing
	end if