Anayasa Mahkemesi

Yargıtay Başkanlığı

Danıştay başkanlığı

Sayıştay

Askeri Yargıtay

Ask. Y. İdare Mahk.

Yargıtay Cum. B. Sav.

İnsan Hakları Mahk.<% '********EFKAN ASP SCRİPTLERİ***************** ' Kodlarımı kullandığınız için teşekkürler ' Bu kodların kullanımı ücretsiz olup bu yazıların silinmemesi rica olunur... ' Kullandığınız siteyi bana bildirirseniz sevinirim ' Efkan ' email :info@makineteknik.com ' msn :efkantr@hotmail.com ' web sayfamı ziyaret etmeyi unutmayınız ' web sayfalarınız uygun fiyatlarla yapılır ' http://www.makineteknik.com ' Size uygun bir web sitem mutlaka vardır ... '********AY WEB HİZMETLERİ********************* Response.Buffer = True Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("efkansayac/efkansay.mdb") Set efkan = Server.CreateObject("ADODB.Recordset") Set efkan1 = Server.CreateObject("ADODB.Recordset") zamanmiktari=1 ip_no= Request.ServerVariables("REMOTE_ADDR") bansure=2 'banlama zamanı saniye banhak=5 'banlamak için ziyaretçiye verilen hak adeti 'GELEN İP YASAKLIMI BAK sor = "SELECT * FROM yasakli where ip='"& ip_no &"'" efkan.open sor, sur, 1, 3 If efkan.eof Then else Response.Write "" Response.End end if efkan.close sor = "SELECT * FROM online where ipno='"& ip_no &"'" efkan.open sor, sur, 1, 3 If efkan.eof Then efkan.addnew efkan("ipno")=ip_no efkan("zaman")=now Session ("hak") = 1 elseif datediff("s",efkan("zaman"),now) < bansure and Session ("hak") < banhak then Session ("hak") = Session ("hak") + 1 Response.Write "" Response.End elseif datediff("s",efkan("zaman"),now) < bansure and Session ("hak") => banhak then sor = "SELECT * FROM yasakli " efkan1.open sor, sur, 1, 3 efkan1.addnew efkan1("ip") = ip_no efkan1("tarih") = now efkan1.update efkan1.close Response.Write "" Response.End else efkan("zaman")=now end if efkan.update efkan.Close Set efkan1=Nothing Set efkan=Nothing %><% '********EFKAN ASP SCRİPTLERİ***************** ' Kodlarımı kullandığınız için teşekkürler ' Bu kodların kullanımı ücretsiz olup bu yazıların silinmemesi rica olunur... ' Kullandığınız siteyi bana bildirirseniz sevinirim ' Efkan ' email :info@makineteknik.com ' msn :efkantr@hotmail.com ' web sayfamı ziyaret etmeyi unutmayınız ' web sayfalarınız uygun fiyatlarla yapılır ' http://www.makineteknik.com ' Size uygun bir web sitem mutlaka vardır ... '********AY WEB HİZMETLERİ********************* Response.Buffer = True Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("efkansayac/efkansay.mdb") Set efkan = Server.CreateObject("ADODB.Recordset") Set efkan1 = Server.CreateObject("ADODB.Recordset") zamanmiktari=1 ip_no= Request.ServerVariables("REMOTE_ADDR") bansure=2 'banlama zamanı saniye banhak=5 'banlamak için ziyaretçiye verilen hak adeti 'GELEN İP YASAKLIMI BAK sor = "SELECT * FROM yasakli where ip='"& ip_no &"'" efkan.open sor, sur, 1, 3 If efkan.eof Then else Response.Write "" Response.End end if efkan.close sor = "SELECT * FROM online where ipno='"& ip_no &"'" efkan.open sor, sur, 1, 3 If efkan.eof Then efkan.addnew efkan("ipno")=ip_no efkan("zaman")=now Session ("hak") = 1 elseif datediff("s",efkan("zaman"),now) < bansure and Session ("hak") < banhak then Session ("hak") = Session ("hak") + 1 Response.Write "" Response.End elseif datediff("s",efkan("zaman"),now) < bansure and Session ("hak") => banhak then sor = "SELECT * FROM yasakli " efkan1.open sor, sur, 1, 3 efkan1.addnew efkan1("ip") = ip_no efkan1("tarih") = now efkan1.update efkan1.close Response.Write "" Response.End else efkan("zaman")=now end if efkan.update efkan.Close Set efkan1=Nothing Set efkan=Nothing %>

T.C. Kimlik No

Vergi No Öğrenme

Sürücü Ceza Puanı

Araç Sorgulama

Emekli Sandığı

S.S.K. Gün Hesabı

Bağkur Sorgulama

Türkiye Yol Durumu

Telefon Rehberi

Mevzuat

Resmi Gazete

Hukuk Sözlüğü

Genelgeler

Bilirkişi Listeleri

Diğer Adliyeler

Kararnameler

İnsan Hakları Bilgi Bankası