Статьи о почте

Новости

Все новости

Разное в мире IT

Все заметки

mailinfo.ru - Статьи о почте

Форма отправки сообщений на ASP

Прислал(а) Андрей Латышев [11 января 2002]

раздел: [Исходники]


<%

    \' Получаем названия и значения полей из отправленной формы

    For Each x In Request.Form strElement= Request.Form(x)
        if strElement<>"" then
            strEmailMessage=strEmailMessage & x & ": " & strElement & vbcrlf
        end if
    Next

    if strEmailMessage<>"" then

        \' Добавляем заголовок
        strEmailMessage="Developer Web form: " & vbcrlf & string(30,"-") & vbcrlf & strEmailMessage

        \' Добавляем подпись
        strEmailMessage = strEmailMessage & string(30,"-")& vbcrlf
        strEmailMessage = strEmailMessage & "IP: "
        strEmailMessage = strEmailMessage & Request.ServerVariables("REMOTE_ADDR")
        strEmailMessage = strEmailMessage & " Data: " & Now()

        \' Отправляем сообщение
        \' Создаем ActiveX объект для отправки SMTP (Jmail)
        set JMail = Server.CreateObject("JMail.SMTPMail")

        \' Задаем параметры отправки почты
        JMail.ServerAddress = "mail.some-server.ru"
        JMail.Sender = "sendermail@server.ru"
        JMail.SenderName = "Web User"
        JMail.Charset = strApplCharset
        JMail.Subject = "Web form"
        JMail.AddRecipient("reader@readers.ru")
        JMail.Body = strEmailMessage
        JMail.Priority = 3

        on error resume next
        JMail.Execute
        if err then
            response.Write err.Description
        else
            Response.write " <P><B>Спасибо!</B>"
            Response.write " </P><P>Ваше сообщение было успешно отправлено.</P>"
        end if

        JMail.Close()
        set JMail=Nothing
    else
        Response.write "<P>Пустая форма!</P>"
    end if

%>