Imports System.Collections.Generic
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data.SqlClient

Public Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(sender As Object, e As EventArgs)
        Dim builder As New SqlConnectionStringBuilder()
        builder.DataSource = "(local)\sebastianlawe"
        builder.UserID = "sa"
        builder.Password = "dilbert"
        Using connection As New SqlConnection(builder.ConnectionString)
            connection.Open()
            Using command As SqlCommand = connection.CreateCommand()
                command.CommandText = "select top 5 [Url], [ImageUrl] from [SebastianLawe].[dbo].[HomeCarousel]" & vbCr & vbLf & "                Order by [DateCreated]  ASC"
                Dim reader As SqlDataReader = command.ExecuteReader()
                While reader.Read()
                    Carousel.Text += String.Format(vbCr & vbLf & "                        <div class=""carousel-slide"" onclick=""window.location='{0}';""style=""background: url({1}) no-repeat 50% 50%; background-size: cover;"">" & vbCr & vbLf & vbTab & vbTab & vbTab & vbTab & vbTab & "    <div class=""caption""></div>" & vbCr & vbLf & vbTab & vbTab & vbTab & vbTab & "        </div>", reader.GetValue(0), reader.GetValue(1))
                End While
            End Using
        End Using
    End Sub
End Class

'=======================================================
'Service provided by Telerik (www.telerik.com)
'Conversion powered by NRefactory.
'Twitter: @telerik
'Facebook: facebook.com/telerik
'=======================================================