|
PcSoft Sayaç
<%
' PcSoft Sayaç
' www.pcindir.com
%>
<%Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/sayac4321.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%>
|
|
RESİMLER
Andoff Hakkında
Andoff Market
Üyelik Kayıt Formu
Satılık Araçlar
Andoff
Resimler
Yarış Kayıt İşlemleri
Arşiv
2006 Yarış Program
2006 Ankara Şamp.
Bize Ulaşmak İçin
Yönetim Kurulu
Andoff Eğitim
2005 Ankara Şamp.
2006
Türkiye Good.Şamp. |
|
|
ANKARA
2006 OFF_ROAD SEZONUNU DÜZCEDE MUHTEŞEM BİR YARIŞ İLE KAPATTI....
ANDOFF ve DOSOD Mahalli
yarışları 2-3 Aralık 2006 tarihinde Düzcede peşpeşe koşuldu. Ankara off_road kulübü ve
Düzce off_road kulübü tarafından düzenlenen yarışlar 2 Aralık c.tesi günü
Ankara SES TV off_road şampiyonası 5. yarışı ile start alıp. 3 Aralık Pazar günü
ise Düzce off_road şampiyanası ilk yarışı ile son buldu. 2006 Ankara Ses TV Off_road
şampiyonluğuna MUSTAFA ÖZGİRAY-ALİ İHSAN GÜNEŞ ikilisi damgasını vurdu......
DERECELER
BASIN
BÜLTENİ
RESİMLER
| |
DERECE |
KAPI NO |
PİLOT |
CO-PİLOT |
| GURUP N1 |
1 |
2 |
SERKAN TUT |
İSMAİL AYDIN |
| |
2 |
3 |
MURAT ÖZTÜRK |
OSMAN KUTLU |
| |
3 |
5 |
FERRUH ÇELEBİ |
ALİ PERTEV |
| |
3 |
4 |
ANIL ŞEKERCİOĞLU |
YUSUF ÖZTÜRK |
| GURUP N2 |
1 |
10 |
ARİF DEĞİRMENCİ |
BEKİR BAŞKAL |
| |
2 |
7 |
MUSTAFA ÖZGİRAY |
A.İHSAN GÜNEŞ |
| |
3 |
8 |
ŞAHİN DEMİRAY |
ONUR SAATÇİ |
|
|
