{{---___--- ŞİİR GÜZELİ ---___---}}

....Sorry, your browser doesn't support Java..

....................................................................................

YENİ YILINIZ KUTLU OLSUN

HOŞGELDİN 2002

Bu siteyi arkadaslarınıza tavsiye edin!

Giriş Sayfası yap Sık Kullanılanlara Ekle

İcq Listene Ekle Bugün:

.....

SPONSOR ARANIYOR ILGILENENLER

LUTFEN MAIL GONDERINIZ..........

ZİYARETÇİ DEFTERİ

Defteri Oku& Deftere Yaz.......<% ScriptLanguage=VBScript %><% Dim sayac, FSO, txt, c, path, x path=Server.MapPath("s.txt") Set FSO=Server.CreateObject("Scripting.FileSystemObject") Set txt=FSO.OpenTextFile(path,1,0) sayac=txt.ReadLine sayac=sayac+1 txt.close Set FSO=Nothing Set txt=Nothing Set FSO=Server.CreateObject("Scripting.FileSystemObject") Set txt=FSO.OpenTextFile(path,2,True) txt.WriteLine(sayac) txt.close Set FSO=Nothing Set txt=Nothing Sub kackisi For i = 1 TO len(sayac) %>

Haber Listemize Katılın!

E-mail

Ekle