Public Sub New()
   MyBase.New()
   If Not HttpContext.Current Is Nothing Then
      Dim s As String = HttpContext.Current.Request.QueryString("scope")
      If Not s Is Nothing Then
         If s.IndexOf("#") >= 0 Then s = Left(s, s.IndexOf("#"))
         Scope = CType([Enum].Parse(GetType(ForumScope), s, True), ForumScope)
      Else
         If (Not HttpContext.Current.Request.QueryString("postid") Is Nothing) Then
            Scope = ForumScope.PortalSearch
         Else
            Scope = ForumScope.Groups
         End If
      End If
   End If
End Sub