online users calculation

Danish Habib

This line in my aspx page gives exception

<%=Application("OnlineVisitors").ToString()%>

below are the global.asax code

Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)

Application.Lock()

Application("OnlineVisitors") = (CType(Application("OnlineVisitors"), Integer) - 1)

Application.UnLock()

End Sub

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)

If Session("LoggedInUserId") Is Nothing Then Response.Redirect("Login.aspx", True)

Application.Lock()

' Application("OnlineVisitors") = (CType(Application("OnlineVisitors"), Integer) + 1)

Application("OnlineVisitors") = (CType(Application("OnlineVisitors"), Integer) + 1)

Application.UnLock()

'If Session("LoggedInUserId") IsNot Nothing Then

' GetDays()

'End If

' AutoChecked()

End Sub

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)

RegisterRoutes(RouteTable.Routes)

Application("OnlineVisitors") = 0

' Fires when the application is started

Dim whenTaskLastRan As DateTime

whenTaskLastRan = DateTime.Now

Dim D2 As DateTime = DateTime.Now()

End Sub

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

Danish Habib11y ago
Dear Anant Kulkarni Thanks for your response , I am not explaining exactly what i am facing for , the problem is that I am working on an asp.net web application and before 5 days i took a backup of my project , Now my actual project loses session variable value on server.Transfer("somepage",True) and my backup project having same lines of code is not losing the session variable, I can continue my work from backup but i am cruious about what is the reason I have debug the code but could not figure it out what is the reason ?same code on backup project and it works fine
0
Anant Kulkarni11y ago
Hi Danish,

Please provide complete exception details. Community cannot guess what exceptions can be thrown from that line.
Hope you understand that without this, no one will be able to help.

Thanks.
0