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

Partial Class group2_Ledning
    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 btnMedlemmar As LinkButton = Master.FindControl("btnMedlemmar")
        btnMedlemmar.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", "yellow")
        Dim btnKalender As LinkButton = Master.FindControl("btnKalender")
        btnKalender.Style.Add("color", "yellow")

        Dim btnLedning As Web.UI.WebControls.LinkButton = Master.FindControl("btnLedning")
        btnLedning.Style.Add("color", "white")

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

        Dim display As New Display
        Dim member As Member = CType(Session("member"), Member)
        'Dim memberid As Integer
        'Dim userIDCookie As String() = {"", "", ""}
        'Try
        '    userIDCookie = data.GetUserIDCookie(Request)
        '    memberid = CType(userIDCookie(0), Integer)
        'Catch ee As System.Exception
        '    If InStr(ee.Message, "not set to an instance") > 0 Then
        '        memberid = member.MemberID
        '    Else
        '        Throw New Exception(ee.Message)
        '    End If
        'End Try
        Dim dw As DataView = data.GetBoardMembers(2)
        If Not IsNothing(dw) Then
            boardMemberTable.CellSpacing = 0
            boardMemberTable.CellPadding = 5
            Dim tbRowHeader As New TableRow
            tbRowHeader.Cells.Add(display.MakeTableHeaderCell(" ", member.FontFamily, member.FontSize))
            tbRowHeader.Cells.Add(display.MakeTableHeaderCell("Namn / E-post", member.FontFamily, member.FontSize))
            tbRowHeader.Cells.Add(display.MakeTableHeaderCell("Telnr hem", member.FontFamily, member.FontSize))
            tbRowHeader.Cells.Add(display.MakeTableHeaderCell("Telnr arb", member.FontFamily, member.FontSize))
            tbRowHeader.Cells.Add(display.MakeTableHeaderCell("Mobilnr", member.FontFamily, member.FontSize))
            boardMemberTable.Rows.Add(tbRowHeader)
            For Each row As DataRowView In dw
                Dim tbrow As New TableRow
                tbrow.Cells.Add(display.MakeTableCell(row.Item("FunctionName").ToString, member.FontFamily, member.FontSize))
                Dim membersMailAddress As String = ""
                If Not row.Item("MailAddressHome") Is System.DBNull.Value Then
                    If Trim(row.Item("MailAddressHome")) <> "" Then
                        membersMailAddress = row.Item("MailAddressHome")
                    End If
                End If
                If Not row.Item("MailAddressWork") Is System.DBNull.Value Then
                    If Trim(row.Item("MailAddressWork")) <> "" Then
                        If membersMailAddress = "" Then
                            membersMailAddress = row.Item("MailAddressWork")
                        Else
                            membersMailAddress = membersMailAddress & ";" & row.Item("MailAddressWork")
                        End If
                    End If
                End If
                'Dim boardMembersMailAddress As String
                'If Not row.Item("MailAddressHome") Is System.DBNull.Value Then
                '    If Trim(row.Item("MailAddressHome")) <> "" Then
                '        boardMembersMailAddress = row.Item("MailAddressHome")
                '    ElseIf Not row.Item("MailAddressWork") Is System.DBNull.Value Then
                '        boardMembersMailAddress = row.Item("MailAddressWork")
                '    Else
                '        boardMembersMailAddress = ""
                '    End If
                'ElseIf Not row.Item("MailAddressWork") Is System.DBNull.Value Then
                '    boardMembersMailAddress = row.Item("MailAddressWork")
                'Else
                '    boardMembersMailAddress = ""
                'End If
                If membersMailAddress = "" Then
                    tbrow.Cells.Add(display.MakeTableCell(row.Item("Firstname").ToString & " " & row.Item("Lastname").ToString, member.FontFamily, member.FontSize))
                Else
                    tbrow.Cells.Add(display.MakeTableCell("<a href='mailto:" & membersMailAddress & "'>" & row.Item("Firstname").ToString & " " & row.Item("Lastname").ToString & "</a>", member.FontFamily, member.FontSize))
                End If
                If Not row.Item("PhoneNumberHome") Is System.DBNull.Value Then
                    tbrow.Cells.Add(display.MakeTableCell(row.Item("PhoneNumberHome").ToString, member.FontFamily, member.FontSize))
                Else
                    tbrow.Cells.Add(display.MakeTableCell("&nbsp;", member.FontFamily, member.FontSize))
                End If
                If Not row.Item("PhoneNumberWork") Is System.DBNull.Value Then
                    tbrow.Cells.Add(display.MakeTableCell(row.Item("PhoneNumberWork").ToString, member.FontFamily, member.FontSize))
                Else
                    tbrow.Cells.Add(display.MakeTableCell("&nbsp;", member.FontFamily, member.FontSize))
                End If
                If Not row.Item("CellPhoneNumber") Is System.DBNull.Value Then
                    tbrow.Cells.Add(display.MakeTableCell(row.Item("CellPhoneNumber").ToString, member.FontFamily, member.FontSize))
                Else
                    tbrow.Cells.Add(display.MakeTableCell("&nbsp;", member.FontFamily, member.FontSize))
                End If
                boardMemberTable.Rows.Add(tbrow)
            Next
        End If

    End Sub
End Class