If Request.QueryString("tabname") <> "" Then
Dim strURL As String = ""

objTab = objTabs.GetTabByName(Request.QueryString("TabName"), CType(HttpContext.Current.Items("PortalSettings"), PortalSettings).PortalId)
If Not objTab Is Nothing Then

Dim actualParamCount As Integer = 0
Dim params(Request.QueryString.Count - 1) As String 'maximum number of elements
For intParam As Integer = 0 To Request.QueryString.Count - 1
Select Case Request.QueryString.Keys(intParam).ToLower()
Case "tabid", "tabname"
Case Else
params(actualParamCount) = Request.QueryString.Keys(intParam) + "=" + Request.QueryString(intParam)
actualParamCount = actualParamCount + 1
End Select
Next
ReDim Preserve params(actualParamCount - 1) 'redim to remove blank elements

Response.Redirect(NavigateURL(objTab.TabID, Null.NullString, params), True)

End If
End If

If Request.IsAuthenticated = True Then
' set client side page caching for authenticated users
If Convert.ToString(PortalSettings.HostSettings("AuthenticatedCacheability")) <> "" Then
Select Case Convert.ToString(PortalSettings.HostSettings("AuthenticatedCacheability"))
Case "0" : Response.Cache.SetCacheability(HttpCacheability.NoCache)
Case "1" : Response.Cache.SetCacheability(HttpCacheability.Private)
Case "2" : Response.Cache.SetCacheability(HttpCacheability.Public)
Case "3" : Response.Cache.SetCacheability(HttpCacheability.Server)
Case "4" : Response.Cache.SetCacheability(HttpCacheability.ServerAndNoCache)
Case "5" : Response.Cache.SetCacheability(HttpCacheability.ServerAndPrivate)
End Select
Else
Response.Cache.SetCacheability(HttpCacheability.ServerAndNoCache)
End If
End If