% IF Request.Form("send")=("yes") THEN a=1 END IF SUB posta Set objMailer = CreateObject("CDONTS.Newmail") objMailer.From = Request.Form("email") objMailer.To = ("f_kuttner@hotmail.com") objMailer.Subject = Request.Form("smokah.com") objMailer.Body = Request.Form("message") objMailer.Send Set objMailer = Nothing END SUB %>
<%END IF%>