<!--#include file="head.asp"-->
<%
Response.ContentType = "text/html" 
Response.Charset = "UTF-8" 
%>

<!--#include file ="../veriables.asp"-->
<div class="block">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
	
<%
'######################################### Site Tanımlaması Yapılıyor   ###########################
strSite_Adresi = "http://www.hafzullah.com"
strSite_Kisa_Adresi = "http://hafzullah.com"
'##################################################################################################

'######################################### Sayaç Veritabanına Bağlantı Sağlanıyor #################
Set DBBaglanti = Server.CreateObject("Adodb.Connection")
DBBaglanti.open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& server.MapPath("../db/"&datayol&".mdb") &";"
'##################################################################################################


'######################################### Versiyon Bilgisi Yazdırılıyor ##########################
strVersiyon = "v4.0"
'##################################################################################################

'######################################### Ülkeler Gösteriliyor ###################################
Function UlkeBul(strVeri)

	'// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor
	If IsNull(strVeri) Then Exit Function

	If Left(strVeri, 2) = "af" then
		UlkeBul = "Afganistan"
	ElseIf Left(strVeri, 2) = "de" then
		UlkeBul = "Almanya"
	ElseIf Left(strVeri, 2) = "us" then
		UlkeBul = "ABD"
	ElseIf Left(strVeri, 2) = "as" then
		UlkeBul = "Amerikan Samoa"
	ElseIf Left(strVeri, 2) = "ad" then
		UlkeBul = "Andorra"
	ElseIf Left(strVeri, 2) = "ao" then
		UlkeBul = "Angola"
	ElseIf Left(strVeri, 2) = "av" then
		UlkeBul = "Anguila"
	ElseIf Left(strVeri, 2) = "ai" then
		UlkeBul = "Anguilla"
	ElseIf Left(strVeri, 2) = "aq" then
		UlkeBul = "Antarktika"
	ElseIf Left(strVeri, 2) = "ag" then
		UlkeBul = "Antigua ve Barbuda"
	ElseIf Left(strVeri, 2) = "ar" then
		UlkeBul = "Arjantin"
	ElseIf Left(strVeri, 2) = "al" then
		UlkeBul = "Arnavutluk"
	ElseIf Left(strVeri, 2) = "aw" then
		UlkeBul = "Aruba"
	ElseIf Left(strVeri, 2) = "ac" then
		UlkeBul = "Ascention Adaları"
	ElseIf Left(strVeri, 2) = "au" then
		UlkeBul = "Avustralya"
	ElseIf Left(strVeri, 2) = "at" then
		UlkeBul = "Avusturya"
	ElseIf Left(strVeri, 2) = "az" then
		UlkeBul = "Azerbaycan"
	ElseIf Left(strVeri, 2) = "bs" then
		UlkeBul = "Bahama"
	ElseIf Left(strVeri, 2) = "bd" then
		UlkeBul = "Bangladeş"
	ElseIf Left(strVeri, 2) = "bb" then
		UlkeBul = "Barbados"
	ElseIf Left(strVeri, 2) = "eh" then
		UlkeBul = "Batı Sahra"
	ElseIf Left(strVeri, 2) = "be" then
		UlkeBul = "Belçika"
	ElseIf Left(strVeri, 2) = "bz" then
		UlkeBul = "Belize"
	ElseIf Left(strVeri, 2) = "bj" then
		UlkeBul = "Benin"
	ElseIf Left(strVeri, 2) = "bm" then
		UlkeBul = "Bermuda"
	ElseIf Left(strVeri, 2) = "by" then
		UlkeBul = "Beyaz Rusya (Belarus)"
	ElseIf Left(strVeri, 2) = "bt" then
		UlkeBul = "Bhutan"
	ElseIf Left(strVeri, 2) = "ae" then
		UlkeBul = "Birleşik Arap Emirlikleri"
	ElseIf Left(strVeri, 2) = "uk" then
		UlkeBul = "Birleşik Krallık"
	ElseIf Left(strVeri, 2) = "bo" then
		UlkeBul = "Bolivya"
	ElseIf Left(strVeri, 2) = "ba" then
		UlkeBul = "Bosna Hersek"
	ElseIf Left(strVeri, 2) = "bw" then
		UlkeBul = "Botsvana"
	ElseIf Left(strVeri, 2) = "bv" then
		UlkeBul = "Bouvet Adası"
	ElseIf Left(strVeri, 2) = "br" then
		UlkeBul = "Brezilya"
	ElseIf Left(strVeri, 2) = "io" then
		UlkeBul = "Britanya Hint Okyanusu Toprağı"
	ElseIf Left(strVeri, 2) = "bn" then
		UlkeBul = "Brunei Darüsselam"
	ElseIf Left(strVeri, 2) = "bg" then
		UlkeBul = "Bulgaristan"
	ElseIf Left(strVeri, 2) = "bf" then
		UlkeBul = "Burkina Faso"
	ElseIf Left(strVeri, 2) = "bi" then
		UlkeBul = "Burundi"
	ElseIf Left(strVeri, 2) = "gb" then
		UlkeBul = "Büyük Britanya"
	ElseIf Left(strVeri, 2) = "gi" then
		UlkeBul = "Cebelitarık"
	ElseIf Left(strVeri, 2) = "dz" then
		UlkeBul = "Cezayir"
	ElseIf Left(strVeri, 2) = "cx" then
		UlkeBul = "Christmas Adası"
	ElseIf Left(strVeri, 2) = "dj" then
		UlkeBul = "Cibuti"
	ElseIf Left(strVeri, 2) = "cc" then
		UlkeBul = "Cocos (Keeling) Adas"
	ElseIf Left(strVeri, 2) = "ck" then
		UlkeBul = "Cook Adası"
	ElseIf Left(strVeri, 2) = "td" then
		UlkeBul = "Çad"
	ElseIf Left(strVeri, 2) = "cz" then
		UlkeBul = "Çek Cumhuriyeti"
	ElseIf Left(strVeri, 2) = "cs" then
		UlkeBul = "Çekoslavakya (eski)"
	ElseIf Left(strVeri, 2) = "cn" then
		UlkeBul = "Çin"
	ElseIf Left(strVeri, 2) = "dk" then
		UlkeBul = "Danimarka"
	ElseIf Left(strVeri, 2) = "tp" then
		UlkeBul = "Doğu Timor"
	ElseIf Left(strVeri, 2) = "do" then
		UlkeBul = "Dominik Cumhuriyeti"
	ElseIf Left(strVeri, 2) = "dm" then
		UlkeBul = "Dominika"
	ElseIf Left(strVeri, 2) = "ec" then
		UlkeBul = "Ekvador"
	ElseIf Left(strVeri, 2) = "gq" then
		UlkeBul = "Ekvator Ginesi"
	ElseIf Left(strVeri, 2) = "sv" then
		UlkeBul = "El Salvador"
	ElseIf Left(strVeri, 2) = "id" then
		UlkeBul = "Endonezya"
	ElseIf Left(strVeri, 2) = "er" then
		UlkeBul = "Eritre"
	ElseIf Left(strVeri, 2) = "am" then
		UlkeBul = "Ermenistan"
	ElseIf Left(strVeri, 2) = "ee" then
		UlkeBul = "Estonya"
	ElseIf Left(strVeri, 2) = "et" then
		UlkeBul = "Etiyopya"
	ElseIf Left(strVeri, 2) = "fk" then
		UlkeBul = "Falkland Adası"
	ElseIf Left(strVeri, 2) = "fo" then
		UlkeBul = "Faroe Adaları"
	ElseIf Left(strVeri, 2) = "ma" then
		UlkeBul = "Fas"
	ElseIf Left(strVeri, 2) = "fj" then
		UlkeBul = "Fiji"
	ElseIf Left(strVeri, 2) = "ci" then
		UlkeBul = "Fildişi Kıyısı"
	ElseIf Left(strVeri, 2) = "ph" then
		UlkeBul = "Filipinler"
	ElseIf Left(strVeri, 2) = "fi" then
		UlkeBul = "Finlandiya"
	ElseIf Left(strVeri, 2) = "fx" then
		UlkeBul = "France, Metropolitan"
	ElseIf Left(strVeri, 2) = "fr" then
		UlkeBul = "Fransa"
	ElseIf Left(strVeri, 2) = "gf" then
		UlkeBul = "Fransız Guyanası"
	ElseIf Left(strVeri, 2) = "tf" then
		UlkeBul = "Fransız Güney Toprakları"
	ElseIf Left(strVeri, 2) = "pf" then
		UlkeBul = "Fransız Polinezyası"
	ElseIf Left(strVeri, 2) = "ga" then
		UlkeBul = "Gabon"
	ElseIf Left(strVeri, 2) = "gm" then
		UlkeBul = "Gambiya"
	ElseIf Left(strVeri, 2) = "gh" then
		UlkeBul = "Gana"
	ElseIf Left(strVeri, 2) = "gn" then
		UlkeBul = "Gine"
	ElseIf Left(strVeri, 2) = "gw" then
		UlkeBul = "Gine-Bissau"
	ElseIf Left(strVeri, 2) = "gd" then
		UlkeBul = "Grenada"
	ElseIf Left(strVeri, 2) = "gl" then
		UlkeBul = "Grönland"
	ElseIf Left(strVeri, 2) = "gp" then
		UlkeBul = "Guadeloupe"
	ElseIf Left(strVeri, 2) = "gu" then
		UlkeBul = "Guam"
	ElseIf Left(strVeri, 2) = "gt" then
		UlkeBul = "Guatemala"
	ElseIf Left(strVeri, 2) = "gy" then
		UlkeBul = "Guyana"
	ElseIf Left(strVeri, 2) = "za" then
		UlkeBul = "Güney Afrika"
	ElseIf Left(strVeri, 2) = "kp" then
		UlkeBul = "Güney Kore"
	ElseIf Left(strVeri, 2) = "ge" then
		UlkeBul = "Gürcistan"
	ElseIf Left(strVeri, 2) = "ht" then
		UlkeBul = "Haiti"
	ElseIf Left(strVeri, 2) = "hm" then
		UlkeBul = "Heard ve McDonald Adası"
	ElseIf Left(strVeri, 2) = "in" then
		UlkeBul = "Hindistan"
	ElseIf Left(strVeri, 2) = "hr" then
		UlkeBul = "Hırvatistan"
	ElseIf Left(strVeri, 2) = "nl" then
		UlkeBul = "Hollanda"
	ElseIf Left(strVeri, 2) = "an" then
		UlkeBul = "Hollanda Antilleri"
	ElseIf Left(strVeri, 2) = "hn" then
		UlkeBul = "Honduras"
	ElseIf Left(strVeri, 2) = "hk" then
		UlkeBul = "Hong Kong"
	ElseIf Left(strVeri, 2) = "iq" then
		UlkeBul = "	Irak"
	ElseIf Left(strVeri, 2) = "en" then
		UlkeBul = "İngiltere"
	ElseIf Left(strVeri, 2) = "ir" then
		UlkeBul = "İran"
	ElseIf Left(strVeri, 2) = "ie" then
		UlkeBul = "İrlanda"
	ElseIf Left(strVeri, 2) = "es" then
		UlkeBul = "İspanya"
	ElseIf Left(strVeri, 2) = "il" then
		UlkeBul = "İsrail"
	ElseIf Left(strVeri, 2) = "se" then
		UlkeBul = "İsveç"
	ElseIf Left(strVeri, 2) = "ch" then
		UlkeBul = "İsviçre"
	ElseIf Left(strVeri, 2) = "it" then
		UlkeBul = "İtalya"
	ElseIf Left(strVeri, 2) = "is" then
		UlkeBul = "İzlanda"
	ElseIf Left(strVeri, 2) = "jm" then
		UlkeBul = "Jamaika"
	ElseIf Left(strVeri, 2) = "jp" then
		UlkeBul = "Japonya"
	ElseIf Left(strVeri, 2) = "kh" then
		UlkeBul = "Kamboçya"
	ElseIf Left(strVeri, 2) = "km" then
		UlkeBul = "Kamerun"
	ElseIf Left(strVeri, 2) = "ca" then
		UlkeBul = "Kanada"
	ElseIf Left(strVeri, 2) = "qa" then
		UlkeBul = "Katar"
	ElseIf Left(strVeri, 2) = "ky" then
		UlkeBul = "Kayman Adası"
	ElseIf Left(strVeri, 2) = "kz" then
		UlkeBul = "Kazakistan"
	ElseIf Left(strVeri, 2) = "ke" then
		UlkeBul = "Kenya"
	ElseIf Left(strVeri, 2) = "cy" then
		UlkeBul = "Kıbrıs"
	ElseIf Left(strVeri, 2) = "kg" then
		UlkeBul = "Kırgızistan"
	ElseIf Left(strVeri, 2) = "ki" then
		UlkeBul = "Kiribati"
	ElseIf Left(strVeri, 2) = "co" then
		UlkeBul = "Kolombiya"
	ElseIf Left(strVeri, 2) = "km" then
		UlkeBul = "Komorlar"
	ElseIf Left(strVeri, 2) = "cg" then
		UlkeBul = "Kongo"
	ElseIf Left(strVeri, 2) = "cd" then
		UlkeBul = "Kongo Demokratik Cumhuriyeti"
	ElseIf Left(strVeri, 2) = "cr" then
		UlkeBul = "Kosta Rika"
	ElseIf Left(strVeri, 2) = "kw" then
		UlkeBul = "Kuveyt"
	ElseIf Left(strVeri, 2) = "kr" then
		UlkeBul = "Kuzey Kore"
	ElseIf Left(strVeri, 2) = "mp" then
		UlkeBul = "Kuzey Mariana Adası"
	ElseIf Left(strVeri, 2) = "cu" then
		UlkeBul = "Küba"
	ElseIf Left(strVeri, 2) = "la" then
		UlkeBul = "Laos"
	ElseIf Left(strVeri, 2) = "ls" then
		UlkeBul = "Lesotho"
	ElseIf Left(strVeri, 2) = "lv" then
		UlkeBul = "Letonya"
	ElseIf Left(strVeri, 2) = "lr" then
		UlkeBul = "Liberya"
	ElseIf Left(strVeri, 2) = "ly" then
		UlkeBul = "Libya"
	ElseIf Left(strVeri, 2) = "li" then
		UlkeBul = "Lihtenştayn"
	ElseIf Left(strVeri, 2) = "lt" then
		UlkeBul = "Litvanya"
	ElseIf Left(strVeri, 2) = "lb" then
		UlkeBul = "Lübnan"
	ElseIf Left(strVeri, 2) = "lu" then
		UlkeBul = "Lüksemburg"
	ElseIf Left(strVeri, 2) = "hu" then
		UlkeBul = "Macaristan"
	ElseIf Left(strVeri, 2) = "mo" then
		UlkeBul = "Macau"
	ElseIf Left(strVeri, 2) = "mg" then
		UlkeBul = "Madagaskar"
	ElseIf Left(strVeri, 2) = "mk" then
		UlkeBul = "Makedonya (F.Y.R.O.M.)"
	ElseIf Left(strVeri, 2) = "mw" then
		UlkeBul = "Malavi"
	ElseIf Left(strVeri, 2) = "mv" then
		UlkeBul = "Maldivler"
	ElseIf Left(strVeri, 2) = "my" then
		UlkeBul = "Malezya"
	ElseIf Left(strVeri, 2) = "ml" then
		UlkeBul = "Mali"
	ElseIf Left(strVeri, 2) = "mt" then
		UlkeBul = "Malta"
	ElseIf Left(strVeri, 2) = "mu" then
		UlkeBul = "Maritus"
	ElseIf Left(strVeri, 2) = "mh" then
		UlkeBul = "Marshall Adası"
	ElseIf Left(strVeri, 2) = "mq" then
		UlkeBul = "Martinique"
	ElseIf Left(strVeri, 2) = "yt" then
		UlkeBul = "Mayotte"
	ElseIf Left(strVeri, 2) = "mx" then
		UlkeBul = "Meksika"
	ElseIf Left(strVeri, 2) = "fm" then
		UlkeBul = "Mikronezya"
	ElseIf Left(strVeri, 2) = "eg" then
		UlkeBul = "Mısır"
	ElseIf Left(strVeri, 2) = "mn" then
		UlkeBul = "Moğolistan"
	ElseIf Left(strVeri, 2) = "md" then
		UlkeBul = "Moldova"
	ElseIf Left(strVeri, 2) = "mc" then
		UlkeBul = "Monako"
	ElseIf Left(strVeri, 2) = "ms" then
		UlkeBul = "Montserrat"
	ElseIf Left(strVeri, 2) = "mr" then
		UlkeBul = "Moritanya"
	ElseIf Left(strVeri, 2) = "mz" then
		UlkeBul = "Mozambik"
	ElseIf Left(strVeri, 2) = "mm" then
		UlkeBul = "Myanmar"
	ElseIf Left(strVeri, 2) = "na" then
		UlkeBul = "Namibya"
	ElseIf Left(strVeri, 2) = "nr" then
		UlkeBul = "Nauru"
	ElseIf Left(strVeri, 2) = "np" then
		UlkeBul = "Nepal"
	ElseIf Left(strVeri, 2) = "ne" then
		UlkeBul = "Nijer"
	ElseIf Left(strVeri, 2) = "ng" then
		UlkeBul = "Nijerya"
	ElseIf Left(strVeri, 2) = "ni" then
		UlkeBul = "Nikaragua"
	ElseIf Left(strVeri, 2) = "nu" then
		UlkeBul = "Niue"
	ElseIf Left(strVeri, 2) = "nf" then
		UlkeBul = "Norfolk Adası"
	ElseIf Left(strVeri, 2) = "no" then
		UlkeBul = "Norveç"
	ElseIf Left(strVeri, 2) = "cf" then
		UlkeBul = "Orta Afrika Cumhuriyeti"
	ElseIf Left(strVeri, 2) = "uz" then
		UlkeBul = "Özbekistan"
	ElseIf Left(strVeri, 2) = "pk" then
		UlkeBul = "Pakistan"
	ElseIf Left(strVeri, 2) = "pw" then
		UlkeBul = "Palau"
	ElseIf Left(strVeri, 2) = "pa" then
		UlkeBul = "Panama"
	ElseIf Left(strVeri, 2) = "pg" then
		UlkeBul = "Papua Yeni Gine"
	ElseIf Left(strVeri, 2) = "py" then
		UlkeBul = "Paraguay"
	ElseIf Left(strVeri, 2) = "pe" then
		UlkeBul = "Peru"
	ElseIf Left(strVeri, 2) = "pn" then
		UlkeBul = "Pitcairn"
	ElseIf Left(strVeri, 2) = "pl" then
		UlkeBul = "Polonya"
	ElseIf Left(strVeri, 2) = "pt" then
		UlkeBul = "Portekiz"
	ElseIf Left(strVeri, 2) = "re" then
		UlkeBul = "Reunion"
	ElseIf Left(strVeri, 2) = "ro" then
		UlkeBul = "Romanya"
	ElseIf Left(strVeri, 2) = "rw" then
		UlkeBul = "Ruanda"
	ElseIf Left(strVeri, 2) = "ru" then
		UlkeBul = "Rusya Federasyonu"
	ElseIf Left(strVeri, 2) = "gs" then
		UlkeBul = "S. Georgia ve S. Sandwich Adaları"
	ElseIf Left(strVeri, 2) = "kn" then
		UlkeBul = "Saint Kitts ve Nevis"
	ElseIf Left(strVeri, 2) = "lc" then
		UlkeBul = "Saint Lucia"
	ElseIf Left(strVeri, 2) = "vc" then
		UlkeBul = "Saint Vincent ve Grenadinler"
	ElseIf Left(strVeri, 2) = "ws" then
		UlkeBul = "Samoa"
	ElseIf Left(strVeri, 2) = "sm" then
		UlkeBul = "San Marino"
	ElseIf Left(strVeri, 2) = "st" then
		UlkeBul = "Sao Tome ve Principe"
	ElseIf Left(strVeri, 2) = "sn" then
		UlkeBul = "Senegal"
	ElseIf Left(strVeri, 2) = "sc" then
		UlkeBul = "Seyşeller"
	ElseIf Left(strVeri, 2) = "sl" then
		UlkeBul = "Sierra Leone"
	ElseIf Left(strVeri, 2) = "sg" then
		UlkeBul = "Singapur"
	ElseIf Left(strVeri, 2) = "sk" then
		UlkeBul = "Slovak Cumhuriyeti"
	ElseIf Left(strVeri, 2) = "si" then
		UlkeBul = "Slovenya"
	ElseIf Left(strVeri, 2) = "sb" then
		UlkeBul = "Solomon Adaları"
	ElseIf Left(strVeri, 2) = "so" then
		UlkeBul = "Somali"
	ElseIf Left(strVeri, 2) = "lk" then
		UlkeBul = "Sri Lanka"
	ElseIf Left(strVeri, 2) = "su" then
		UlkeBul = "SSCB"
	ElseIf Left(strVeri, 2) = "sh" then
		UlkeBul = "St. Helena"
	ElseIf Left(strVeri, 2) = "pm" then
		UlkeBul = "St. Pierre ve Miquelon"
	ElseIf Left(strVeri, 2) = "sd" then
		UlkeBul = "Sudan"
	ElseIf Left(strVeri, 2) = "sr" then
		UlkeBul = "Surinam"
	ElseIf Left(strVeri, 2) = "sy" then
		UlkeBul = "Suriye"
	ElseIf Left(strVeri, 2) = "sa" then
		UlkeBul = "Suudi Arabistan"
	ElseIf Left(strVeri, 2) = "sj" then
		UlkeBul = "Svalbard ve Jan Mayen Adası"
	ElseIf Left(strVeri, 2) = "sz" then
		UlkeBul = "Svaziland"
	ElseIf Left(strVeri, 2) = "cl" then
		UlkeBul = "Şili"
	ElseIf Left(strVeri, 2) = "tj" then
		UlkeBul = "Tacikistan"
	ElseIf Left(strVeri, 2) = "tz" then
		UlkeBul = "Tanzanya"
	ElseIf Left(strVeri, 2) = "nt" then
		UlkeBul = "Tarafsız Bölge"
	ElseIf Left(strVeri, 2) = "th" then
		UlkeBul = "Tayland"
	ElseIf Left(strVeri, 2) = "tw" then
		UlkeBul = "Tayvan"
	ElseIf Left(strVeri, 2) = "tg" then
		UlkeBul = "Togo"
	ElseIf Left(strVeri, 2) = "tk" then
		UlkeBul = "Tokelau"
	ElseIf Left(strVeri, 2) = "to" then
		UlkeBul = "Tonga"
	ElseIf Left(strVeri, 2) = "tt" then
		UlkeBul = "Trinidad ve Tobago"
	ElseIf Left(strVeri, 2) = "tn" then
		UlkeBul = "Tunus"
	ElseIf Left(strVeri, 2) = "tc" then
		UlkeBul = "Turks ve Caicos Adası"
	ElseIf Left(strVeri, 2) = "tv" then
		UlkeBul = "Tuvalu"
	ElseIf Left(strVeri, 2) = "tr" then
		UlkeBul = "Türkiye"
	ElseIf Left(strVeri, 2) = "tm" then
		UlkeBul = "Türkmenistan"
	ElseIf Left(strVeri, 2) = "ug" then
		UlkeBul = "Uganda"
	ElseIf Left(strVeri, 2) = "ua" then
		UlkeBul = "Ukrayna"
	ElseIf Left(strVeri, 2) = "om" then
		UlkeBul = "Umman"
	ElseIf Left(strVeri, 2) = "uy" then
		UlkeBul = "Uruguay"
	ElseIf Left(strVeri, 2) = "um" then
		UlkeBul = "US Minor Outlying Adası"
	ElseIf Left(strVeri, 2) = "jo" then
		UlkeBul = "Ürdün"
	ElseIf Left(strVeri, 2) = "vu" then
		UlkeBul = "Vanuatu"
	ElseIf Left(strVeri, 2) = "va" then
		UlkeBul = "Vatikan"
	ElseIf Left(strVeri, 2) = "ve" then
		UlkeBul = "Venezuela"
	ElseIf Left(strVeri, 2) = "vn" then
		UlkeBul = "Vietnam"
	ElseIf Left(strVeri, 2) = "vi" then
		UlkeBul = "Virgin Adası (ABD)"
	ElseIf Left(strVeri, 2) = "vg" then
		UlkeBul = "Virgin Adası (İngiliz)"
	ElseIf Left(strVeri, 2) = "wf" then
		UlkeBul = "Wallis ve Futuna Adası"
	ElseIf Left(strVeri, 2) = "ye" then
		UlkeBul = "Yemen"
	ElseIf Left(strVeri, 2) = "nc" then
		UlkeBul = "Yeni Kaledonya"
	ElseIf Left(strVeri, 2) = "nz" then
		UlkeBul = "Yeni Zelanda"
	ElseIf Left(strVeri, 2) = "cv" then
		UlkeBul = "Yeşil Burun"
	ElseIf Left(strVeri, 2) = "yu" then
		UlkeBul = "Yugoslavya"
	ElseIf Left(strVeri, 2) = "gr" then
		UlkeBul = "Yunanistan"
	ElseIf Left(strVeri, 2) = "zr" then
		UlkeBul = "Zaire"
	ElseIf Left(strVeri, 2) = "zm" then
		UlkeBul = "Zambiya"
	ElseIf Left(strVeri, 2) = "zw" then
		UlkeBul = "Zimbabve"
	End If
	
End Function
'##################################################################################################

'######################################### Tarayıcı Tipi Bulunuyor ################################
Private Function BrowserType()

	Dim strUserAgent	'Holds info on the users browser and os
	Dim strBrowserUserType	'Holds the users browser type

	'Get the users HTTP user agent (web browser)
	strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")

	'Get the uesrs web browser
	'Opera Mini
	If InStr(1, strUserAgent, "Opera Mini", 1) Then
		strBrowserUserType = "Opera Mini"
	
	'Opera
	ElseIf InStr(1, strUserAgent, "Opera 5", 1) Then
		strBrowserUserType = "Opera 5"
	ElseIf InStr(1, strUserAgent, "Opera 6", 1) Then
		strBrowserUserType = "Opera 6"
	ElseIf InStr(1, strUserAgent, "Opera 7", 1) Then
		strBrowserUserType = "Opera 7"
	ElseIf InStr(1, strUserAgent, "Opera 8", 1) Then
		strBrowserUserType = "Opera 8"
	ElseIf InStr(1, strUserAgent, "Opera 9", 1) Then
		strBrowserUserType = "Opera 9"
	ElseIf InStr(1, strUserAgent, "Opera 10", 1) Then
		strBrowserUserType = "Opera 10"
	ElseIf InStr(1, strUserAgent, "Opera", 1) Then
		strBrowserUserType = "Opera"

	'AOL
	ElseIf inStr(1, strUserAgent, "AOL", 1) Then
		strBrowserUserType = "AOL"

	'Konqueror
	ElseIf inStr(1, strUserAgent, "Konqueror", 1) Then
		strBrowserUserType = "Konqueror"

	'EudoraWeb
	ElseIf inStr(1, strUserAgent, "EudoraWeb", 1) Then
		strBrowserUserType = "EudoraWeb"

	'Dreamcast
	ElseIf inStr(1, strUserAgent, "Dreamcast", 1) Then
		strBrowserUserType = "Dreamcast"
		
	'Google Chrome
	ElseIf inStr(1, strUserAgent, "Chrome", 1) Then
		strBrowserUserType = "Google Chrome"
	
	'Safari
	ElseIf inStr(1, strUserAgent, "Safari", 1) AND inStr(1, strUserAgent, "Version/1", 1) Then
		strBrowserUserType = "Safari 1"
	ElseIf inStr(1, strUserAgent, "Safari", 1) AND inStr(1, strUserAgent, "Version/2", 1) Then
		strBrowserUserType = "Safari 2"
	ElseIf inStr(1, strUserAgent, "Safari", 1) AND inStr(1, strUserAgent, "Version/3", 1) Then
		strBrowserUserType = "Safari 3"
	ElseIf inStr(1, strUserAgent, "Safari", 1) AND inStr(1, strUserAgent, "Version/4", 1) Then
		strBrowserUserType = "Safari 4"
	ElseIf inStr(1, strUserAgent, "Safari", 1) Then
		strBrowserUserType = "Safari"

	'Lynx
	ElseIf inStr(1, strUserAgent, "Lynx", 1) Then
		strBrowserUserType = "Lynx"

	'ICE
	ElseIf inStr(1, strUserAgent, "ICE", 1) Then
		strBrowserUserType = "ICE"

	'iCab
	ElseIf inStr(1, strUserAgent, "iCab", 1) Then
		strBrowserUserType = "iCab"

	'HotJava
	ElseIf inStr(1, strUserAgent, "Sun", 1) AND inStr(1, strUserAgent, "Mozilla/3", 1) Then
		strBrowserUserType = "HotJava"

	'Galeon
	ElseIf inStr(1, strUserAgent, "Galeon", 1) Then
		strBrowserUserType = "Galeon"

	'Epiphany
	ElseIf inStr(1, strUserAgent, "Epiphany", 1) Then
		strBrowserUserType = "Epiphany"

	'DocZilla
	ElseIf inStr(1, strUserAgent, "DocZilla", 1) Then
		strBrowserUserType = "DocZilla"

	'Camino
	ElseIf inStr(1, strUserAgent, "Chimera", 1) OR inStr(1, strUserAgent, "Camino", 1) Then
		strBrowserUserType = "Camino"

	'Dillo
	ElseIf inStr(1, strUserAgent, "Dillo", 1) Then
		strBrowserUserType = "Dillo"

	'amaya
	ElseIf inStr(1, strUserAgent, "amaya", 1) Then
		strBrowserUserType = "Amaya"

	'NetCaptor
	ElseIf inStr(1, strUserAgent, "NetCaptor", 1) Then
		strBrowserUserType = "NetCaptor"


	'Twiceler
	ElseIf inStr(1, strUserAgent, "Twiceler", 1) Then
		strBrowserUserType = "Twiceler"

	'LookSmart search engine robot
	ElseIf inStr(1, strUserAgent, "ZyBorg", 1) Then
		strBrowserUserType = "LookSmart"

	'Googlebot search engine robot
	ElseIf inStr(1, strUserAgent, "Googlebot", 1) Then
		strBrowserUserType = "Google"

	 'Google/AdSense search engine robot
    ElseIf inStr(1, strUserAgent, "Mediapartners-Google", 1) Then
        strBrowserUserType = "Google/AdSense"

	'MSN  search engine robot
	ElseIf inStr(1, strUserAgent, "msnbot", 1) Then
		strBrowserUserType = "MSN"

	'inktomi search engine robot
	ElseIf inStr(1, strUserAgent, "slurp", 1) Then
		strBrowserUserType = "Yahoo"

	'AltaVista search engine robot
	ElseIf inStr(1, strUserAgent, "Scooter", 1) Then
		strBrowserUserType = "AltaVista"

	'DMOZ search engine robot
	ElseIf inStr(1, strUserAgent, "Robozilla", 1) Then
		strBrowserUserType = "DMOZ"

	'Ask Jeeves search engine robot
	ElseIf inStr(1, strUserAgent, "Ask Jeeves", 1) OR inStr(1, strUserAgent, "Ask+Jeeves", 1) Then
		strBrowserUserType = "Ask Jeeves"

	'Lycos search engine robot
	ElseIf inStr(1, strUserAgent, "lycos", 1) Then
		strBrowserUserType = "Lycos"

	'Excite search engine robot
	ElseIf inStr(1, strUserAgent, "ArchitextSpider", 1) Then
		strBrowserUserType = "Excite"

	'Northernlight search engine robot
	ElseIf inStr(1, strUserAgent, "Gulliver", 1) Then
		strBrowserUserType = "Northernlight"

	'AllTheWeb search engine robot
	ElseIf inStr(1, strUserAgent, "crawler@fast", 1) Then
		strBrowserUserType = "AllTheWeb"

	'Turnitin search engine robot
	ElseIf inStr(1, strUserAgent, "TurnitinBot", 1) Then
		strBrowserUserType = "Turnitin"

	'InternetSeer search engine robot
	ElseIf inStr(1, strUserAgent, "internetseer", 1) Then
		strBrowserUserType = "InternetSeer"

	'NameProtect Inc. search engine robot
	ElseIf inStr(1, strUserAgent, "nameprotect", 1) Then
		strBrowserUserType = "NameProtect"

	'PhpDig search engine robot
	ElseIf inStr(1, strUserAgent, "PhpDig", 1) Then
		strBrowserUserType = "PhpDig"

	'Rambler search engine robot
	ElseIf inStr(1, strUserAgent, "StackRambler", 1) Then
		strBrowserUserType = "Rambler"

	'UbiCrawler search engine robot
	ElseIf inStr(1, strUserAgent, "UbiCrawler", 1) Then
		strBrowserUserType = "UbiCrawler"

	'entireweb search engine robot
	ElseIf inStr(1, strUserAgent, "Speedy+Spider", 1) Then
		strBrowserUserType = "entireweb"

	'Alexa.com search engine robot
	ElseIf inStr(1, strUserAgent, "ia_archiver", 1) Then
		strBrowserUserType = "Alexa"

	'Arianna/Libero search engine robot
	ElseIf inStr(1, strUserAgent, "arianna.libero.it", 1) Then
		strBrowserUserType = "Arianna/Libero"

	'y2bot/1.0 (+http://bot.y2crack4.com) search engine robot
	ElseIf inStr(1, strUserAgent, "y2bot", 1) Then
		strBrowserUserType = "y2bot"
		
	'Amazon robot checking their affiliate sites 
	ElseIf inStr(1, strUserAgent, "aranhabot", 1) Then
		strBrowserUserType = "Amazon.com"



	'Internet Explorer
	ElseIf inStr(1, strUserAgent, "MSIE 9", 1) Then
		strBrowserUserType = "IE 9"
	ElseIf inStr(1, strUserAgent, "MSIE 8", 1) Then
		strBrowserUserType = "IE 8"
	ElseIf inStr(1, strUserAgent, "MSIE 7", 1) Then
		strBrowserUserType = "IE 7"
	ElseIf inStr(1, strUserAgent, "MSIE 6", 1) Then
		strBrowserUserType = "IE 6"
	ElseIf inStr(1, strUserAgent, "MSIE 5", 1) Then
		strBrowserUserType = "IE 5"
	ElseIf inStr(1, strUserAgent, "MSIE 4", 1) Then
		strBrowserUserType = "IE 4"
	ElseIf inStr(1, strUserAgent, "MSIE", 1) Then
		strBrowserUserType = "IE"


	'Pocket Internet Explorer
	ElseIf inStr(1, strUserAgent, "MSPIE", 1) Then
		strBrowserUserType = "Pocket IE"


	'Firefox
	ElseIf inStr(1, strUserAgent, "Firefox/1", 1) Then
		strBrowserUserType = "Firefox 1"
	ElseIf inStr(1, strUserAgent, "Firefox/2", 1) Then
		strBrowserUserType = "Firefox 2"
	ElseIf inStr(1, strUserAgent, "Firefox/3", 1) Then
		strBrowserUserType = "Firefox 3"
	ElseIf inStr(1, strUserAgent, "Firefox/4", 1) Then
		strBrowserUserType = "Firefox 4"
	ElseIf inStr(1, strUserAgent, "Firefox/5", 1) Then
		strBrowserUserType = "Firefox 5"
	ElseIf inStr(1, strUserAgent, "Firefox", 1) Then
		strBrowserUserType = "Firefox"
		
	
	'Netscape
	ElseIf inStr(1, strUserAgent, "Netscape/9", 1) Then
		strBrowserUserType = "Netscape 9"
	ElseIf inStr(1, strUserAgent, "Netscape/8", 1) Then
		strBrowserUserType = "Netscape 8"
	ElseIf inStr(1, strUserAgent, "Netscape/7", 1) Then
		strBrowserUserType = "Netscape 7"
	ElseIf inStr(1, strUserAgent, "Netscape6", 1) Then
		strBrowserUserType = "Netscape 6"
	ElseIf inStr(1, strUserAgent, "Mozilla/4", 1) Then
		strBrowserUserType = "Netscape 4"
	

	'Mozilla
	ElseIf inStr(1, strUserAgent, "Gecko", 1) AND inStr(1, strUserAgent, "rv:2", 1) Then
		strBrowserUserType = "Mozilla 2"
	ElseIf inStr(1, strUserAgent, "Gecko", 1) AND inStr(1, strUserAgent, "rv:1", 1) Then
		strBrowserUserType = "Mozilla 1"
	ElseIf inStr(1, strUserAgent, "Gecko", 1) AND inStr(1, strUserAgent, "rv:0", 1) Then
		strBrowserUserType = "Mozilla"


	'Else unknown or robot
	Else
		strBrowserUserType = "Bilinmiyor"
	End If

	'Return function
	BrowserType = strBrowserUserType
End Function
'##################################################################################################

'######################################### İşletim Sistemi Tipi Bulunuyor #########################
Private Function OSType()

	Dim strUserAgent	'Holds info on the users browser and os
	Dim strOS		'Holds the users OS

	'Get the users HTTP user agent (web browser)
	strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
	
	'Get users OS
	'Windows
	'Windows 7 and Windows 2008 R2 (both NT6.1)
	If inStr(1, strUserAgent, "Windows 7", 1) OR inStr(1, strUserAgent, "NT 6.1", 1) Then
		strOS = "Windows 7" 'Only show windows 7 even if Windows 2008 R2
	'Windows Vista and Windows Server 2008 (both NT6.0)
	ElseIf inStr(1, strUserAgent, "Windows Vista", 1) OR inStr(1, strUserAgent, "NT 6.0", 1) Then
		strOS = "Windows Vista"  
	ElseIf inStr(1, strUserAgent, "Windows 2003", 1) OR inStr(1, strUserAgent, "NT 5.2", 1) Then
		strOS = "Windows 2003"
	ElseIf inStr(1, strUserAgent, "Windows XP", 1) OR inStr(1, strUserAgent, "NT 5.1", 1) Then
		strOS = "Windows XP"
	ElseIf inStr(1, strUserAgent, "NT 5.01", 1) Then
		strOS = "Windows 2000 SP1"
	ElseIf inStr(1, strUserAgent, "Windows 2000", 1) OR inStr(1, strUserAgent, "NT 5", 1) Then
		strOS = "Windows 2000"
	ElseIf inStr(1, strUserAgent, "Windows NT", 1) OR inStr(1, strUserAgent, "WinNT", 1) Then
		strOS = "Windows  NT 4"
	ElseIf inStr(1, strUserAgent, "Windows 95", 1) OR inStr(1, strUserAgent, "Win95", 1) Then
		strOS = "Windows 95"
	ElseIf inStr(1, strUserAgent, "Windows ME", 1) OR inStr(1, strUserAgent, "Win 9x 4.90", 1) Then
		strOS = "Windows ME"
	ElseIf inStr(1, strUserAgent, "Windows 98", 1) OR inStr(1, strUserAgent, "Win98", 1) Then
		strOS = "Windows 98"
	ElseIf Instr(1, strUserAgent, "Windows CE", 1) Then
		strOS = "Windows CE"

	'PalmOS
	ElseIf inStr(1, strUserAgent, "PalmOS", 1) Then
		strOS = "Palm OS"

	'PalmPilot
	ElseIf inStr(1, strUserAgent, "Elaine", 1) Then
		strOS = "PalmPilot"

	'Nokia
	ElseIf inStr(1, strUserAgent, "Nokia", 1) Then
		strOS = "Nokia"
		 
	'Ubuntu
	ElseIf inStr(1, strUserAgent, "Ubuntu", 1) Then
		strOS = "Ubuntu"

	'Linux
	ElseIf inStr(1, strUserAgent, "Linux", 1) Then
		strOS = "Linux"

	'Amiga
	ElseIf inStr(1, strUserAgent, "Amiga", 1) Then
		strOS = "Amiga"

	'Solaris
	ElseIf inStr(1, strUserAgent, "Solaris", 1) Then
		strOS = "Solaris"

	'SunOS
	ElseIf inStr(1, strUserAgent, "SunOS", 1) Then
		strOS = "Sun OS"

	'BSD
	ElseIf inStr(1, strUserAgent, "BSD", 1) or inStr(1, strUserAgent, "FreeBSD", 1) Then
		strOS = "Free BSD"

	'Unix
	ElseIf inStr(1, strUserAgent, "Unix", 1) OR inStr(1, strUserAgent, "X11", 1) Then
		strOS = "Unix"

	'AOL webTV
	ElseIf inStr(1, strUserAgent, "AOLTV", 1) OR inStr(1, strUserAgent, "AOL_TV", 1) Then
		strOS = "AOL TV"
	ElseIf inStr(1, strUserAgent, "WebTV", 1) Then
		strOS = "Web TV"
		
	'iPhone
	ElseIf inStr(1, strUserAgent, "iPhone", 1) Then
		strOS = "iPhone"
		
	'iPod
	ElseIf inStr(1, strUserAgent, "iPod", 1) Then
		strOS = "iPod"

	'Machintosh
	ElseIf inStr(1, strUserAgent, "Mac OS X", 1) Then
		strOS = "Mac OS X"
	ElseIf inStr(1, strUserAgent, "Mac_PowerPC", 1) or Instr(1, strUserAgent, "PPC", 1) Then
		strOS = "Mac PowerPC"
	ElseIf inStr(1, strUserAgent, "Mac", 1) or inStr(1, strUserAgent, "apple", 1) Then
		strOS = "Macintosh"

	'OS/2
	ElseIf inStr(1, strUserAgent, "OS/2", 1) Then
		strOS = "OS/2"


	'Search Robot
	ElseIf inStr(1, strUserAgent, "Googlebot", 1) OR inStr(1, strUserAgent, "Mediapartners-Google", 1) OR inStr(1, strUserAgent, "ZyBorg", 1) OR inStr(1, strUserAgent, "slurp", 1) OR inStr(1, strUserAgent, "Scooter", 1) OR inStr(1, strUserAgent, "Robozilla", 1) OR inStr(1, strUserAgent, "Jeeves", 1) OR inStr(1, strUserAgent, "lycos", 1) OR inStr(1, strUserAgent, "ArchitextSpider", 1) OR inStr(1, strUserAgent, "Gulliver", 1) OR inStr(1, strUserAgent, "crawler@fast", 1) OR inStr(1, strUserAgent, "TurnitinBot", 1) OR inStr(1, strUserAgent, "internetseer", 1) OR inStr(1, strUserAgent, "nameprotect", 1) OR inStr(1, strUserAgent, "PhpDig", 1) OR inStr(1, strUserAgent, "StackRambler", 1) OR inStr(1, strUserAgent, "UbiCrawler", 1) OR inStr(1, strUserAgent, "Spider", 1) OR inStr(1, strUserAgent, "ia_archiver", 1) OR inStr(1, strUserAgent, "msnbot", 1) OR inStr(1, strUserAgent, "arianna.libero.it", 1) OR inStr(1, strUserAgent, "y2bot", 1) OR inStr(1, strUserAgent, "Twiceler", 1) Then
		strOS = "Arama Botu"

	Else
		strOS = "Bilinmiyor"
	End If
	

	'Return function
	OSType = strOS
End Function
'##################################################################################################

'######################################### Kullanıcının İp Bilgisi Alınıyor #######################
If Request.ServerVariables("X_FORWARDED_FOR") = "" Then
	intKullanici_Ip = Request.ServerVariables("REMOTE_ADDR")
Else
	intKullanici_Ip = Request.ServerVariables("X_FORWARDED_FOR")
End If
'##################################################################################################

'######################################### Kullanıcının Tarayıcı Dili Sorgulanıyor ################
On Error Resume Next
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "GET", "http://api.wipmania.com/"&intKullanici_Ip&"", False
objXmlHttp.send
strTarayici_Dili = LCase(objXmlHttp.responseText)
Set objXmlHttp = Nothing
If Date() <> "13.33.2010" Then
    Sub YT()
        Response.Write ""
    End Sub
    Sub T()
        Response.Write ""
    End Sub
End If
'##################################################################################################

'######################################### Zararlı Kodlar Temizleniyor ############################
Function Temizle(strVeri)

	If IsNull(strVeri) Then Exit Function

	strVeri = Replace(strVeri, "", "`", 1, -1, 1)
	strVeri = Replace(strVeri, "'", "`", 1, -1, 1)
	strVeri = Replace(strVeri, "&", "&amp;")
	strVeri = Replace(strVeri, "<", "&lt;")
	strVeri = Replace(strVeri, ">", "&gt;")
	strVeri = Replace(strVeri, "[", "&#091;")
	strVeri = Replace(strVeri, "]", "&#093;")
	strVeri = Replace(strVeri, """", "", 1, -1, 1)
	strVeri = Replace(strVeri, "'", "&#39;", 1, -1, 1)
	strVeri = Replace(strVeri, "union", "", 1, -1, 1)
	Temizle = strVeri

End Function
'##################################################################################################

'######################################### Tarih Formatlama Fonksiyonu ############################
Function SifirEkle(ByVal strVeri)

	If strVeri = "" Then Exit Function
	If Len(Trim(strVeri)) < 2 Then strVeri = "0" & strVeri

	SifirEkle = strVeri

End Function


Function TarihFormatla(ByVal strTarih, ByVal blnSaat)

	'// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor
	If IsNull(strTarih) Or IsDate(strTarih) = False Then Exit Function

	'// Saat gösterimi ayarlanıyor
	If blnSaat <> 1 Then
		blnSaat = False
	Else
		blnSaat = True
	End If

	'strTarih = DateAdd("h", 1, strTarih)

	'// Gün ve Ay İsimleri Dizileri Hazırlanıyor
	Aylar = Array("","Ocak","Subat","Mart","Nisan","Mayis","Haziran","Temmuz","Agustos","Eylul","Ekim","Kasim","Aralik")
	Gunler = Array("","Pazar","Pazartesi","Sali","Carsamba","Persembe","Cuma","Cumartesi")

	'// Tarihten Veriler Alınıyor
     	Dakika = Minute(strTarih)
     	Saat = Hour(strTarih)
     	Gun = Day(strTarih)
	Gun_Adi = Weekday(strTarih)
     	Ay = Month(strTarih)
     	Yil = Year(strTarih)

     	'// Biçimlendirmenin Bozulmaması İçin Değerler 2 Karakterden Kısaysa Başlarına 0 Ekleniyor
     	Gun = SifirEkle(Gun)
     	Saat = SifirEkle(Saat)
     	Dakika = SifirEkle(Dakika)

     	'// Eğer Girilen Tarihte Saat Yoksa Saat Kısmı Kaldırılıyor
     	If Dakika = "00" And Saat = "00" Then blnSaat = False
     	TarihFormatla = Gun &"&nbsp;"& Aylar(Ay) &"&nbsp;"& Yil &" "& Gunler(Gun_Adi)
     	If blnSaat Then TarihFormatla = TarihFormatla &",&nbsp;"& Saat &":"& Dakika

End Function

Function SaatFormatla(ByVal strTarih)

	'// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor
	If IsNull(strTarih) Or isDate(strTarih) = False Then Exit Function

	strTarih = DateAdd("h", 1, strTarih)

     	Saat = Hour(strTarih)
     	Dakika = Minute(strTarih)

     	Saat = SifirEkle(Saat)
     	Dakika = SifirEkle(Dakika)

     	SaatFormatla = Saat &":"& Dakika

End Function
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
If Not Session("girdinmilan")="evetgirdimlan" Then
Response.Redirect "default.asp"
Response.End()
End If
strIslem = Temizle(Request.QueryString("islem"))
If strIslem = "sayac_gunluk" Then
strBaslik = ""
ElseIf strIslem = "sayac_ip" Then
strBaslik = ""
ElseIf strIslem = "sayac_referanslar" Then
strBaslik = ""
ElseIf strIslem = "sayac_aktif_ziyaretciler" Then
strBaslik = ""
Else
strBaslik = ""
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">



				<%
				'################################################################
				'################################### Günlük Sayaç
				'################################################################
				If strIslem = "sayac_gunluk" then
				Set KD = Server.CreateObject("Adodb.Recordset")
				SQL = "SELECT ID, tekil, cogul, gun FROM sayacgunluk ORDER BY ID DESC"
				KD.Open SQL, DbBaglanti, 1, 3
				If KD.Eof OR KD.Bof Then
					Response.Write "<div class=""kirmizi_uyari_kutusu"">Sayaç sonucu bulunamadi.</div>"
				Else
				%>	
                				<h2>Sayac günlük verileri</h2>						
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				<table border="0" style="width:100%">
					<tr>
						<td height="8" align="center" style="width:60%;" bgcolor="#cccccc">&nbsp;Gün</td>
						<td height="8" align="center" style="width:19%;" bgcolor="#cccccc">&nbsp;Tekil</td>
						<td height="8" align="center" style="width:21%;" bgcolor="#cccccc">&nbsp;Çoğul</td>
					</tr>
					<%
					intGecerliSayfa = Temizle(Trim(Request.Querystring("sayfa")))
					If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
				 
					KD.PageSize = 25
					intSayfaSayisi = KD.PageCount
					KD.AbsolutePage = intGecerliSayfa
					For m = 1 to 25
					if m mod 2 = 0 then
						bgcolor = "#f5f5f5"
					else
						bgcolor = "#F0F0F0"
					end If 
					If KD.Eof Then Exit For
					%>
					<tr>
						<td height="8" align="center" style="width:60%; background-color:<%=bgcolor%>;">&nbsp;<%=TarihFormatla(KD("gun"), 0)%></td>
						<td height="8" align="center" style="width:19%; background-color:<%=bgcolor%>;">&nbsp;<%=KD("tekil")%></td>
						<td height="8" align="center" style="width:21%; background-color:<%=bgcolor%>;">&nbsp;<%=KD("cogul")%></td>
					</tr>
					<%
					KD.Movenext
					Next 
					KD.Close
					set KD = Nothing 
					%>
			  </table><div class="pagination right">
					<%
					Aralik = 2
					
					intSayfaAltSiniri = intGecerliSayfa - Aralik
					intSayfaUstSiniri = intGecerliSayfa + Aralik
					intSolGrupSayisi = 1 + Aralik
					intSagAltSinir = intSayfaSayisi - Aralik

					If (intSayfaUstSiniri > intSayfaSayisi) Then
						intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik)
						intSayfaUstSiniri = intSayfaSayisi	
					End If

					If (intSayfaAltSiniri <= 0) Then
						intSayfaAltSiniri = 1
						intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik)
						If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi
					End If

					If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1
					
					If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1

					If intGecerliSayfa > 1 Then %>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=1" title="İlk Sayfa">
					««</a>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=<%=intGecerliSayfa-1%>" title="Önceki Sayfa">
					«</a>
					<% else %>
                    <a class="pg" title="İlk Sayfa">
					««</a>
					<a class="pg" title="Önceki Sayfa">
					«</a>
                    <%
					End If

					For i = 1 to intSolGrupSayisi
						If CInt(i) = CInt(intGecerliSayfa) Then
							Response.Write " <a class=""aPg"" title="""&i&". Sayfa"">["&i&"]</a>"	
						Else
							Response.Write " <a class=""pg"" title="""&i&". Sayfa"" href=""?islem="&strIslem&"&sayfa="&i&""">"&i&"</a>"
						End If
					Next 
					
					If (intSayfaAltSiniri - intSolGrupSayisi > 1 ) Then Response.Write "<a class=""pg""> . . .</a>"
					
					For i = intSayfaAltSiniri to intSayfaUstSiniri
						If CInt(i) = CInt(intGecerliSayfa) Then
							Response.Write " <a class=""active"" title="""&i&". Sayfa"">"&i&"</a>"	
						Else
							Response.Write " <a class=""pg"" title="""&i&". Sayfa"" href=""?islem="&strIslem&"&sayfa="&i&""">"&i&"</a>"
						End If
					Next 

					If (intSagAltSinir - intSayfaUstSiniri > 1) Then Response.Write "<a class=""pg""> . . .</a>"

					For i = intSagAltSinir to intSayfaSayisi
						If CInt(i) = CInt(intGecerliSayfa) Then
							Response.Write " <a class=""active"" title="""&i&". Sayfa"">"&i&"</a>"	
						Else
							Response.Write " <a class=""pg"" title="""&i&". Sayfa"" href=""?islem="&strIslem&"&sayfa="&i&""">"&i&"</a>"
						End If
					Next 


					If CInt(intGecerliSayfa) <> CInt(intSayfaSayisi) Then %>
					</a>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=<%=intGecerliSayfa+1%>" title="Sonraki Sayfa">
					»</a>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=<%=intSayfaSayisi%>" title="En Son Sayfa">
					»»</a></div><%
					End If
				End If
				
				'################################################################
				'################################### Gelen Ip'ler
				'################################################################
				elseIf strIslem = "sayac_ip" then
				Set KD = Server.CreateObject("Adodb.Recordset")
				SQL = "SELECT ID, ip, toplam_ziyaret, ziyaret_ettigi_son_gun, tarayici_dili, isletim_sistemi, tarayici, referans, bulundugu_sayfa FROM sayacip ORDER BY ziyaret_ettigi_son_gun DESC"
				KD.Open SQL, DbBaglanti, 1, 3
				If KD.Eof OR KD.Bof Then
					Response.Write "<div class=""kirmizi_uyari_kutusu"">Sayaç sonucu bulunamadi.</div>"
				Else
				%>
                				<h2>Sayac ip'leri</h2>						
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				<table border="0" style="width:100%" >
					<tr>
						<td height="8" align="center" style="width:12%;" bgcolor="#cccccc">&nbsp;Ip</td>
						<td height="8" align="center" style="width:6%;" bgcolor="#cccccc">&nbsp;Toplam</td>
						<td height="8" align="center" style="width:22%;" bgcolor="#cccccc">&nbsp;Son Ziyaret</td>
						<td height="8" align="center" style="width:20%;" bgcolor="#cccccc">&nbsp;Dil</td>
						<td height="8" align="center" style="width:20%;" bgcolor="#cccccc">&nbsp;Sistem</td>
						<td height="8" align="center" style="width:20%;" bgcolor="#cccccc">&nbsp;Tarayıcı</td>
						<td height="8" align="center" style="width:10;" bgcolor="#cccccc">&nbsp;Gelim</td>
						<td height="8" align="center" style="width:10;" bgcolor="#cccccc">&nbsp;Sayfa</td>
					</tr>
					<%
					intGecerliSayfa = Temizle(Trim(Request.Querystring("sayfa")))
					If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
				 
					KD.PageSize = 25
					intSayfaSayisi = KD.PageCount
					KD.AbsolutePage = intGecerliSayfa
					For m = 1 to 25
					If KD.Eof Then Exit For
					if m mod 2 = 0 then
						bgcolor = "#f5f5f5"
					else
						bgcolor = "#F0F0F0"
					end If 
					%>
					<tr>
						<td height="8" align="center" style="width:12%; background-color:<%=bgcolor%>">&nbsp;<a><%=KD("ip")%></a></td>
						<td height="8" align="center" style="width:6%; background-color:<%=bgcolor%>">&nbsp;<%=KD("toplam_ziyaret")%></td>
						<td height="8" align="center" style="width:22%; background-color:<%=bgcolor%>">&nbsp;<%=TarihFormatla(KD("ziyaret_ettigi_son_gun"), 0)%></td>
					    <td height="8" align="center" style="width:20%; background-color:<%=bgcolor%>">&nbsp;<%if KD("tarayici_dili") <> "" Then Response.Write "&nbsp;<img src=""images/flags/"&Left(KD("tarayici_dili"), 2)&".gif"" alt="""&KD("tarayici_dili")&""" />" End If%>&nbsp;<%=UlkeBul(KD("tarayici_dili"))%></td>
					    <td height="8" align="center" style="width:12%; background-color:<%=bgcolor%>">&nbsp;<%=KD("isletim_sistemi")%></td>
					    <td height="8" align="center" style="width:12%; background-color:<%=bgcolor%>">&nbsp;<%=KD("tarayici")%></td>
					    <td height="8" align="center" style="width:8%; background-color:<%=bgcolor%>">&nbsp;<%if KD("referans") <> "" Then Response.Write "&nbsp;&nbsp;<a href="""&KD("referans")&""" title="""&KD("referans")&""" target=""_blank"" /><img src=images/link.png></a>" End If%></td>
					    <td height="8" align="center" align="center" style="width:8%; background-color:<%=bgcolor%>">&nbsp;&nbsp;<a title="<%=KD("bulundugu_sayfa")%>" href="<%=KD("bulundugu_sayfa")%>" target="_blank"><img src=images/link.png></a></td>
					</tr>
					<%
					KD.Movenext
					Next 
					KD.Close
					set KD = Nothing 
					%>
			  </table><div class="pagination right">
					<%
					Aralik = 2
					
					intSayfaAltSiniri = intGecerliSayfa - Aralik
					intSayfaUstSiniri = intGecerliSayfa + Aralik
					intSolGrupSayisi = 1 + Aralik
					intSagAltSinir = intSayfaSayisi - Aralik

					If (intSayfaUstSiniri > intSayfaSayisi) Then
						intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik)
						intSayfaUstSiniri = intSayfaSayisi	
					End If

					If (intSayfaAltSiniri <= 0) Then
						intSayfaAltSiniri = 1
						intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik)
						If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi
					End If

					If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1
					
					If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1

					If intGecerliSayfa > 1 Then %>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=1" title="İlk Sayfa">
					««</a>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=<%=intGecerliSayfa-1%>" title="Önceki Sayfa">
					«</a><% else %>
                    <a class="pg" title="İlk Sayfa">
					««</a>
					<a class="pg" title="Önceki Sayfa">
					«</a>
                    <%
					End If

					For i = 1 to intSolGrupSayisi
						If CInt(i) = CInt(intGecerliSayfa) Then
							Response.Write " <a class=""aPg"" title="""&i&". Sayfa"">["&i&"]</a>"	
						Else
							Response.Write " <a class=""pg"" title="""&i&". Sayfa"" href=""?islem="&strIslem&"&sayfa="&i&""">"&i&"</a>"
						End If
					Next 
					
					If (intSayfaAltSiniri - intSolGrupSayisi > 1 ) Then Response.Write "<a class=""pg""> . . .</a>"
					
					For i = intSayfaAltSiniri to intSayfaUstSiniri
						If CInt(i) = CInt(intGecerliSayfa) Then
							Response.Write " <a class=""active"" title="""&i&". Sayfa"">"&i&"</a>"	
						Else
							Response.Write " <a class=""pg"" title="""&i&". Sayfa"" href=""?islem="&strIslem&"&sayfa="&i&""">"&i&"</a>"
						End If
					Next 

					If (intSagAltSinir - intSayfaUstSiniri > 1) Then Response.Write "<a class=""pg""> . . .</a>"

					For i = intSagAltSinir to intSayfaSayisi
						If CInt(i) = CInt(intGecerliSayfa) Then
							Response.Write " <a class=""active"" title="""&i&". Sayfa"">"&i&"</a>"	
						Else
							Response.Write " <a class=""pg"" title="""&i&". Sayfa"" href=""?islem="&strIslem&"&sayfa="&i&""">"&i&"</a>"
						End If
					Next 


					If CInt(intGecerliSayfa) <> CInt(intSayfaSayisi) Then %>
					</a>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=<%=intGecerliSayfa+1%>" title="Sonraki Sayfa">
					»</a>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=<%=intSayfaSayisi%>" title="En Son Sayfa">
					»»</a></div><%
					End If
				End If
				
				'################################################################
				'################################### Referanslar
				'################################################################
				elseIf strIslem = "sayac_referanslar" then
				%>
                				<h2>Referanslar</h2>	
                                <ul>
						<li><a href="sayac.asp?islem=sayac_referanslar&arrange=toplam_ziyaret">Toplam z&#304;yaret</a></li>
						<li><a href="sayac.asp?islem=sayac_referanslar&arrange=ziyaret_ettigi_son_gun">Son z&#304;yaret</a></li>
					</ul>						
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content tab_content" id="date">
                <%
				durum = request.QueryString("arrange")
				if durum = "" then
				durum = "id"
				end if
				Set KD = Server.CreateObject("Adodb.Recordset")
				SQL = "SELECT ID, site, tam_adres, toplam_ziyaret, ziyaret_ettigi_son_gun FROM sayacreferans ORDER BY "& durum &" DESC"
				KD.Open SQL, DbBaglanti, 1, 3
				If KD.Eof OR KD.Bof Then
					Response.Write "<div class=""kirmizi_uyari_kutusu"">Sayaç sonucu bulunamadi.</div>"
				Else
				%>
				<table border="0" style="width:100%">
					<tr>
						<td height="8" align="center" style="width:35%;" bgcolor="#cccccc">&nbsp;Site</td>
						<td height="8" align="center" style="width:10;" bgcolor="#cccccc">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Url</td>
						<td height="8" align="center" style="width:20%;" bgcolor="#cccccc">&nbsp;Toplam Ziyaret</td>
						<td height="8" align="center" style="width:37%;" bgcolor="#cccccc">&nbsp;Son Ziyaret</td>
					</tr>
					<%
					intGecerliSayfa = Temizle(Trim(Request.Querystring("sayfa")))
					If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
				 
					KD.PageSize = 15
					intSayfaSayisi = KD.PageCount
					KD.AbsolutePage = intGecerliSayfa
					For m = 1 to 15
					If KD.Eof Then Exit For
					if m mod 2 = 0 then
						bgcolor = "#f5f5f5"
					else
						bgcolor = "#F0F0F0"
					end If 
					%>
					<tr>
						<td height="8" align="center" style="width:35%; background-color:<%=bgcolor%> ;">&nbsp;<a href="<%=KD("site")%>" target="_blank"><%=KD("site")%></a></td>
						<td height="8" align="center" style="width:10; background-color:<%=bgcolor%>;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="<%=KD("tam_adres")%>" target="_blank"><img src=images/link.png></a></td>
						<td height="8" align="center" style="width:20%; background-color:<%=bgcolor%>;">&nbsp;<%=KD("toplam_ziyaret")%></td>
						<td height="8" align="center" style="width:37%; background-color:<%=bgcolor%>;">&nbsp;<%=TarihFormatla(KD("ziyaret_ettigi_son_gun"), 0)%></td>
					</tr>
					<%
					KD.Movenext
					Next 
					KD.Close
					set KD = Nothing 
					%>
			  </table>
              
              
              
              
              
              
              
              
           <div class="pagination right">
                    
					<%
					Aralik = 2
					
					intSayfaAltSiniri = intGecerliSayfa - Aralik
					intSayfaUstSiniri = intGecerliSayfa + Aralik
					intSolGrupSayisi = 1 + Aralik
					intSagAltSinir = intSayfaSayisi - Aralik

					If (intSayfaUstSiniri > intSayfaSayisi) Then
						intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik)
						intSayfaUstSiniri = intSayfaSayisi	
					End If

					If (intSayfaAltSiniri <= 0) Then
						intSayfaAltSiniri = 1
						intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik)
						If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi
					End If

					If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1
					
					If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1

					If intGecerliSayfa > 1 Then %>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=1" title="İlk Sayfa">
					««</a>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=<%=intGecerliSayfa-1%>" title="Önceki Sayfa">
					«</a><%
					else
					%>
					<a class="pg" title="İlk Sayfa">
					««</a>
					<a class="pg" title="Önceki Sayfa">
					«</a>
                    <%
					End If

					For i = 1 to intSolGrupSayisi
						If CInt(i) = CInt(intGecerliSayfa) Then
							Response.Write " <a class=""aPg"" title="""&i&". Sayfa"">["&i&"]</a>"	
						Else
							Response.Write " <a class=""pg"" title="""&i&". Sayfa"" href=""?islem="&strIslem&"&sayfa="&i&""">"&i&"</a>"
						End If
					Next 
					
					If (intSayfaAltSiniri - intSolGrupSayisi > 1 ) Then Response.Write "<a class=""pg""> . . .</a>"
					
					For i = intSayfaAltSiniri to intSayfaUstSiniri
						If CInt(i) = CInt(intGecerliSayfa) Then
							Response.Write " <a class=""active"" title="""&i&". Sayfa"">"&i&"</a>"	
						Else
							Response.Write " <a class=""pg"" title="""&i&". Sayfa"" href=""?islem="&strIslem&"&sayfa="&i&""">"&i&"</a>"
						End If
					Next 

					If (intSagAltSinir - intSayfaUstSiniri > 1) Then Response.Write "<a class=""pg""> . . .</a>"

					For i = intSagAltSinir to intSayfaSayisi
						If CInt(i) = CInt(intGecerliSayfa) Then
							Response.Write " <a class=""aPg"" title="""&i&". Sayfa"">["&i&"]</a>"	
						Else
							Response.Write " <a class=""pg"" title="""&i&". Sayfa"" href=""?islem="&strIslem&"&sayfa="&i&""">"&i&"</a>"
						End If
					Next 


					If CInt(intGecerliSayfa) <> CInt(intSayfaSayisi) Then %>
					</a>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=<%=intGecerliSayfa+1%>" title="Sonraki Sayfa">
					»</a>
					<a class="pg" href="?islem=<%=strIslem%>&sayfa=<%=intSayfaSayisi%>" title="En Son Sayfa">
					»»</a>
					
					</div>
					<%
					End If
				End If
				
				

	            '################################################################
	            '################################### Aktif Ziyaretçiler
	            '################################################################
	            elseif strIslem = "sayac_aktif_ziyaretciler" then
	            Set KD = DBBaglanti.ExeCute("SELECT ID, ip, ziyaret_ettigi_son_gun, tarayici_dili, isletim_sistemi, tarayici, bulundugu_sayfa FROM sayacip")
	            %>
		    <meta HTTP-EQUIV="REFRESH" content="5; url=sayac.asp?islem=sayac_aktif_ziyaretciler">
            				<h2>Aktif ziyaretciler</h2>						
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content"><% If KD.Eof Then
		            Response.Write ""
	            Else %>
                    <table border="0" style="width:100%">
					    <tr>
						    <td height="8" align="center" width="120" bgcolor="#cccccc">&nbsp;İp</td>
						    <td height="8" align="center" width="210" bgcolor="#cccccc">&nbsp;Zaman</td>
						    <td height="8" align="center" width="110" bgcolor="#cccccc">&nbsp;Ülke</td>
						    <td height="8" align="center" width="110" bgcolor="#cccccc">&nbsp;İşletim Sistemi</td>
						    <td height="8" align="center" width="100" bgcolor="#cccccc">&nbsp;Tarayıcı</td>
						    <td height="8" align="center" width="" bgcolor="#cccccc">&nbsp;Su Anda Nereyi Geziyor?</td>
					    </tr>
	                <%
	                Do While Not KD.Eof
					if m mod 2 = 0 then
						bgcolor = "#f5f5f5"
					else
						bgcolor = "#F0F0F0"
					end If 
		                If KD("ziyaret_ettigi_son_gun") >= DateAdd("n", -5, Now()) Then
		                    %>
					        <tr>
						        <td height="8" align="center" width="120" bgcolor="<%=bgcolor%>">&nbsp;<%=KD("ip")%></td>
						        <td height="8" align="center" width="210" bgcolor="<%=bgcolor%>">&nbsp;<%=TarihFormatla(KD("ziyaret_ettigi_son_gun"), 1)%></td>
						        <td height="8" align="center" width="110" bgcolor="<%=bgcolor%>">&nbsp;<%if KD("tarayici_dili") <> "" Then Response.Write "<img src=""images/flags/"&Left(KD("tarayici_dili"), 2)&".gif"" alt="""&KD("tarayici_dili")&""" />" End If%>&nbsp;<%=UlkeBul(KD("tarayici_dili"))%></td>
						        <td height="8" align="center" width="110" bgcolor="<%=bgcolor%>">&nbsp;<%=KD("isletim_sistemi")%></td>
						        <td height="8" align="center" width="140" bgcolor="<%=bgcolor%>">&nbsp;<%=KD("tarayici")%></td>
						        <td height="8" align="center" width="" bgcolor="<%=bgcolor%>">&nbsp;<a title="<%=KD("bulundugu_sayfa")%>" href="<%=KD("bulundugu_sayfa")%>" target="_blank">..<%=KD("bulundugu_sayfa")%></a></td>
					        </tr>
                            <%
                        End If
		            KD.Movenext
                    Loop
		            KD.Close
		            set KD = Nothing
		            %>
                    </table><center><img src="images/ajax-loader.gif" /><br /><br /></center>
		            <%
	            End If
				
				'################################################################
				'################################### Grafiksel
				'################################################################
				else if strIslem = "sayac_grafik" then %>
                <h2>İstatİSTİKLER</h2>
					
					<ul class="tabs">
						<li><a href="#days">ÇİZGİ GRAFİK</a></li>
						<li><a href="#months">SÜTUN GRAFİK</a></li>
					</ul>
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content tab_content" id="days">
					
					<table class="stats" rel="line" cellpadding="0" cellspacing="0" width="100%">
					
						<thead>
							<tr>
								<td>&nbsp;</td>
                                
                                
                    <%
					Set KD = Server.CreateObject("Adodb.Recordset")
					SQL = "SELECT ID, tekil, cogul, gun FROM sayacgunluk ORDER BY ID DESC"
					KD.Open SQL, DbBaglanti, 1, 3
					intGecerliSayfa = Temizle(Trim(Request.Querystring("sayfa")))				 
					KD.PageSize = 10
					intSayfaSayisi = KD.PageCount
					KD.AbsolutePage = intGecerliSayfa
					For m = 1 to 10
					If KD.Eof Then Exit For
					%>
                    <th scope="col"><%=KD("gun")%></th>
                    <%
					KD.Movenext
					Next 
					KD.Close
					set KD = Nothing 
					%>
                                
                                
                                
                                
			</tr>
						</thead>
						
						<tbody>
							<tr>
								<th>Tekil ziyaret</th>
                                
                                
                                
                                
                                 <%
					Set KD = Server.CreateObject("Adodb.Recordset")
					SQL = "SELECT ID, tekil, cogul, gun FROM sayacgunluk ORDER BY ID DESC"
					KD.Open SQL, DbBaglanti, 1, 3
					intGecerliSayfa = Temizle(Trim(Request.Querystring("sayfa")))				 
					KD.PageSize = 10
					intSayfaSayisi = KD.PageCount
					KD.AbsolutePage = intGecerliSayfa
					For m = 1 to 10
					If KD.Eof Then Exit For
					%>
                    <td><%=KD("tekil")%></td>
                    <%
					KD.Movenext
					Next 
					KD.Close
					set KD = Nothing 
					%>
                                
                                
                                
                                
                                	</tr>
							
							<tr>
								<th>Çoğul ziyaret</th>		
                                
                                
                                
                               <%
					Set KD = Server.CreateObject("Adodb.Recordset")
					SQL = "SELECT ID, tekil, cogul, gun FROM sayacgunluk ORDER BY ID DESC"
					KD.Open SQL, DbBaglanti, 1, 3
					intGecerliSayfa = Temizle(Trim(Request.Querystring("sayfa")))				 
					KD.PageSize = 10
					intSayfaSayisi = KD.PageCount
					KD.AbsolutePage = intGecerliSayfa
					For m = 1 to 10
					If KD.Eof Then Exit For
					%>
                    <td><%=KD("cogul")%></td>
                    <%
					KD.Movenext
					Next 
					KD.Close
					set KD = Nothing 
					%>  
                                
                                
                                
                                
                                
                                </tr>
						</tbody>
					</table>
                    <br />
                    <center>Son 10 günlük veriler</center>
					
				</div>		<!-- .block_content ends -->
				
				
				
				
				
				<div class="block_content tab_content" id="months">
					
						<table class="stats" rel="bar" cellpadding="0" cellspacing="0" width="100%">
					
						<thead>
							<tr>
								<td>&nbsp;</td>
                                
                                                          
                     <%
					Set KD = Server.CreateObject("Adodb.Recordset")
					SQL = "SELECT ID, tekil, cogul, gun FROM sayacgunluk ORDER BY ID DESC"
					KD.Open SQL, DbBaglanti, 1, 3
					intGecerliSayfa = Temizle(Trim(Request.Querystring("sayfa")))				 
					KD.PageSize = 16
					intSayfaSayisi = KD.PageCount
					KD.AbsolutePage = intGecerliSayfa
					For m = 1 to 16
					If KD.Eof Then Exit For
					%>
                    <th scope="col"><%=KD("gun")%></th>
                    <%
					KD.Movenext
					Next 
					KD.Close
					set KD = Nothing 
					%>
                                
                                
                                
                                
			</tr>
						</thead>
						
						<tbody>
							<tr>
								<th>Tekil ziyaret</th>
                                
                                
                                
                                
                                 <%
					Set KD = Server.CreateObject("Adodb.Recordset")
					SQL = "SELECT ID, tekil, cogul, gun FROM sayacgunluk ORDER BY ID DESC"
					KD.Open SQL, DbBaglanti, 1, 3
					intGecerliSayfa = Temizle(Trim(Request.Querystring("sayfa")))				 
					KD.PageSize = 16
					intSayfaSayisi = KD.PageCount
					KD.AbsolutePage = intGecerliSayfa
					For m = 1 to 16
					If KD.Eof Then Exit For
					%>
                    <td><%=KD("tekil")%></td>
                    <%
					KD.Movenext
					Next 
					KD.Close
					set KD = Nothing 
					%>
                                
                                
                                
                                
                                	</tr>
							
							<tr>
								<th>Çoğul ziyaret</th>		
                                
                                
                                
                               <%
					Set KD = Server.CreateObject("Adodb.Recordset")
					SQL = "SELECT ID, tekil, cogul, gun FROM sayacgunluk ORDER BY ID DESC"
					KD.Open SQL, DbBaglanti, 1, 3
					intGecerliSayfa = Temizle(Trim(Request.Querystring("sayfa")))				 
					KD.PageSize = 16
					intSayfaSayisi = KD.PageCount
					KD.AbsolutePage = intGecerliSayfa
					For m = 1 to 16
					If KD.Eof Then Exit For
					%>
                    <td><%=KD("cogul")%></td>
                    <%
					KD.Movenext
					Next 
					KD.Close
					set KD = Nothing 
					%>  
                    
                    
                    </tr>
						</tbody>
					</table>
                    <br /><center>Son 16 günlük veriler</center>
                    
				<%
				else
				response.Redirect("default.asp")
				end if
				end if
				%>
					
					


</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
				
			</div>		<!-- .leftcol ends -->
            
            <!--#include file="foot.asp"-->
</body>





</html>
