<%
' change To address of your own SMTP server
strHost = "mail.aso.com.tr" 'Burayı Kendi Hostunuza Göre Değiştiriniz.
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
%>
CD Spider Mail Form
<% If strErr <> "" Then %>
Error!: Please try again later...
<% = strErr %>
<% End If %>
<% If bSuccess Then %>
Your message has been submitted successfully.
Thanks.
<% End If %>