Dim p() As String = e.Url.Host.Replace("www.", "").Split("."c)
        Dim domain As String = p(p.Length - 2) & "." & p(p.Length - 1)
        Dim myTable As DataTable = m_clsXML.mytable
        Dim myRow As DataRow
 
        For Each myRow In myTable.Rows
            If myRow("URL-NAME").ToString().Contains(domain) Then
 
                Return
            Else
            End If
        Next myRow