% pgeNme = Request.ServerVariables("PATH_INFO") LogTo = (pgenme) 'LogTo = ("/site/sayac/" + pgeNme) CounterFile = Server.MapPath(LogTo + ".txt") Set xFS = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set xMC = xFS.OpenTextFile(CounterFile, 1, 0, 0) usercnt = xMC.Readline set xFS = Nothing usercnt = usercnt + 1 Set xFS = CreateObject("Scripting.FileSystemObject") set xRC = xFS.CreateTextFile (CounterFile, 1, 0) xRC.WriteLine usercnt Set xRC = Nothing SayacGoster = usercnt %> <% Dim sayac For sayac = 1 to 99999 %>
Ana Sayfa--E-kart--Sohbet--Programlar--Şiirler-Güller--Biz Kimiz--Müzik
Biz Kimiz :))
Çokmu Merak Ettiniz Sizi Sizi
By:NuRuLLaH
BeN İmam hatip Lisesi Mezunuyum 4 senedir int. Uğraşıyorum
çok Yakında serverimizle karşınızda olacaz
Lakin Sizden Destek Beklemekteyiz
Biz Şimdilik Mynet'e #Sohbetevi Kanlında bulabilrsiniz
Yaşım 19 Bunuda söyleyem :))
Benden Bu kadar arkadaşlar :))) umrarım sitemizi beğenirsiniz
By: KaDeM
Adım: Kadem
Lise Son sınıfta
Okuyorum dersler harika desem inanmayın :))
Benim resmim yok ama Nurullah Tan Yakışıklıyımdır :))
Bu Siteyi NuRuLLaH Beraber Yaptık Bizce Güzel
Olmuş aMa Karar Sizin :))
Benden Bu kadar Fazla Bilgi Vermeyem
Sonra Ne derler :)))
By: Handsome
Adım : Ahmet BEKMEZCİ
1975 Kütahya Doğumluyum İmam Hatip Lisesi Mezunuyum
Şuan Kütahyada Teğmen Olarak Görev Yapmaktayım
Diğer ARkdaşların Abisiyimdir Bu arada :)) En Yakışıklıları Benim
Çaktırmayın :))
Haa bu arada beni islamisiterde bulabilabilirsiniz :)
By : ŞenoL
Adım : Şenol
1966 Kütahya Doğumluyum
SLi De Güven Şefi Olarak Çalışıyorum
Siz Handsome'ye Bakman Ben Ondanda Büyüğüm :))
Ve Bu Sitenin Reisiyim :))
Benden Bu Kadar Tüm Kütahya ve Afyonluların Reklamlarını Bekliyoruz
Benden Bu Kadar
nurullahsert@hotmail.com -- kademcaglayan@hotmail.com -- ahmetbekmezci@hotmail.com
Webmaster : NuRuLLaH
Ana Sayfa--E-kart--Sohbet--Programlar--Şiirler-Güller--Biz Kimiz--Müzik
Hoşgeldiniz!
<% next %>