KOÇ OTO GALERİ

           

İKİNCİ EL ARAÇ ALIM SATIMINDA EN UYGUN FİYAT!!!

   

TRAFİK & DEPREM
SİGORTASINA
KREDİ KARTINA
3
TAKSİT

2. El Oto Alım Satımı - 2.El Traktör Alım Satımı - Tarım Aletleri Alım Satımı - Sigorta Kasko Yangın Dask

Trafik Müşavirliği

 

                    Kazım KOÇ                                  Fatih KOÇ                      GALERİ TEL                        FAKS

                 (0532) 413 28 03                         (0533) 264 67 92                (0228) 314 43 85                 (0228) 314 24 59

          MAİL : kocoto@gmail.com    ADRES : Yeni Mah. Cami Cad.  No:8   BOZÜYÜK / BİLECİK

   <% '############################################################### '# # '# --------------- --- --- -------- # '# |MMMMMMMMMMMMM| |Y| |Y| |DDDDDD| # '# |M|---|M|---|M| |Y| |Y| |D|---|D| # '# |M| |M| |M| |Y| |Y| |D| |D| # '# |M| |M| |M| |Y|----|Y| |D| |D| # '# |M| |M| |M| |YYYYYYYY| |D| |D| # '# |M| |M| |M| -------|Y| |D| |D| # '# |M| |M| |M| |Y| |D| |D| # '# |M| |M| |M| -------|Y| |D|---|D| # '# |M| |M| |M| |YYYYYYYY| |DDDDDD| # '# --- --- --- ---------- -------- # '# # '# # '#######################| SAYAÇ v2.0 |########################## '# # '# Bu scriptin tüm hakları Murat Yavuz'a aittir. # '# Script ile ilgili sorularınız ve önerileriniz için: # '# # '# http://www.mydesign.gen.tr # '# http://www.mydesign.gen.tr/myforum # '# mydesign@mydesign.gen.tr # '# # '############################################################### %> <% os=request.servervariables("HTTP_USER_AGENT") referrer=request.servervariables("HTTP_REFERER") ip=request.servervariables("REMOTE_ADDR") sayfa=request.servervariables("SCRIPT_NAME") ulke=request.servervariables("HTTP_ACCEPT_LANGUAGE") user=request.cookies("sayac")("zaman") set baglanti=server.createobject("adodb.connection") baglanti.open="provider=microsoft.jet.oledb.4.0;data source="& server.mappath("db/dbsayac.mdb") &";" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'SAYFALAR TABLOSUNA KAYIT BÖLÜMÜ set kdsayfa=server.createobject("adodb.recordset") sqlsayfa="select * from tbl_sayfalar where sayfa='"& sayfa &"'" kdsayfa.open sqlsayfa,baglanti, 1, 3 if kdsayfa.eof then kdsayfa.addnew kdsayfa("sayfa")=sayfa kdsayfa("tekil_hit")="1" kdsayfa("cogul_hit")="1" kdsayfa.update else if session("mydesign")<>"evet" then tekil=kdsayfa("tekil_hit") kdsayfa("tekil_hit")=tekil + 1 end if cogul=kdsayfa("cogul_hit") kdsayfa("cogul_hit")=cogul + 1 kdsayfa.update end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'İSTATİSTİKLERİN TUTULDUĞU TABLOYA KAYIT BÖLÜMÜ set kdist=server.createobject("adodb.recordset") sqlist="select * from tbl_ziyaretci" kdist.open sqlist, baglanti, 1, 3 If Instr(os, "MSIE") Then If Instr(os, "MSIE 6.") Then Browser = "Microsoft Internet Explorer 6.x" ElseIf Instr(os, "MSIE 5.") Then Browser = "Microsoft Internet Explorer 5.x" Elseif Instr(os, "MSIE 4.") Then Browser = "Microsoft Internet Explorer 4.x" Elseif Instr(os, "MSIE 3.") Then Browser = "Microsoft Internet Explorer 3.x" If Instr(os, "MSIE 3.02") Then Browser = "Microsoft Internet Explorer 3.02" End If Else Browser = "Microsoft Internet Explorer" End If ElseIf Instr(os, "Mozilla") and Instr(ua, "compatible") = 0 Then If Instr(os, "Mozilla/4") Then Browser = "Netscape Navigator 4.x" Elseif Instr(os, "Mozilla/3") Then Browser = "Netscape Navigator 3.x" Else Browser = "Netscape Navigator" End If End If kdist.addnew kdist("os")=browser kdist("referrer")=referrer kdist("ip")=ip kdist("sayfa")=sayfa kdist("ulke")=ulke kdist("tarih")=NOW() kdist.update ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'IP'LERİN TUTULDUĞU TABLOYA KAYIT BÖLÜMÜ set kdip=server.createobject("adodb.recordset") sqlip="select * from tbl_ip where ip='"& ip &"'" kdip.open sqlip, baglanti, 1, 3 if kdip.eof then kdip.addnew kdip("ip")=ip kdip("tekil_hit")="1" kdip("cogul_hit")="1" kdip.update else if session("mydesign")<>"evet" then tekil=kdip("tekil_hit") kdip("tekil_hit")=tekil + 1 end if cogul=kdip("cogul_hit") kdip("cogul_hit")=cogul + 1 kdip.update end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'ZİYARETÇİ GÖNDERENLERİN TUTULDUĞU TABLOYA KAYIT BÖLÜMÜ set kdreferrer=server.createobject("adodb.recordset") sqlreferrer="select * from tbl_referrer where referrer='"& referrer &"'" kdreferrer.open sqlreferrer, baglanti, 1, 3 if kdreferrer.eof then kdreferrer.addnew kdreferrer("referrer")=referrer kdreferrer("tekil_hit")="1" kdreferrer("cogul_hit")="1" kdreferrer.update else if session("mydesign")<>"evet" then tekil=kdreferrer("tekil_hit") kdreferrer("tekil_hit")=tekil + 1 end if cogul=kdreferrer("cogul_hit") kdreferrer("cogul_hit")=cogul + 1 kdreferrer.update end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'GÜNLÜK HİTLERİN TUTULDUĞU TABLOYA KAYIT BÖLÜMÜ tarih=date() set kdgun=server.createobject("adodb.recordset") sqlgun="select * from tbl_gunler where tarih like '"&tarih&"'" kdgun.open sqlgun, baglanti, 1, 3 if kdgun.eof then kdgun.addnew kdgun("tarih")=tarih kdgun("tekil_hit")="1" kdgun("cogul_hit")="1" kdgun.update else if session("mydesign")<>"evet" then tekil=kdgun("tekil_hit") kdgun("tekil_hit")=tekil + 1 end if cogul=kdgun("cogul_hit") kdgun("cogul_hit")=cogul + 1 kdgun.update end if set kdAyar=server.createobject("adodb.recordset") sqlayar="select * from tbl_ayarlar" kdayar.open sqlayar,baglanti, 1, 3 goster=kdAyar("goster") if goster="evet" then Toplam_tekil = kdsayfa("tekil_hit") Bos = kdAyar("hane")-Len(Toplam_tekil) %> <% end if session("mydesign")="evet" %>

Koç Oto Galeri - www.kocoto.net