<%@ Page Title="All Reviews" Language="VB" MasterPageFile="~/MasterPages/Frontend.master" AutoEventWireup="false" CodeFile="All.aspx.vb" Inherits="Reviews_All" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="cpMainContent" runat="Server">
  <asp:GridView ID="GridView1" runat="server">
  </asp:GridView>
</asp:Content>

Imports PlanetWroxModel

Partial Class Reviews_All
  Inherits BasePage

  Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Using myEntities As New PlanetWroxEntities()

            Dim authorizedReviews = From review In myEntities.Reviews
                              Where review.Authorized = True
                              Order By review.CreateDateTime Descending
                              Select review
            GridView1.DataSource = authorizedReviews
            GridView1.DataBind()
        End Using

  End Sub

    Protected Sub GridView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView1.SelectedIndexChanged

    End Sub
End Class

Imports PlanetWroxModel

Partial Class _ManagePhotoAlbum
  Inherits BasePage

  Protected Sub EntityDataSource1_Inserting(sender As Object, e As EntityDataSourceChangingEventArgs) Handles EntityDataSource1.Inserting
    Dim photoAlbumId As Integer = Convert.ToInt32(Request.QueryString.Get("PhotoAlbumId"))
    Dim myPicture As Picture = CType(e.Entity, Picture)
    myPicture.PhotoAlbumId = photoAlbumId

    Dim FileUpload1 As FileUpload = CType(ListView1.InsertItem.FindControl("FileUpload1"), FileUpload)
    Dim virtualFolder As String = "~/GigPics/"
    Dim physicalFolder As String = Server.MapPath(virtualFolder)
    Dim fileName As String = Guid.NewGuid().ToString()
    Dim extension As String = System.IO.Path.GetExtension(FileUpload1.FileName)
    FileUpload1.SaveAs(System.IO.Path.Combine(physicalFolder, fileName + extension))
    myPicture.ImageUrl = virtualFolder + fileName + extension
  End Sub

  Protected Sub ListView1_ItemInserting(sender As Object, e As ListViewInsertEventArgs) Handles ListView1.ItemInserting
    Dim FileUpload1 As FileUpload = CType(ListView1.InsertItem.FindControl("FileUpload1"), FileUpload)
    If Not FileUpload1.HasFile OrElse Not FileUpload1.FileName.ToLower().EndsWith(".jpg") Then
      Dim cusValImage As CustomValidator = CType(ListView1.InsertItem.FindControl("cusValImage"), CustomValidator)
      cusValImage.IsValid = False
      e.Cancel = True
    End If
  End Sub
End Class

Imports PlanetWroxModel

Partial Class _NewPhotoAlbum
  Inherits BasePage

  Protected Sub EntityDataSource1_Inserted(sender As Object, e As EntityDataSourceChangedEventArgs) Handles EntityDataSource1.Inserted
    If (e.Entity IsNot Nothing) Then
            Dim myPhotoAlbum As PhotoAlbum = CType(e.Entity, PhotoAlbum)
      Response.Redirect(String.Format("ManagePhotoAlbum.aspx?PhotoAlbumId={0}", myPhotoAlbum.Id.ToString()))
    End If
  End Sub
End Class