<% Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires =-1 %> <% If Request("aspplus")="email" Then '=== Server mail gönderme ayarları:====================================================================================== '---Bu alana servera ait e-mail adresinizi giriniz ! web_email_adres="info@fensteryapi.com" '---Bu alana servera ait e-posta kullanıcı adınızı giriniz ! email_kullanici_adi="info@fensteryapi.com" '---Bu alana servera ait e-posta parolanızı giriniz ! email_parola="-zN=3JzpX71J" '---Bu alana servera ait mail server adresinizi yada IP adresinizi giriniz ! web_mail_server="mail.fensteryapi.com" gonderen="info@fensteryapi.com" '======================================================================================================================== MyBody_Mail = MyBody_Mail & "Web Sitesi İletisim 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 & " Sehir : "& 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 & " Mesaj : " & 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 '======================================================================================================================== Set Mail_Persits = Server.CreateObject("Persits.MailSender") Mail_Persits.Host = web_mail_server Mail_Persits.Port = 26 ' Port is 25 by default Mail_Persits.Username = email_kullanici_adi Mail_Persits.Password = email_parola Mail_Persits.From = gonderen Mail_Persits.AddAddress web_email_adres Mail_Persits.Charset = "utf-8" 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 Response.Redirect ("iletisim.asp") '======================================================================================================================== End If %>

Plater İletişim



 İLETİŞİM FORMU
ADINIZ

SOYADINIZ

TELEFON

 ŞEHİR

KONU

E-POSTA

 MESAJINIZ

disabled<% End If %> />


Ana Sayfa | Uygulamalar | Referanslar | Renk Kartelası | Hakkımızda | İletişim   Tel: 0216 312 20 72-73-74 | Fax: 0216 312 20 78 | info@plater.com.tr

PLATER Kaplama San. Tic. Ltd. Şti.    Yunusemre Mh. İskenderpaşa Cad. No:29/1 Yenidoğan - Sancaktepe İSTANBUL