שליחת נתוני טופס ב-אימייל

הנה ב-ASP


<%if request.form.count <= 0 then%>
    <div dir=rtl>
    <form method=post><br>
    למי <input name=to><br>
    ממי <input name=from><br>
    העתק <input name=cc><br>
    העתק חסוי <input name=bcc><br>
    נושא <input name=subject><br>
    HTML <input type=radio value=HTML name=sendvia><br> Text <input type=radio value=Text name=sendvia checked="checked"><br>
    <textarea cols=30 rows=10 name=M></textarea><br>
    שרת <input name=server value=smtp.012.net.il><br>
    יציאה <input name=port value=25><br>
    קידוד <input name=charset value=windows-1255><br>
    <input type=submit value="שלח"><br>
<%else
    if request.form("to") = "" or request.form("from") = "" or request.form("server") = "" or request.form("port") = "" or request.form("charset") = "" then
         response.redirect("mail.asp")
    end if

    set M = server.createobjecT("cdo.message")
    m.from = request.form("from")
    m.to = request.form("to")
    if request.form("cc") <> "" then m.cc = request.form("cc")
    if request.form("bcc") <> "" then m.bcc = request.form("bcc")
    if request.form("subject") <> "" then m.subject = request.form("subject")
    if request.form("sendvia") = "Text" then m.textbody = request.form("m")
    if request.form("sendvia") = "HTML" then m.HTMLbody = request.form("m")
    m.BodyPart.Charset = request.form("charset")
    M.HTMLBodyPart.charset = request.form("charset")
    M.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver&quot😉 = request.form("server")
    M.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot😉 = "25"
    M.Configuration.Fields.Update
    M.send
    %>
השליחה הושלמה
<%
response.redirect "http://www.united-pc.net&quot;
end if
%>