<!--#include file="inc-sayac-ayarlar.asp"-->
<%
Response.ContentType = "text/html" 
Response.Charset = "UTF-8" 
strReferans_Site_Tam_Adres = Request.ServerVariables("http_referer")

If strReferans_Site_Tam_Adres = "" Then
    strReferans_Site = Request.ServerVariables("Server_Name")
Else
    strReferans_Site_Tam_Adres_Uzunlugu = Len(strReferans_Site_Tam_Adres)
    strReferans_Site_Sag_Taraf = Mid(strReferans_Site_Tam_Adres, 8, strReferans_Site_Tam_Adres_Uzunlugu)
    If InStr(strReferans_Site_Sag_Taraf , "/") <> Int(0) then
	    strReferans_Site = Mid(strReferans_Site_Tam_Adres, 1, InStr(strReferans_Site_Sag_Taraf , "/") + 6)
    End If
End If

If strReferans_Site = Left(strSite_Kisa_Adresi, Len(strReferans_Site)) OR strReferans_Site = Left(strSite_Adresi, Len(strReferans_Site)) OR strReferans_Site = "" Then
    Set RS = DBBaglanti.ExeCute("SELECT site, toplam_ziyaret FROM SayacReferanslar WHERE site = '"&strSite_Adresi&"'")
    If RS.Eof Or RS.Bof Then
	    Set KD = DBBaglanti.ExeCute("INSERT INTO SayacReferanslar (site, toplam_ziyaret, ziyaret_ettigi_son_gun) VALUES ('"&strSite_Adresi&"', '1', '"&Date()&"')")
	    Set KD = Nothing
    Else
	    Set KD = DBBaglanti.ExeCute("UPDATE SayacReferanslar SET toplam_ziyaret = "&RS("toplam_ziyaret") + 1&", ziyaret_ettigi_son_gun = '"&Date()&"' WHERE site = '"&strSite_Adresi&"'")
	    Set KD = Nothing
    End If
    RS.Close
    Set RS = Nothing
Else
    Set RS = DBBaglanti.ExeCute("SELECT site, toplam_ziyaret FROM SayacReferanslar WHERE site = '"&strReferans_Site&"'")
    If RS.Eof Or RS.Bof Then
	    Set KD = DBBaglanti.ExeCute("INSERT INTO SayacReferanslar (site, tam_adres, toplam_ziyaret, ziyaret_ettigi_son_gun) VALUES ('"&strReferans_Site&"', '"&strReferans_Site_Tam_Adres&"', '1', '"&Date()&"')")
	    Set KD = Nothing
    Else
	    intSayac_Referans_Toplam_Ziyaret = RS("toplam_ziyaret") + 1
	    Set KD = DBBaglanti.ExeCute("UPDATE SayacReferanslar SET site = '"&strReferans_Site&"', tam_adres = '"&strReferans_Site_Tam_Adres&"', toplam_ziyaret = "&intSayac_Referans_Toplam_Ziyaret&", ziyaret_ettigi_son_gun = '"&Date()&"' WHERE site = '"&strReferans_Site&"'")
	    Set KD = Nothing
    End If
    RS.Close
    Set RS = Nothing
End If

URL = ""
For Each I In Request.QueryString
    If Len(URL) >0 then
        URL = URL & "&"
    Else
        URL = URL & "?"
    End If
    URL = URL & I & "="& Request.QueryString(I)
Next
URL = Request.ServerVariables("SCRIPT_NAME") & URL

blnSayac_Tekil_Arttir = False
blnSayac_Cogul_Arttir = False
Set sayacRS = Server.CreateObject("ADODB.Recordset")
sayacRS.Open "SELECT * FROM SayacIp WHERE ip = '"&intKullanici_Ip&"'", DBBaglanti, 1, 3
If sayacRS.Eof Then
    sayacRS.AddNew
    sayacRS("ip") = intKullanici_Ip
    sayacRS("toplam_ziyaret") = 1
    sayacRS("ziyaret_ettigi_son_gun") = Now()
    sayacRS("tarayici_dili") = strTarayici_Dili
    sayacRS("isletim_sistemi") = OSType
    sayacRS("tarayici") = BrowserType
    sayacRS("referans") = strReferans_Site_Tam_Adres
    sayacRS("bulundugu_sayfa") = URL
    sayacRS.Update
    blnSayac_Tekil_Arttir = True
    blnSayac_Cogul_Arttir = True
Else
    If Left(sayacRS("ziyaret_ettigi_son_gun"), 10) = Left(Now(), 10) Then
        blnSayac_Tekil_Arttir = False
        blnSayac_Cogul_Arttir = True
    Else
        blnSayac_Tekil_Arttir = True
        blnSayac_Cogul_Arttir = True
    End If
    sayacRS("toplam_ziyaret") = sayacRS("toplam_ziyaret") + 1
    sayacRS("ziyaret_ettigi_son_gun") = Now()
    sayacRS("tarayici_dili") = strTarayici_Dili
    sayacRS("isletim_sistemi") = OSType
    sayacRS("tarayici") = BrowserType
    sayacRS("referans") = strReferans_Site_Tam_Adres
    sayacRS("bulundugu_sayfa") = URL
    sayacRS.Update
End If
sayacRS.Close
Set sayacRS = Nothing

Set sayacRS = Server.CreateObject("ADODB.Recordset")
sayacRS.Open "SELECT tekil, cogul, gun FROM SayacGunluk WHERE gun = Date()", DBBaglanti, 1, 3
If sayacRS.Eof Then
    sayacRS.AddNew
    sayacRS("tekil") = 1
    sayacRS("cogul") = 1
    sayacRS("gun")= Date()
    sayacRS.Update
Else
    If blnSayac_Tekil_Arttir = True Then
        sayacRS("tekil") = sayacRS("tekil") + 1
    End If
    If blnSayac_Cogul_Arttir = True Then
        sayacRS("cogul") = sayacRS("cogul") + 1
    End If
    sayacRS.Update
End If
sayacRS.Close
Set sayacRS = Nothing
Call T()
%>