- خرید بلیط هواپیما
- ممبر واقعی تلگرام
- معماری ایرانی اسلامی
- خرید آی پی ثابت پر سرعت
- تعمیر صندلی
- خرید آی پی ثابت
- ایزی وی پی اس ezivps.com
- کلینیک روانشناسی آوان
- کارت ویزیت لایه باز
- خرید فالوور اینستاگرام
- بلیط هواپیما استانبول
- مهاجرت به آلمان
- خرید گیفت کارت اپل
- آژانس پاسخ
- سررسید 1404
- خرید آی پی ثابت
- پلتفرم رپورتاژ تسمینو
- تجهیزات هوشمند سازی گیلسا
- لوازم یدکی مزدا
- خرید هاست ماهان سرور
- گروه صنعتی اسکندری
يه سوال كه جوابش رو نمي دونم!
- شروع کننده موضوع vapid
- تاریخ شروع
razavizadeh
Member
کد:
<%
' change to address of your own SMTP server
strHost = "Your smtp"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional
Mail.AddAddress Request("To")
' message subject
Mail.Subject = Request("Subject")
' message body
Mail.Body = Request("Body")
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<% If strErr <> "" Then %>
<h3>Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Success! Message sent to <% = Request("To") %>.
<% End If %>
<FORM METHOD="POST" ACTION="sendmail.asp">
<INPUT TYPE="hidden" NAME="To" value="Your email address">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
<TD>Host (change as necessary in script):</TD>
<TD><B><% = strHost %></B></TD>
</TR>
<TR>
<TD>From (enter sender's address):</TD>
<TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
<TD>FromName (optional, enter sender's name):</TD>
<TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
<TD>Subject:</TD>
<TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR>
<TR>
<TD>Body:</TD>
<TD><TEXTAREA NAME="Body"></TEXTAREA></TD>
</TR>
<TR>
<TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Send Message">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
آخرین مطالب مجیدآنلاین
-
-
-
-
-
-
-
-
-
-
جدیدترین ارسال ها
-
-
-
-
با انتخاب درست سیمان، پروژهتان را در نصف زمان به پایان برسانید- آخرین: saminbanooooooooo
-
-
-
-
-
-
