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....