Dim PathName As String = Server.MapPath("counter.txt")
If File.Exists( PathName ) Then
Dim sReader As StreamReader
sReader = New StreamReader( PathName, Encoding.Default )
Dim S As String
S = sReader.ReadLine()
If Not S Is Nothing Then
counter = CLng( S ) + 1
End If
sReader.Close()
End If
Dim sWriter As StreamWriter
sWriter = New StreamWriter( PathName, False, Encoding.Default )
sWriter.Write( CStr(counter) )
sWriter.Flush()
sWriter.Close()