User ID from HttpContext

        Imports System.Web.HttpRequest          
                    
        Session("username") = HttpContext.Current.User.Identity.Name
        Dim user As String = ExtractUserName(Session("userName"))
        Session("userid") = user