<%
Dim Sayac, Okusayac, Yazsayac
Dim Sayacdosyasi
Dim Sayactiklamasi
Set Sayac = Server.CreateObject("Scripting.FileSystemObject")
sayacdosyasi = Server.MapPath ("sayac.txt")
Set okusayac= sayac.OpenTextFile (sayacdosyasi, 1, True)
If Not okusayac.AtEndOfStream Then
sayactiklamasi = Trim(okusayac.ReadLine)
If sayactiklamasi = "" Then sayactiklamasi = 0
Else
Sayactiklamasi = 0
End If
okusayac.Close
Set okusayac = Nothing
sayactiklamasi = sayactiklamasi + 1
Set yazsayac= sayac.CreateTextFile (sayacdosyasi, True)
yazsayac.WriteLine(sayactiklamasi)
yazsayac.Close
Set yazsayac = Nothing
Set sayac = Nothing
%>
