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

Sorry, your browser doesn't support Java.

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

Web Sayfam nasıl ? Bu siteyi arkadaşlarınıza tavsiye edin!