|
ANA MENÜ
|
|
TAVSİYE ET |
<%
' Kendi SMTP Serverınızı yazın
strHost = "mail.zodyak.net"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = Request("From") ' Gönderen Maili
Mail.FromName = Request("FromName") ' Gönderen Adı, (Opsiyonel) Kullanmayabilirsiniz
Mail.AddAddress Request("To") 'Alıcı Maili
' Mesaj Konusu
Mail.Subject = "Ekimdusu Tavsiye" ' Request("Subject")
' Mesaj içeriği. açıklama içeriğini istediğiniz gibi değiştirin. Kodlara karışmayın.
aciklama = aciklama &" "& chr(10)
aciklama = aciklama &"Merhaba ben "&request.form("FromName") &"," & chr(10)
aciklama=aciklama &" "& chr(10)
aciklama=aciklama &"Bu siteyi çok beğendim ve seninde görmeni istedim."& chr(10)
aciklama=aciklama &" "& chr(10)
aciklama=aciklama &" Sitede Türkiyedeki ve Dünyadaki bütün gazetelere ulaşabiliyorsun"& chr(10)
aciklama=aciklama &" "& chr(10)
aciklama=aciklama &"Bu siteyi mutlaka görmeni öneririm."& chr(10)
aciklama=aciklama &" "& chr(10)
aciklama=aciklama &"http://www.gasteoku.com"& chr(10)
Mail.Body = aciklama
strErr = ""
bSuccess = False
On Error Resume Next ' Hata mesajları aktif durumda. Bir hata olduğu taktirde Serverda belirlenen hata numarası ve karşılığı çıkacaktır. Bu mesajlar genellikle ingilizcedir.
Mail.Send ' Mesajı gönderiyoruz
If Err <> 0 Then
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
<% If strErr <> "" Then %>
Hata Mesajı: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Tavsiye mesajınız
gönderilmiştir.
<% = Request("To") %>
Gösterdiğiniz ilgiden dolayı teşekkür ederiz.
<% End If %>
|
|
