Imports System.Data
Partial Class Track_Record
    Inherits System.Web.UI.Page
    Dim CMS As New CMS
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load


        getGallery()

    End Sub
    Public Sub getGallery()

        Dim ds As DataSet = CMS.GetalbumsLive

        If ds.Tables(0).Rows.Count > 0 Then
            rptgallery.DataSource = ds
            rptgallery.DataBind()
        End If

    End Sub
    Public Function albumidasimage(ByVal album_id As String) As String

        Dim results_name = CMS.GetOneImgByID(album_id)
        If results_name <> "" Then

            Return results_name
        Else
            Return "no"
        End If

    End Function
    Private Sub rptgallery_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles rptgallery.ItemDataBound


        Dim uhf As HiddenField = e.Item.FindControl("hiddenUrl")
        Dim gallerypanel As Panel = e.Item.FindControl("galleryitem")

        If uhf.Value <> "" Then
            gallerypanel.Visible = True
        Else
            gallerypanel.Visible = False
        End If


    End Sub
End Class