<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~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
Ofisdepot'un
teknoloji ürünlerinde üretim markası olarak Safir
Bilgisayar bulunmaktadır. Dağıtımını yaptığı
ürünlerin markaları da aşağıdaki gibidir : WiNKEL,
Safir HOST,..
Satışını yaptığı markalar
ise aşağıdaki gibidir:
Ofisdepot'un
ALTIN - GÜMÜŞ - BUJiTERi ürünlerinde üretim markası
olarak GAIAJEWEL bulunmaktadır. Dağıtımını
yaptığı ürünlerin markaları da aşağıdaki gibidir
: WZ, ST,..
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
