Plus International Ltd. - Tütüncü Mehmetefendi Cad. No. 94/7, Göztepe - İSTANBUL,   Tel.: 0216 - 411 65 96,   Fax: 0216 - 411 65 97 Design: plusmax <% fp = Server.MapPath("data/sayac.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close Response.Write ct %>