        <%
         Dim myMail
         Dim strFrom
         Dim strTo
         Dim strSubject
         Dim strMessage
         Dim lngImportance

         strFrom=request.form("email")
         strTo="info@ramakdairy.com"
         strSubject = request.form("name")
         strBody = request.form("textfield")      
         Set myMail = CreateObject("CDO.Message")
         myMail.from = strFrom
		 myMail.to = strTo
		 myMail.TextBody = strBody
		 myMail.subject = strSubject
		 myMail.Send


         Set myMail  = Nothing
         response.redirect("sent.htm")
         %>