Заделал я, значится, в global.asax простейший счётчик посещений,
но Sub Session_End нивкакую не хочет срабатывать, когда жму в окошке IE x в правом верхнем углу (: Уже всяко проверял:


Imports System.Web
Imports System.Web.SessionState
Imports System.IO

............

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
Application("ActiveUsers") = 0
End Sub



Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
Dim iTotalUsers As Int64, readStr As String, cFileName As String
cFileName = "counters.txt"
iTotalUsers = 0
Try
If File.Exists(Server.MapPath(cFileName)) Then
Dim objReader As New StreamReader(Server.MapPath(cFileName))
With objReader
'While .Peek() > -1
readStr = .ReadLine()
readStr = .ReadLine()
.Close()
iTotalUsers = CInt(readStr.Trim)
End With
End If
Catch runexception As Exception
Finally
End Try

iTotalUsers = iTotalUsers + 1

Try
Dim objWriter As New StreamWriter(Server.MapPath(cFileName), False)
With objWriter
.WriteLine("TOTAL SESSIONS:")
.WriteLine(iTotalUsers.ToString)
.Close()
End With
Catch runexception As Exception
Finally
End Try

Application.Lock()
Application("ActiveUsers") = IIf(Application("ActiveUsers") > iTotalUsers, iTotalUsers, Application("ActiveUsers") + 1)
Application("TotalUsers") = iTotalUsers
Application.UnLock()
End Sub



Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
Application.Lock()
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock()
End Sub

to Tygra:

в Session_End я делаю Application("ActiveUsers") = Application("ActiveUsers") - 1

в надежде показать, что активных пользователей уменьшилось на 1