<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~Safir Bilgisayar~~~~~~~~~~~~~ '~~~~~Tarafından Güncellenmiştir.~~~~~~~~~ '~~http://www.safirbilgisayar.com~~~~~~~~~~~~ '~~~~~info@safirbilgisayar.com~~~~~~~~~ '~~~Copyright SafirBilgisayar-2004~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> <%Set bag = Server.CreateObject("ADODB.Connection") bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\kapnetsayac.mdb")%> <% bugun="BUGUN" Set RS=server.createObject("ADODB.Recordset") sor = "select*from sayac " RS.open sor,Bag,1,3 rs.movefirst if rs("tarih") = date then RS.fields("ziyaret") = rs.fields("ziyaret") + 1 saybugun=rs("ziyaret") else rs("tarih")=date rs("ziyaret") = 1 saybugun=1 end if rs.getrows(1) rs("tarih") = date rs("ziyaret") = rs("ziyaret") + 1 saytoplam=rs("ziyaret") RS.update%> <% sure=1 ip=Request.ServerVariables("REMOTE_ADDR") Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online where ip='"& ip &"'" kset.open sql, bag, 1, 3 ip=Request.ServerVariables("REMOTE_ADDR") Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online where ip='"& ip &"'" kset.open sql, bag, 1, 3 If kset.eof Then kset.addnew kset("ip")=ip kset("tarih")=now else kset("tarih")=now end if kset.update kset.Close Set kset = Nothing Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online" kset.open sql, bag, 1, 3 Do While Not kset.eof zaman=datediff("n",kset("tarih"),now) if zaman > sure then sql = "DELETE FROM online WHERE ip = '"&kset("ip")&"'" Set sil = bag.execute(sql) Set sil = Nothing end if kset.movenext Loop online = kset.RecordCount kset.Close Set kset = Nothing bag.Close Set bag = Nothing%> <%dim num%> Ofisdepot Kuyumculuk Bilgisayar İç ve Dış Ticaret Limitet Şirketi +90 212 527 91 55
Türkçe | Deutsch
 

 
__________Ana Sayfa .:. Hakkımızda .:. Ürünler .:. Markalarımız .:.  İletişim__________
       
www.takisatis.com

Ofisdepot Kuyumculuk Bilgisayar İç ve Dış Ticaret Ltd. Şti.

Merkez Adresimiz  (Teknoloji Ürünleri) : Alemdar Mahallesi, Bab-ı Ali Caddesi, Hasan Rasih Han, No : 22-24, D:60, 34140 Cağaloğlu-iSTANBUL

Telefon:(90)212 527 91 55  Faks:(90)212 527 80 01   www.ofisdepot.com.tr

Ofis Çalışma Saatlerimiz  Hafta İçi : 09:00-18:00  Cumartesi : 09:00-12:00

Online İletişim-Destek  E-maili  :   info@hesapli.com.tr

Online Satış-Destek  E-maili ve MSN adresi :  sami@hesapli.com.tr .:. haberci@taksitlial.com

Uydu haritası için tıklayınız.

Şube Adresimiz  (Altın-Gümüş-Hediyelik Eşya Ürünleri) :
OTANTiK TAKI : Molla Fenari Mahallesi, Medrese Sokak, İhsaniye Han, No : 16, Kat:1 Dukkan:2, 34120 Atikalipaşa - Eminönü - iSTANBUL

Telefon :(+90) 212 527 74 69 Faks :(+90) 212 527 80 01   www.takisatis.com

Şube Çalışma Saatlerimiz Hafta İçi : 09:00-18:00 Cumartesi : 09:00-12:00

Online İletişim-Destek  E-maili  :   info@takisatis.com

Online Satış-Destek  E-maili ve MSN adresi :  sami@hesapli.com.tr .:. haberci@taksitlial.com
www.hesapli.com.tr
İletişim Bilgileri
Ofisdepot Kuyumculuk Bilgisayar İç ve Dış Ticaret LTD. ŞTi.
Merkez Adresimiz : Bab-ı Ali Caddesi, Hasan Rasih Han, No : 22-24, D:60, 34140 Cağaloğlu-iSTANBUL TÜRKİYE

T (+90) 212 527 91 55
F (+90) 212 527 80 01
E info@ofisdepot.com.tr

Online Satış:
 sami@hesapli.com.tr
     
Güçlü Güvenli HESAPLI Alış Veriş Sayfamız

Giriş Sayfam Yap

Sık Kullanılanlara Ekle

Arkadaşına Öner
  ZİYARETÇİ TRAFİĞİ » Aktif Ziyaretçi   : » Bugün Gelen   : <%Response.Write "" & saybugun & ""%> » Toplam Ziyaretçimiz   : <%Response.Write "" & saytoplam & ""%> » Bu sitemizi ziyaretiniz
Sayfa oluşturulma tarihi 01.12.2005 ___ Son değiştirilme tarihi: 16.05.2010 14:41:56 +0200
 Telif Hakkı © 2005 Safir Bilgisayar Ajans Danışmanlık ve Teknik Servis Hizmetlerine aittir.
.

.