use:

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
    HttpContext.Current.Session("pagename") = "microsoft"
End Sub