<%
form_goster=1
function email_gonder(alici,icerik,baslik)
Set myMail=CreateObject("CDO.Message")
myMail.Subject=baslik
myMail.From="admin@cinfikir.com"
myMail.To="aysenur.ketenci@gmail.com"
myMail.HtmlBody=icerik
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.yandex.ru"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="admin@cinfikir.com"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="Yener_654"
myMail.Configuration.Fields.Update
sonuc=False
On Error Resume Next
myMail.Send
If Err.Number<>0 Then
SendEmail=Err.Description
sonuc=Err.Description
Err.Clear
else
sonuc=true
End If
On Error Goto 0
set myMail=nothing
email_gonder=sonuc
end function
if isnumeric(request.querystring("gonder")) then
if request.querystring("gonder")=1 and request.form("send")=2 then
GONDEREN_ADI=request.form("ad")
GONDEREN_EMAIL=request.form("mail")
ALICI="aysenur.ketenci@gmail.com"
MESAJ=request.form("mesaj")
ICERIK="Ad Soyad : "&GONDEREN_ADI&" "
ICERIK=ICERIK&"E-mail Adresi : "&GONDEREN_EMAIL&" "
ICERIK=ICERIK&"Mesajı: "
ICERIK=ICERIK&MESAJ
BASLIK="AysenurKoray.com Yorum"
ICERIK=replace(ICERIK,chr(13)," ")
sonuc=email_gonder(ALICI,ICERIK,BASLIK)
if sonuc= True then
uyari="Mesajınız başarı ile gönderildi."
form_goster=0
else
uyari="Mesajınızın gönderimi sırasında aşağıdaki hata oluştu: "&sonuc
form_goster=0
end if
else
form_goster=1
end if
else
form_goster=1
end if
%>
Bu mutlu günümüzde bizleri yalnız bırakmayan tüm sevenlerimize ve emeği geçen herkese çok teşekkür ederiz... Evliliğin püf noktalarını bizimle paylaşmak istemez misiniz?