<% Else %> <% Set SmtpRus = Server.CreateObject("smtprus.smtprus.1") SmtpRus.Host = "fmail.domen.ru" 'SmtpRus.Host = Request.Form("host") ' Печать моя 'Response.Write Request.Form("host") 'SmtpRus.Port = "25" SmtpRus.From = Request.Form("from") SmtpRus.To = "info@danlen.ru" SmtpRus.Cc = "info@danlen.ru" 'SmtpRus.Bcc = Request.Form("bcc") 'SmtpRus.Charset = Request.Form("charset") 'SmtpRus.AdditionalHeader = Request.Form("additionalheader") SmtpRus.Subject = Request.Form("subject") 'SmtpRus.Body = Request.Form("body") SmtpRus.Body = "Письмо поступило с Вашего сайта" & vbNewLine & "Автор письма:" & " " & Request.Form("fio") & vbNewLine & "Организация:" & " " & Request.Form("org") & vbNewLine & "e-mail:" & " " & Request.Form("from") & vbNewLine & "Телефон:" & " " & Request.Form("tel") & vbNewLine & "Факс:" & " " & Request.Form("fax") & vbNewLine & "Текст письма:" & " " & Request.Form("body") 'SmtpRus.Attach = Request.Form("attach") SmtpRus.SendLetter If SmtpRus.ErrorCode = 0 Then %>

Письмо успешно отправлено