<add key="CMSPageTitlePrefix" value="Web Site Name - " />

    Public Shared Function GetPageTitleTag(ByVal defaultAliasPath As String) As String
        Dim title As String
        Dim dr As DataRow

        If HttpContext.Current.Request.QueryString("aliaspath") & "" = "" Then
            'use provided alias path only if no alias path is passed in the querystring
            dr = GetPageInfoDR(defaultAliasPath)
        Else
            'use alias path from the querystring
            dr = GetPageInfoDR(Functions.GetAliasPath)
        End If

        title &= ConfigurationSettings.AppSettings("CMSPageTitlePrefix")

        If Not dr Is Nothing AndAlso Not dr("MenuItemPageTitle") Is DBNull.Value Then
            title = CType(dr("MenuItemPageTitle"), String)
        End If
        Return String.Format("<title>{0}</title>", HttpContext.Current.Server.HtmlEncode(title))

    End Function