<%@ Language=VBScript %>
<%
   Dim objMail
   Set objMail = CreateObject("CDONTS.NewMail")
   objMail.From = Request.Form("txtFrom")
   objMail.To= Request.Form("txtTo")
   objMail.Subject= Request.Form("txtSubject")
   objMail.Body= Request.Form("txtBody")
   objMail.Send
   Set objMail = Nothing
   Response.Write "Mail should have been sent"
%>