ADRES BİLGİLERİMİZ
Cevizlik Mahallesi İmren Sokak NO : 7 / A
Bakırköy – İstanbul
Bakırköy – İstanbul
Telefon: (0212) 571 08 03
Telefon: (0212) 571 03 85
Telefon: (0212) 572 97 04
Faks: (0212) 571 04 42
Gsm: (0532) 350 01 89
info@ekimmatba.com
ekimmatbaa@hotmail.com
<% islem = request.querystring("islem") if islem = "kayit" then call kayit elseif islem = "send" then call send elseif islem = "talepsend" then call talepsend elseif islem = "tavsiyesend" then call tavsiyesend elseif islem = "" then Response.Redirect ("iletisim.asp?islem=kayit") end if sub kayit %> <% end sub sub send adsoyad=Request("adsoyad") Response.Cookies("adsoyad") = adsoyad adsoyad=trim(Request.form("adsoyad" ) ) tel=Request.Form("tel" ) email=Request.Form("email" ) mesaj=Request.Form("mesaj" ) MailBODYS = "Merhaba" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = (""&smtp&"") 'Mail Göndermek için SMTP adresi Mail.IsHTML = True Mail.Charset = "iso-8859-9" Mail.Username = (""& sitemail &"") 'sunucuda kayıtlı olmalı mail Mail.Password = ""&sifre&"" 'sunucuda kayıtlı olmalı mail Mail.From = (""& sitemail &"") Mail.FromName = REQUEST("email") Mail.AddAddress (""& sitemail &"") Mail.Subject = "İletişim Formu" Mail.Body = "İLETİŞİM FORMU
Adınız Soyadınız :" & adsoyad & "
Telefon :" & tel & "
E-Mail : "& email & "
Mesaj : "& mesaj & "
" On Error Resume Next Mail.Send response.Write "
" response.Write "
Sayın "& adsoyad & "
"
response.Write "" response.write "
İletişim formu tarafımıza ulaştı. İlgili birime ulaştırılacak ve en kısa sürede yanıtlanacaktır
"
response.Write "" response.Write "
" response.write "
İlğiniz İçin Teşekkür Ederiz....
"
response.Write "" end sub sub talepsend adsoyad=Request("adsoyad") Response.Cookies("adsoyad") = adsoyad adsoyad=trim(Request.form("adsoyad" ) ) mailadres=Request.Form("mailadres" ) telefon=Request.Form("telefon" ) mesaj=Request.Form("mesaj" ) urun=Request.Form("urun" ) urunkod=Request.Form("urunkod" ) urunid=Request.Form("urunid") MailBODYS = "Merhaba" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = (""&smtp&"") 'Mail Göndermek için SMTP adresi Mail.IsHTML = True Mail.Charset = "iso-8859-9" Mail.Username = (""& sitemail &"") 'sunucuda kayıtlı olmalı mail Mail.Password = ""&sifre&"" 'sunucuda kayıtlı olmalı mail Mail.From = (""& sitemail &"") Mail.FromName = REQUEST("email") Mail.AddAddress (""& sitemail &"") Mail.Subject = "Talep Formu" Mail.Body = "Talep Formu
Adı Soyadı :" & adsoyad & "
Telefon :" & telefon & "
E-Mail : "& mailadres & "
Ürün : "& urun & "
Ürün Kodu : "& urunkod & "
Açıklama : "& mesaj & "
" On Error Resume Next Mail.Send response.Write "
" response.Write "
Sayın "& adsoyad & "
"
response.Write "" response.write "
Ürün Talep Formu tarafımıza ulaştı. İlgili birime ulaştırılacak ve en kısa sürede yanıtlanacaktır
"
response.Write "" response.Write "
" response.Write "
" %> <% end sub sub tavsiyesend adsoyad=Request("adsoyad") Response.Cookies("adsoyad") = adsoyad adsoyad=trim(Request.form("adsoyad") ) mailadres=Request.Form("mailadres" ) telefon=Request.Form("telefon" ) mesaj=Request.Form("mesaj" ) urun=Request.Form("urun" ) urunkod=Request.Form("urunkod" ) urunid=Request.Form("urunid") urunlink=Request.Form("urunlink") gonmail=trim(Request.form("gonmail")) MailBODYS = "Merhaba" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = (""&smtp&"") 'Mail Göndermek için SMTP adresi Mail.IsHTML = True Mail.Charset = "iso-8859-9" Mail.Username = (""& sitemail &"") 'sunucuda kayıtlı olmalı mail Mail.Password = ""&sifre&"" 'sunucuda kayıtlı olmalı mail Mail.From = (""& sitemail &"") Mail.FromName = REQUEST("email") Mail.AddAddress ""&Request.form("gonmail")&"" Mail.Subject = ""&Request.form("adsoyad")&" isimli Arkadaşınız Size "&Request.form("urun")&" Ürününü Tavsiye Etti" Mail.Body = "Ürün Tavsiye Formu
Adı Soyadı :" & adsoyad & "
E-Mail : "& mailadres & "
Ürün : "& urun & "
Ürün Kodu : "& urunkod & "
Ürün Link : "& urunlink & "
Açıklama : "& mesaj & "
" On Error Resume Next Mail.Send response.Write "
" response.Write "
Sayın "& adsoyad & "
"
response.Write "" response.write "
Ürün Tavsiye Formu "&Request.Form("gonmail")&" adresine başarıyla gönderildi.
"
response.Write "" response.Write "
" response.Write "
" %> <% end sub %>