%
'=== Bu sistem aspplus.net tarafından hazırlanmıştır.
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>
INTERNET İLETİŞİM FORMU 2012 | aspplus
<%
If Request("aspplus")="email" and Request("SID")=Session.SessionID and Session("aspplus_send_onay1")=FALSE Then
'=== Server mail gönderme ayarları:======================================================================================
'---Bu alana servera ait e-mail adresinizi giriniz !
web_email_adres="info@ardiclimeydan.com"
'---Bu alana servera ait e-posta kullanıcı adınızı giriniz !
email_kullanici_adi="info@ardiclimeydan.com"
'---Bu alana servera ait e-posta parolanızı giriniz !
email_parola="@War88"
'---Bu alana servera ait mail server adresinizi yada IP adresinizi giriniz !
web_mail_server="smtp.yandex.com.tr"
'========================================================================================================================
MyBody_Mail = MyBody_Mail & " Internet İletişim Formu" & vbCrLf
MyBody_Mail = MyBody_Mail & "________________________________________________________________" & vbCrLf & vbCrLf
MyBody_Mail = MyBody_Mail & " Ad: "& Request("aspplus_form_ad") & vbCrLf & vbCrLf
MyBody_Mail = MyBody_Mail & " Soyad : "& Request("aspplus_form_soyad") & vbCrLf & vbCrLf
MyBody_Mail = MyBody_Mail & " Telefon : "& Request("aspplus_form_tlf") & vbCrLf & vbCrLf
MyBody_Mail = MyBody_Mail & " Şehir : "& Request("aspplus_form_sehir") & vbCrLf& vbCrLf
MyBody_Mail = MyBody_Mail & " E-Posta : "& Request("aspplus_form_email") & vbCrLf
MyBody_Mail = MyBody_Mail & "________________________________________________________________" & vbCrLf & vbCrLf
MyBody_Mail = MyBody_Mail & " Konu : "& Request("aspplus_form_konu") & vbCrLf
MyBody_Mail = MyBody_Mail & "________________________________________________________________" & vbCrLf & vbCrLf
MyBody_Mail = MyBody_Mail & " Talep : " & vbCrLf & Request("aspplus_form_talep") & vbCrLf
MyBody_Mail = MyBody_Mail & "________________________________________________________________" & vbCrLf & vbCrLf
MyBody_Mail = MyBody_Mail & " IP : "& Request.ServerVariables("remote_addr") & vbCrLf
MyBody_Mail = MyBody_Mail & "________________________________________________________________" & vbCrLf & vbCrLf
MyBody_Mail = MyBody_Mail & " Bu sistem ASPPLUS.Net tarafından sağlanmaktadır." & vbCrLf
'========================================================================================================================
Set Mail_Persits = Server.CreateObject("Persits.MailSender")
Mail_Persits.Host = web_mail_server
Mail_Persits.Port = 25 ' Port is 25 by default
Mail_Persits.Username = email_kullanici_adi
Mail_Persits.Password = email_parola
Mail_Persits.From = Request("aspplus_form_email")
Mail_Persits.AddAddress web_email_adres
Mail_Persits.Charset = "iso-8859-9"
Mail_Persits.Subject = Request("aspplus_form_konu")
Mail_Persits.Body = MyBody_Mail
'On Error Resume Next
Mail_Persits.Send
Set Mail_Persits = Nothing
'========================================================================================================================
aspplus_send_onay= "
Talebiniz Başarıyla İletildi.
Teşekkürler..."
Session("aspplus_send_onay1")=TRUE
'========================================================================================================================
End If
%>