Estoy tratando de hacer un slider o carousel recuperando las rutas de las imágenes de mi base de datos a mi aplicacion de vb.net.
No logro mostrar las imágenes, además no puedo acceder a mis variables que están en el código HTML. Tanto Response.Write(Indicators)
como Response.Write(slides)
me aparecen subrayadas en color verde.
Estoy trabajando con una página maestra y mi código es el siguiente:
@Code
PageData("Title") = "Escriba el título aquí"
Layout = "_Layout.vbhtml"
@Imports System.Data
@Imports System.Data.SqlClient
@Imports System.Data.Sql
' variables para carosuel '
Dim slides As String
Dim indicators As String
Dim counter As Integer
counter = 0
Try
Dim cn = ConfigurationManager.ConnectionStrings("portal").ConnectionString
Dim conexion As New SqlConnection(cn)
Dim cmd As New SqlCommand()
cmd.Connection = conexion
cmd.CommandText = "SELECT * FROM imagenes WHERE status='1' ORDER BY datecreate "
conexion.Open()
Dim dr As SqlDataReader
dr = cmd.ExecuteReader()
If dr.HasRows Then
Do While dr.Read()
If counter = 0 Then
indicators="<li data-target='#carousel-example-generic' data-slide-to='"& counter &"' class='active'></li>"
slides = "<div class='item active'><img src='" & dr.GetString(1) & "' /><div class='carousel-caption'><h3>" & dr.GetString(3) & "</h3></div></div>"
Else
indicators = "<li data-target='#carousel-example-generic' data-slide-to='" & counter & "'></li>"
slides = "<div class='item active'><img src='" & dr.GetString(1) & "' /><div class='carousel-caption'><h3>" & dr.GetString(3) & "</h3></div></div>"
End If
counter += 1
Loop
Else
MsgBox(":::error ::: ", MsgBoxStyle.Information, "Portal Fónix")
End If
dr.Close()
conexion.Close()
Catch exc As Exception
MsgBox(":::Hay una excepción::: " & exc.ToString, MsgBoxStyle.Critical, "Portal")
End Try
End Code
<div>
<div id="page-wrapper">
<div id="page-inner">
<section class="section-white">
<div class="container">
<div id="carousel-example-generic" class="carousel slide" data-ride="carousel">
<!-- Indicadores -->
<ol class="carousel-indicators">
@code
Response.Write(indicators)
End Code
</ol>
<div class="carousel-inner">
<!-- Wrapper for slides -->
@code
Response.Write(slides)
End Code
</div>
<!-- Controles -->
<a class="left carousel-control" href="#carousel-example-generic" data-slide="prev">
<span class="glyphicon glyphicon-chevron-left"></span>
</a>
<a class="right carousel-control" href="#carousel-example-generic" data-slide="next">
<span class="glyphicon glyphicon-chevron-right"></span>
</a>
</div>
</div>
</section>
</div>
</div>
</div>