Public Shared Function PageReadControls(ByVal PageUrl As String, _

             ByVal MePage As Object, ByRef cc As List(Of FileControl)) As Long
            Try
                Dim CachKey As String = "setting_" & PageUrl
                Dim tbl As SiteSkin.PagesDataTable
                tbl = DirectCast(MePage.Cache(CachKey), SiteSkin.PagesDataTable)
                If tbl Is Nothing Then
                    Dim adp As New SiteSkinTableAdapters.PagesTableAdapter
                    tbl = New SiteSkin.PagesDataTable
                    adp.Fill(tbl, PageUrl)
                    'Dim dependency As New SqlCacheDependency("Northwind", "Categories")
                    'Dim dependency As new CacheDependency (Server.MapPath ("MyFile.xml")));
                    'Cache.Insert(CachKey, tbl, dependency)
                    MePage.Cache.Insert(CachKey, tbl)
                    adp.Dispose()
                End If