Ferstil Mimarlık

BİLGİ FORMU / İLETİŞİM

İletişim Bilgileri

FERSTİL MİMARLIK DEKORASYON-İNŞAAT-ELEKTRONİK

SANAYİ TİCARET LTD.ŞTİ

Ali Fuatcebesoy Bulvarı
No:68-B
Şehitkamil-GAZİANTEP
Tel : (0342) 322 84 26
Fax : (0342) 322 89 02

E-mail: info@ferstil.com

İletişim Formu

<% @ Language="VBScript" CodePage="1254" %> <% '- Kelebek Webmesaj Formu II ------------------------------------------------- kelebekmsg=REQUEST("kelebekmsg") email=REQUEST("email") If Request ("KelebekASP") = "Yolla" Then CALL Webmail Else End if '-------------------------------------------------------------------------- SUB Webmail '- SessionID Kontrol: ------------------------------------------------------------------------------------------- sid=Trim(Request("sid")) IF sid <> Session.SessionID THEN Response.Write "# Uyarı : SessionID Değeri Geçersiz !" Response.Write "--------------------------------------------------------------------------------" Response.Write "Sayfayı Kapatıp - Açıp Tekrar Deneyin !" Response.End END IF '----------------------------------------------------------------------------------------------------------------------------- If REQUEST("adsoyad")="" or len(REQUEST("adsoyad"))<3 or len(REQUEST("adsoyad"))>50 Then kelebekmsg= "UYARI: Ad Soyad Alanı Boş Bıraktınız ! ( 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 Alanına Sadece Rakam Girilebilir !" Else '-------------------------------------------------------------------------- If REQUEST("mesaj_mail")="" or len(REQUEST("mesaj_mail"))<3 or len(REQUEST("mesaj_mail"))>1000 Then kelebekmsg= "UYARI: Mesaj Alanı Boş Bıraktınız ! ( En Az 3, En Çok 1000 Karekter )" Else '-------------------------------------------------------------------------- If Session("KelebekGuvenlik")=TRUE Then kelebekmsg= "UYARI: Kelebek Webmail Flood Koruma !" Else '----------------------------------------------------------------------------------------------------------------------------- ip = 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 = "Kelebek Webmail" objMailKelebek.AddRecipient "info@ferstil.com" 'E-Posta Adresinizi Buraya Yazın ! MyBody = " Webmail İletişim Formu" & vbCrLf MyBody = MyBody & "----------------------------------------------------------" & vbCrLf MyBody = MyBody & " # Mesaj: " & Request("mesaj_mail") & vbCrLf MyBody = MyBody & "----------------------------------------------------------" & vbCrLf MyBody = MyBody & " # Ad Soyad: " & Request("adsoyad") & vbCrLf MyBody = MyBody & " # E-Posta: " & Request("email") & vbCrLf MyBody = MyBody & " # Şehir: " & Request("sehir") & vbCrLf MyBody = MyBody & " # Telefon: " & Request("telefon") & vbCrLf MyBody = MyBody & " # Ip No: " & ip & vbCrLf MyBody = MyBody & "----------------------------------------------------------" & vbCrLf MyBody = MyBody & " Powered by KRASiT | www.kelebekasp.tk ©2004 " & vbCrLf objMailKelebek.body = MyBody strMailServer = "mail.ferstil.com" 'Buraya Mail Server Adresinizi Yazın ! 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 %> Kelebek İletişim Formu (II) :: Powered by KRASiT

İletişim Formu

ADINIZ SOYADINIZ:
*

E-MAİL ADRESİNİZ:
*

TELEFON/FAX: *

ADRES: *

KONU: *

MESAJINIZ:
İlginizden dolayı teşekkür ederiz.

( * ) İşaretli Alanların Doldurulması Zorunludur.

aryalar,artema batarylar,franke evye ve bataryalae,blanco evye ve bataryalar,artema batarylar,franke evye ve bataryalar,franke,frın,artema bataraya,mutfakta büyük indirim,kredi kartına,taksitle mutfak,ucuz mutfak,Gaziantep mutfak,vitra Gaziantep,vitra,ücretsiz projelendirme ferstil mimarlık,vitra mutfak Gaziantep,Gaziantep yetkili,Gaziantep,vitra mutfak,ankastre,blanco evye ve bataryalar,artema batarylar,franke evye ve bataryalar,franke,frın,artema bataraya,mutfakta büyük indirim,kredi kartına,taksitle mutfak,ucuz mutfak,Gaziantep mutfak,vitra Gaziantep,vitra,ücretsiz projelendirme ferstil mimarlık,vitra mutfak Gaziantep,Gaziantep yetkili,Gaziantep,vitra mutfak,ankastre,blanco evye ve bataryalar,artema batarylar,franke evye ve bataryalar,franke,frın,artema bataraya,mutfakta büyük indirim,kredi kartına,taksitle mutfak,ucuz mutfak,Gaziantep mutfak,vitra Gaziantep,vitra,ücretsiz projelendirme ferstil mimarlık inşaat dekorasyon,ferstil vitra mutfak Gaziantep yetkili bayii,franke,ariston simens ankastre cihazlar,artema, blanco,franke evye ve bataryları,vitra mutfak Gaziantep ferstil mimarlık inşaat dekorasyon,ferstil vitra mutfak Gaziantep yetkili bayii,franke,ariston simens ankastre cihazlar,artema, blanco,franke evye ve bataryları,vitra mutfak Gaziantepeferstil mimarlık,vitra mutfak Gaziantep,Gaziantep yetkili,Gaziantep,vitra mutfak,ankastre,blanco evye ve bataryalar,artema batarylar,franke evye ve bataryalar,franke,frın,artema bataraya,mutfakta büyük indirim,kredi kartına,taksitle mutfak,ucuz mutfak,Gaziantep mutfak,vitra Gaziantep,vitra,ücretsiz projelendirme ferstil mimarlık,vitra mutfak Gaziantep,Gaziantep yetkili,Gaziantep,vitra mutfak,ankastre,blanco evye ve bataryalar,artema batarylar,franke evye ve bataryalar,franke,frın,artema bataraya,mutfakta büyük indirim,kredi kartına,taksitle mutfak,ucuz mutfak,Gaziantep mutfak,vitra Gaziantep,vitra,ücretsiz projelendirme ferstil mimarlık,vitra mutfak Gaziantep,Gaziantep yetkili,Gaziantep,vitra mutfak,ankastre,blanco evye ve bataryalar,artema batarylar,franke evye ve bataryalar,franke,frın,artema bataraya,mutfakta büyük indirim,kredi kartına,taksitle mutfak,ucuz mutfak,Gaziantep mutfak,vitra Gaziantep,vitra,ücretsiz projelendirme ferstil mimarlık,vitra mutfak Gaziantep,Gaziantep yetkili,Gaziantep,vitra mutfak,ankastre,blanco evye ve bataryalar,artema batarylar,franke evye ve bataryalar,franke,frın,artema bataraya,mutfakta büyük indirim,kredi kartına,taksitle mutfak,ucuz mutfak,Gaziantep mutfak,vitra Gaziantep,vitra,ücretsiz projelendirme ferstil mimarlık inşaat dekorasyon,ferstil vitra mutfak Gaziantep yetkili bayii,franke,ariston simens ankastre cihazlar,artema, blanco,franke evye ve bataryları,vitra mutfak Gaziantep ferstil mimarlık inşaat dekorasyon,ferstil vitra mutfak Gaziantep yetkili bayii,franke,ariston simens ankastre cihazlar,artema, blanco,franke evye ve bataryları,vitra mutfak Gaziantepe