
Partial Class SimpleSelect
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim books As List(Of Book) = Book.GetBookList()

        ' Używając właściwości DataSource.
        Dim bookTitles = From b In books _
            Select New With {.ISBN = b.ISBN, .Released = (If(b.ReleaseDate < DateTime.Now, "Niedostepna" : "Już wkrótce"))}

        lvwBooks.DataSource = bookTitles
        Me.DataBind()
    End Sub


End Class
