GLİ - Garp Linyitleri İşletmesi Müessesesi Müdürlüğü

<% copy_right="Eğitim Amaçlıdır Parayla Satılamaz" coder="By M.Anıl K." sure=3 ' Tekil hitlerdeki zaman farkını burdan belirleyebilirsiniz online_sure=1 'Burada kişi çıktıktan kaç dakika sonra database'den sileneceğini belirliyoruz. Dim ip,sure,browser,sistem,tip ip=Request.ServerVariables("REMOTE_ADDR") ' IP adresi Set lojik=Server.CreateObject("Adodb.RecordSet") sql="select * from genel where ip='"&ip&"'" lojik.open sql,bim,1,3 set genel=server.createobject("Adodb.Recordset") sql="select * from genel" genel.open sql,bim,1,3 if lojik.eof or lojik.bof then ' Giriş yapan ip adresi veri tabanında kayıtlı değilse yeni kayıt aç ve bilgilerini al lojik.addnew lojik("ip")=ip lojik("giris_tarihi")=date lojik("saat")=time lojik("toplam_tekil")=1 lojik("toplam_cogul")=0 lojik.update ' Alınan bilgileri update (veri tabanına yükle) et elseif year(lojik("giris_tarihi"))<>year(date) then ' Yeni bi yıla girdiysek yıl,ay,gün hitlerini sıfırlıyoruz do while not genel.eof genel("bu_sene_tekil")=0 genel("bu_sene_cogul")=0 genel.movenext Loop lojik("toplam_tekil")=lojik("toplam_tekil")+1 lojik("saat")=time lojik("giris_tarihi")=date lojik.update elseif month(lojik("giris_tarihi"))<>month(date) then ' Yeni bi aya girdiysek ay hitlerini sıfırlıyoruz lojik("bu_sene_tekil")=lojik("bu_sene_tekil")+1 lojik("toplam_tekil")=lojik("toplam_tekil")+1 lojik("saat")=time lojik("giris_tarihi")=date lojik.update elseif day(lojik("giris_tarihi"))<>day(date) then ' Yeni bir güne girdiysek do while not genel.eof genel("bugun_tekil")=0 genel("bugun_cogul")=0 genel.movenext Loop lojik("saat")=time lojik("giris_tarihi")=date lojik.update elseif day(lojik("giris_tarihi"))=day(date) then ' Veri tabanındaki gun ile şu anki gün karşılaştırılıyor. Gün değişmemişse yani hala aynı günde isek durum1=datediff("h",lojik("saat"),time) ' Kayıtlı saat ile şimdiki saati karşılaştırıyoruz if durum1>sure then ' 3 saati geçtiyse lojik.update else ' 3 saati geçmediyse lojik("toplam_cogul")=lojik("toplam_cogul")+1 ' Toplam çoğulu 1 arttır lojik.update end if end if lojik8=bim.execute("select sum(toplam_cogul) as toplam8 from genel") toplam8=lojik8("toplam8") %>

Site Haritası \| İletişim \| E-Posta \| Web-Mail

"Kömür Türkiye'yi İhya Edecek Bir Servettir." K.Atatürk

Anasayfa

Kömür Satış Bilgileri

İnsan Kaynakları

Tunçbilek Linyit Kömürü

Avantajları

Yanma Özellikleri

Depolama Özellikleri

Ağaçlandırma Faaliyetleri

Ağaçlandırma Sahaları Listesi

Saha Resimleri

Resim Galerisi

Resimler

Nostaljik Resimler

Fotoğraflarla Atatürk

Diğer Linkler

TKİ Genel Müdürlüğü

Bursa Linyitleri İşletmesi

Çan Linyitleri İşletme Müdürlüğü

Ege Linyitleri İşletmesi Müessesesi
Müdürlüğü

Güney Ege Linyitleri İşletmesi

Ilgın Linyitleri İşletmesi

Seyitömer Linyitleri işletmesi
Müessesesi Müdürlüğü

Yeniköy Linyitleri İşletmesi

Ziyaretçi Sayısı:

<%=toplam8%>

GARP LİNYİTLERİ İŞLETMESİ MÜESSESESİ MÜDÜRLÜĞÜ
43100 Tavşanlı / KÜTAHYA
Tel : (+90) 274 614 10 07 Fax : (+90) 274 614 59 94
www.gli.gov.tr webmaster:webmaster@gli.gov.tr
2006 © GLİ