Imports System.Data
Imports LYB.VB
Imports LYB.VB.CLASSES

Partial Class group2_Bildarkiv
    Inherits System.Web.UI.Page

    Dim data As New DataUtils
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim btnLedning As Web.UI.WebControls.LinkButton = Master.FindControl("btnLedning")
        btnLedning.Style.Add("color", "yellow")
        Dim btnMedlemmar As LinkButton = Master.FindControl("btnMedlemmar")
        btnMedlemmar.Style.Add("color", "yellow")
        Dim btnKalender As LinkButton = Master.FindControl("btnKalender")
        btnKalender.Style.Add("color", "yellow")
        Dim btnRepertoar As LinkButton = Master.FindControl("btnRepertoar")
        btnRepertoar.Style.Add("color", "yellow")

        Dim btnBildarkiv As LinkButton = Master.FindControl("btnBildarkiv")
        btnBildarkiv.Style.Add("color", "white")

        Dim webPages As DataView = Data.GetWebPagesData(2)
        lblLastChanged.Text = Resources.Resource.PageLastChanged & " " & data.FindWebPageData(webPages, "Bildarkiv")

    End Sub
End Class