Hi

,
you are giving the session timeout in your code, that might the problem.
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
Session.Timeout = 100
Session("Loggedin") = "No"
End Sub
Please remove the session timeout and try it.
thanks,
Kedar