Imports System.Data
Imports System.IO
Imports System.Net

Partial Class Clients
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If (Not Page.IsPostBack) Then
            BindRepeaterAesthetics()
            BindRepeaterBeauty()
            BindRepeaterCorporate()
            BindRepeaterFashion()
            BindRepeaterFnB()
            BindRepeaterHealth()
            BindRepeaterLifeStyle()
            BindRepeaterLuxury()
            BindRepeaterOthers()
            BindRepeaterRetail()
        End If

    End Sub
    Public Class MyImage
        Public Property ImageThumb() As String
            Get
                Return m_ImageThumb
            End Get
            Set(value As String)
                m_ImageThumb = value
            End Set
        End Property
        Private m_ImageThumb As String
        Public Property ImageOriginal() As String
            Get
                Return m_ImageOriginal
            End Get
            Set(value As String)
                m_ImageOriginal = value
            End Set
        End Property
        Private m_ImageOriginal As String
        'Add other properties if needed
    End Class
    Private Sub BindRepeaterAesthetics()

        Dim original As String() = Directory.GetFiles(Server.MapPath("img\Clients\Aesthetics"))

        Dim dt As New DataTable()
        dt.Columns.Add("ImageOriginal", GetType(String))

        Dim originalL As New List(Of MyImage)()

        For i As Integer = 0 To original.Length - 1
            If i < original.Length Then
                dt.Rows.Add(String.Format(String.Format("img/Clients/Aesthetics/{0}", Path.GetFileName(original(i)))))
            End If
        Next
        'Finally, set the datasource of the repeater
        rptAesthetics.DataSource = dt
        rptAesthetics.DataBind()
    End Sub

    Private Sub BindRepeaterBeauty()

        Dim original As String() = Directory.GetFiles(Server.MapPath("img\Clients\Beauty"))

        Dim dt As New DataTable()
        dt.Columns.Add("ImageOriginal", GetType(String))

        Dim originalL As New List(Of MyImage)()

        For i As Integer = 0 To original.Length - 1
            If i < original.Length Then
                dt.Rows.Add(String.Format(String.Format("img/Clients/Beauty/{0}", Path.GetFileName(original(i)))))
            End If
        Next
        'Finally, set the datasource of the repeater
        rptBeauty.DataSource = dt
        rptBeauty.DataBind()
    End Sub

    Private Sub BindRepeaterCorporate()

        Dim original As String() = Directory.GetFiles(Server.MapPath("img\Clients\Corporate"))

        Dim dt As New DataTable()
        dt.Columns.Add("ImageOriginal", GetType(String))

        Dim originalL As New List(Of MyImage)()

        For i As Integer = 0 To original.Length - 1
            If i < original.Length Then
                dt.Rows.Add(String.Format(String.Format("img/Clients/Corporate/{0}", Path.GetFileName(original(i)))))
            End If
        Next
        'Finally, set the datasource of the repeater
        rptCorporate.DataSource = dt
        rptCorporate.DataBind()
    End Sub

    Private Sub BindRepeaterFashion()

        Dim original As String() = Directory.GetFiles(Server.MapPath("img\Clients\Fashion"))

        Dim dt As New DataTable()
        dt.Columns.Add("ImageOriginal", GetType(String))

        Dim originalL As New List(Of MyImage)()

        For i As Integer = 0 To original.Length - 1
            If i < original.Length Then
                dt.Rows.Add(String.Format(String.Format("img/Clients/Fashion/{0}", Path.GetFileName(original(i)))))
            End If
        Next
        'Finally, set the datasource of the repeater
        rptFashion.DataSource = dt
        rptFashion.DataBind()
    End Sub

    Private Sub BindRepeaterFnB()

        Dim original As String() = Directory.GetFiles(Server.MapPath("img\Clients\FnB"))

        Dim dt As New DataTable()
        dt.Columns.Add("ImageOriginal", GetType(String))

        Dim originalL As New List(Of MyImage)()

        For i As Integer = 0 To original.Length - 1
            If i < original.Length Then
                dt.Rows.Add(String.Format(String.Format("img/Clients/FnB/{0}", Path.GetFileName(original(i)))))
            End If
        Next
        'Finally, set the datasource of the repeater
        rptfnb.DataSource = dt
        rptfnb.DataBind()
    End Sub

    Private Sub BindRepeaterHealth()

        Dim original As String() = Directory.GetFiles(Server.MapPath("img\Clients\Health"))

        Dim dt As New DataTable()
        dt.Columns.Add("ImageOriginal", GetType(String))

        Dim originalL As New List(Of MyImage)()

        For i As Integer = 0 To original.Length - 1
            If i < original.Length Then
                dt.Rows.Add(String.Format(String.Format("img/Clients/Health/{0}", Path.GetFileName(original(i)))))
            End If
        Next
        'Finally, set the datasource of the repeater
        rpthealth.DataSource = dt
        rpthealth.DataBind()
    End Sub

    Private Sub BindRepeaterLifeStyle()

        Dim original As String() = Directory.GetFiles(Server.MapPath("img\Clients\LifeStyle"))

        Dim dt As New DataTable()
        dt.Columns.Add("ImageOriginal", GetType(String))

        Dim originalL As New List(Of MyImage)()

        For i As Integer = 0 To original.Length - 1
            If i < original.Length Then
                dt.Rows.Add(String.Format(String.Format("img/Clients/LifeStyle/{0}", Path.GetFileName(original(i)))))
            End If
        Next
        'Finally, set the datasource of the repeater
        rptLifestyle.DataSource = dt
        rptLifestyle.DataBind()
    End Sub

    Private Sub BindRepeaterLuxury()

        Dim original As String() = Directory.GetFiles(Server.MapPath("img\Clients\Luxury"))

        Dim dt As New DataTable()
        dt.Columns.Add("ImageOriginal", GetType(String))

        Dim originalL As New List(Of MyImage)()

        For i As Integer = 0 To original.Length - 1
            If i < original.Length Then
                dt.Rows.Add(String.Format(String.Format("img/Clients/Luxury/{0}", Path.GetFileName(original(i)))))
            End If
        Next
        'Finally, set the datasource of the repeater
        rptLuxury.DataSource = dt
        rptLuxury.DataBind()
    End Sub

    Private Sub BindRepeaterOthers()

        Dim original As String() = Directory.GetFiles(Server.MapPath("img\Clients\Others"))

        Dim dt As New DataTable()
        dt.Columns.Add("ImageOriginal", GetType(String))

        Dim originalL As New List(Of MyImage)()

        For i As Integer = 0 To original.Length - 1
            If i < original.Length Then
                dt.Rows.Add(String.Format(String.Format("img/Clients/Others/{0}", Path.GetFileName(original(i)))))
            End If
        Next
        'Finally, set the datasource of the repeater
        rptOthers.DataSource = dt
        rptOthers.DataBind()
    End Sub

    Private Sub BindRepeaterRetail()

        Dim original As String() = Directory.GetFiles(Server.MapPath("img\Clients\Retail"))

        Dim dt As New DataTable()
        dt.Columns.Add("ImageOriginal", GetType(String))

        Dim originalL As New List(Of MyImage)()

        For i As Integer = 0 To original.Length - 1
            If i < original.Length Then
                dt.Rows.Add(String.Format(String.Format("img/Clients/Retail/{0}", Path.GetFileName(original(i)))))
            End If
        Next
        'Finally, set the datasource of the repeater
        rptRetail.DataSource = dt
        rptRetail.DataBind()
    End Sub
End Class