Sivriler Mobilya

<%@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

ŞUBELER

	SİVRİLER MOBİLYA MERKEZ
	Mehmet Akif Cad. No: 9 Şirinyer / İZMİR Tel : 0 232 438 18 95 Fax : 0 232 439 21 26

	SİVRİLER MOBİLYA AKSESUAR
	Mehmet Akif Cad. No: 61 Şirinyer / İZMİR Tel : 0 232 426 61 33 Fax : 0 232 426 61 33

	SİVRİLER PERDE & ÇEYİZ KÜÇÜK EV ALETLERİ
	Fevzi Demirsoy Cad. No: 21 Buca / İZMİR Tel : 0 232 438 94 41

	SİVRİLER MERİNOS & VESTEL SHOWROOM
	Fevzi Demirsoy Cad. No: 11-13 Buca / İZMİR Tel : 0 232 452 03 41

	SİVRİLER KONFOR SHOWROOM
	Gazi Osmanpaşa Cad. No: 109 Buca / İZMİR Tel : 0 232 454 04 41