<%
  'Пример отправки E-Mail средствами ASP
  'Автор примера: Немиро Алексей <admin@kbyte.ru>
  'Copyright (c) Nemiro AS, 2006
  'Copyright (c) Kbyte.Ru, 2006 <http://kbyte.ru>
  Set mailMessage = Server.CreateObject("CDO.Message")
  If Not mailMessage Is Nothing Then
    mailMessage.From = "от@кого.письмо"
    mailMessage.To = "кому@письмо.ру"
    mailMessage.Subject = "Тема сообщения"
    mailMessage.HTMLBody = "Текст сообщения! <br /> Можно использовать <b>тэги</b>!"
    mailMessage.Send
Response.Write("Сообщение успешно отправлено!")
  Else
   Response.Write("Не удалось отправить сообщение :(")
  End If
  Set mailMessage = Nothing
%>