<% 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
 
  Tunçbilek Linyit Kömürü
    Tunçbilek Linyit Kömürü
    Avantajları
    Yanma Özellikleri
    Depolama Özellikleri
 Ağaçlandırma Faaliyetleri
    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%>


Anasayfa | Faaliyetler | Amaç ve Hedefleri | Mevzuat | Yatırımlar | Organizasyon Şeması | Yönetim Komitesi | Yönetim | Kuruluş | Eski Tarih
İhale İlanları | Doğrudan Temin Duyuruları | Belgeler | Analizler | Kömür Fiyatları | Satış Duyuruları | Bayi Listesi | İllere Göre Bayi Listesi

Banka Hesap Numaraları | Kadro Durumu | Eğitim | Staj | Ücretler | Sendikalar | Site Haritası | İletişim | Web-Mail | Uyar
                                                                                                                                          
                                                                                                                                                                                                                                                                                                   

 
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İ