<% 'Bu kısım sayilar dosyasındaki sayıya bir sayı ilave edip hem onu kayıt eder hemde
'html kısmında görüntülenmesi için değeri değişkene atar. Bu skriptin çalışması için
'Sayfa uzantısı asp olmalı.
function say()
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs1 = fso.OpenTextFile(Server.MapPath("sayilar"), 1)
say = fs1.ReadLine
fs1.close
Set fs2 = fso.OpenTextFile(Server.MapPath("sayilar"), 2)
fs2.WriteLine say + 1
fs2.close
end function
%>
Ali Kaymaz
