<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> <% '- Kelebek Webmesaj Formu II ------------------------------------------------- kelebekmsg=REQUEST("kelebekmsg") email=REQUEST("email") If Request ("sivriler") = "Yolla" Then CALL Webmail Else End if '-------------------------------------------------------------------------- SUB Webmail '- SessionID Kontrol: ------------------------------------------------------------------------------------------- sid=Trim(Request("sid")) IF sid <> Session.SessionID THEN Response.Write "
# Uyari : SessionID Degeri Geçersiz !
" Response.Write "
--------------------------------------------------------------------------------
" Response.Write "
Sayfayi Kapatip - Açip Tekrar Deneyin !
" Response.End END IF '----------------------------------------------------------------------------------------------------------------------------- If REQUEST("adsoyad")="" or len(REQUEST("adsoyad"))<3 or len(REQUEST("adsoyad"))>50 Then kelebekmsg= "UYARI: Ad Soyad Alani Bos Biraktiniz ! ( En Az 3, En Çok 50 Karakter )" Else '-------------------------------------------------------------------------- If Len(email) < 5 Then bIsValid = "False" Else If Instr(1, email, " ") <> 0 Then bIsValid = "False" Else If InStr(1, email, "@", 1) < 2 Then bIsValid = "False" Else If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then bIsValid = "False" End If End If End If End If IF bIsValid = "False" THEN kelebekmsg= "UYARI: Lütfen Geçerli Bir E-Mail Adresi Girin !" Else '-------------------------------------------------------------------------- If not REQUEST("telefon")="" and not IsNumeric(REQUEST("telefon")) Then kelebek_msg= "UYARI: Telefon Alanina Sadece Rakam Girilebilir !" Else '-------------------------------------------------------------------------- If REQUEST("mesaj_mail")="" or len(REQUEST("mesaj_mail"))<3 or len(REQUEST("mesaj_mail"))>1000 Then kelebekmsg= "UYARI: Mesaj Alani Bos Biraktiniz ! ( En Az 3, En Çok 1000 Karekter )" Else '-------------------------------------------------------------------------- If Session("KelebekGuvenlik")=TRUE Then kelebekmsg= "UYARI: Webmail Flood Koruma !" Else '----------------------------------------------------------------------------------------------------------------------------- ip = cstr(Request.ServerVariables("REMOTE_ADDR")) Dim objMailKelebek, MyBody, strMailServer Set objMailKelebek = Server.CreateOBject( "JMail.Message" ) objMailKelebek.CharSet = "windows-1254" objMailKelebek.From = Trim(Request("email")) objMailKelebek.Subject = "Sivriler Mobilya sitesinden mesaj var." objMailKelebek.AddRecipient "info@sivrilermobilya.com" MyBody = " WEBMAIL ILETISIM FORMU" & vbCrLf MyBody = MyBody & "----------------------------------------------------------" & vbCrLf MyBody = MyBody & " # Mesaj: " & cstr(Request("mesaj_mail")) & vbCrLf MyBody = MyBody & "----------------------------------------------------------" & vbCrLf MyBody = MyBody & " # Ad Soyad: " & cstr(Request("adsoyad") & vbCrLf) MyBody = MyBody & " # E-Posta : " & cstr(Request("email")) & vbCrLf MyBody = MyBody & " # Telefon : " & cstr(Request("telefon")) & vbCrLf MyBody = MyBody & " # Ip No : " & ip & vbCrLf MyBody = MyBody & "----------------------------------------------------------" & vbCrLf objMailKelebek.body = MyBody strMailServer = "mail.sivrilermobilya.com" on Error Resume Next objMailKelebek.Send(strMailServer) kelebekmsg= "Teşekkürler, Mesajınız Başarıyla Gönderildi" Session("KelebekGuvenlik")=TRUE '----------------------------------------------------------------------------------------------------------------------------- End If End If End If End If End If '----------------------------------------------------------------------------------------------------------------------------- End SUB %> Sivriler Mobilya
  HAKKIMIZDA  
 


Ticari hayatına 1980 yılında  aktif Pazar ile başlayan şirketimiz, sağlam temeller üzerine kurulmuş , değerlerine sahip çıkan örnek bir aile şirketidir.

Şirketimiz dünden bugüne müşteri memnuniyeti, ürün ve hizmette kalite anlayışını her zaman ön planda tutmuştur.

Siz değerli tüketicilerimizin istek ve ihtiyaçları doğrultusunda her geçen gün yeni ürün ve markaları ürün yelpazemize ilave etmekteyiz.

Sivriler mobilya mağazaları şu anda sahip olduğu beş şubesi ile siz değerli tükecilerimize hizmet etmenin haklı gururunu yaşamaktadır.



  

“ Sizlere hizmet etmenin haklı gururunu yaşıyoruz ve her zaman yaşamaya devam etmek istiyoruz “

Saygılarımızla…