desplegar tabla e imagenes desde el code Beheim Bien tengo una rutina que extrae de la base de datos los nombres de imagenes que se encuentren activas, por medio de un while le inserto la ruta a los nombres de las imagenes y por medio de response.write armo la tabla html, las imagenes salen el problema que no donde quiero puesto que me salen arriba de mi plantilla y quiero que salga dentro de una estructura que ya tengo establecida para mi sitio . aqui muestro el codigo
[code]
Dim ssql As String
Dim oconn As New System.Data.SqlClient.SqlConnection
Dim oCom As New System.Data.SqlClient.SqlCommand
Dim ds As New System.Data.DataSet
oconn.ConnectionString = dbserver
oconn.Open()
ssql = "Select txt_nombre from imagenes_rh where activado = 1"
oCom.Connection = oconn
oCom.CommandText = ssql
oCom.CommandType = System.Data.CommandType.Text
Dim adpt As New System.Data.SqlClient.SqlDataAdapter(oCom)
adpt.Fill(ds, "resul")
If ds.Tables("resul").Rows.Count > 0 Then
Dim ruta As String
ruta = "\\tau\Proyectos Web VB 2008\adirectory\galrh\"
Dim vect(0) As String
Dim i As Integer
i = 0
Dim a = ds.Tables("resul").Rows.Count
While i < a
vect(i) = ds.Tables("resul").Rows(i)(0)
' redimenciona el arreglo con cada elemento
i = UBound(vect, 1) + 1
'redimenciona y preserva los datos ya existentes
ReDim Preserve vect(i)
End While
i = UBound(vect, 1) - 1
ReDim Preserve vect(i)
'aca comenzamos a armar la tabla
Response.Write("<table style=""width: 100%;"" border=""0"">" & vbCrLf)
Response.Write("<asp:Table ID=""Table1"" runat=""server"" Width=""250px"">" & vbCrLf)
Response.Write("<tr align= ""center"">" & vbCrLf)
Response.Write("<tr align= ""center"">" & vbCrLf)
i = 0
While i < ds.Tables("resul").Rows.Count
Response.Write("<td>" & vbCrLf)
Response.Write("<img src=""\\tau\Proyectos Web VB 2008\adirectory\galrh\" & vect(i) & """ />" & vbCrLf)
Response.Write("</td>" & vbCrLf)
i = i + 1
If i <> 1 And (-1) ^ i = 1 Then
'par
Response.Write("</tr>" & vbCrLf)
Response.Write("<tr align= ""center"">" & vbCrLf)
End If
End While
Response.Write("</tr>" & vbCrLf)
Response.Write("</table>" & vbCrLf)
else '
Response.Write("<p style=""margin:0"">Por el momento no hay ningun anuncio</p>")
End If
[\code]
Intente con la antigua forma del include pero me envia problemas como que no pueden haber dos @page o que hay 2 o mas <header>, tambien intente metiendo esta seccion de codigo en un control de usuario pero igual me lo imprime arriba, tambien probe creando un master page y lo mismo lo pone arriba al inicio de todo, despues se me ocurrio que podia meter las imagenes resultantes en un gridview pero solo me despliega los nombres quite las columnas y agrege una columna de imagen pero no se donde ponerle la ruta....
a ver si alguien me ayuda con alguna opcion mas....
