Hola chicos
Mi duda es la siguiente, tengo que organizar cuatro DIVs que estan dentro de un ASP. consulto porque si bien en html es algo sencillo en ASP tengo miedo de mandarme una macana y dejar algo mal.
en la imagen a continuación se ven cuatro solapas, necesito que la ultima CLIMA sea la primera y las otras tres queden dentro de ella.
El codigo es el siguiente:
Código ASP:
Ver original<%
Dim r
If (r <> 8) Then
rsTabla.Open "SELECT TOP 1 con_id, con_titulo, con_fechainicio, con_sumario FROM cms_contenidos WHERE contip_id = 8 AND con_fechainicio <= '" & fecha & "' AND (con_fechafin >= '" & fecha & "' OR con_fechafin IS NULL) ORDER BY con_fechainicio DESC", dbConnection, 1
If (Not rsTabla.EOF) Then
Response.Write("<div class=""HSeccion"">INFORMES USDA</div><br class=""limpiar"" />" & vbCRLF)
Response.Write("<div class=""HContenido"">" & vbCRLF)
Response.Write("<div class=""HCaja"">" & vbCRLF)
Response.Write("<span class=""HCajaFecha"">" & Right("0" & Day(rsTabla("con_fechainicio").Value), 2) & "/" & Right("0" & Month(rsTabla("con_fechainicio").Value), 2) & "/" & Year(rsTabla("con_fechainicio").Value) & "</span><br />" & vbCRLF)
Response.Write("<a href=""/nota.asp?cid=" & rsTabla("con_id").Value & """ class=""HCajaTitulo"">" & rsTabla("con_titulo").Value & "</a><br />" & vbCRLF)
Response.Write("<p class=""HCajaSumario"">" & rsTabla("con_sumario").Value & "</p>" & vbCRLF)
Response.Write("</div>" & vbCRLF)
Response.Write("</div>" & vbCRLF)
Response.Write("<a href=""/listado.asp?tid=8"" class=""HOpcion"">VER TODAS</a><br class=""limpiar"" />" & vbCRLF)
Response.Write("<br />" & vbCRLF)
End If
rsTabla.Close
End If
rsTabla.Open "SELECT TOP 1 con_id, con_titulo, con_fechainicio, con_sumario FROM cms_contenidos WHERE contip_id = 11 AND con_fechainicio <= '" & fecha & "' AND (con_fechafin >= '" & fecha & "' OR con_fechafin IS NULL) ORDER BY con_fechainicio DESC", dbConnection, 1
If (Not rsTabla.EOF) Then
Response.Write("<div class=""HSeccion"">ESTADO DE CULTIVOS USDA</div><br class=""limpiar"" />" & vbCRLF)
Response.Write("<div class=""HContenido"">" & vbCRLF)
Response.Write("<div class=""HCaja"">" & vbCRLF)
Response.Write("<span class=""HCajaFecha"">" & Right("0" & Day(rsTabla("con_fechainicio").Value), 2) & "/" & Right("0" & Month(rsTabla("con_fechainicio").Value), 2) & "/" & Year(rsTabla("con_fechainicio").Value) & "</span><br />" & vbCRLF)
Response.Write("<a href=""/nota.asp?cid=" & rsTabla("con_id").Value & """ class=""HCajaTitulo"">" & rsTabla("con_titulo").Value & "</a><br />" & vbCRLF)
Response.Write("<p class=""HCajaSumario"">" & rsTabla("con_sumario").Value & "</p>" & vbCRLF)
Response.Write("</div>" & vbCRLF)
Response.Write("</div>" & vbCRLF)
Response.Write("<a href=""/listado.asp?tid=11"" class=""HOpcion"">VER TODAS</a><br class=""limpiar"" />" & vbCRLF)
Response.Write("<br />" & vbCRLF)
End If
rsTabla.Close
rsTabla.Open "SELECT TOP 1 con_id, con_titulo, con_fechainicio, con_sumario FROM cms_contenidos WHERE contip_id = 12 AND con_fechainicio <= '" & fecha & "' AND (con_fechafin >= '" & fecha & "' OR con_fechafin IS NULL) ORDER BY con_fechainicio DESC", dbConnection, 1
If (Not rsTabla.EOF) Then
Response.Write("<div class=""HSeccion"">ESTADO DE CULTIVOS ARGENTINA</div><br class=""limpiar"" />" & vbCRLF)
Response.Write("<div class=""HContenido"">" & vbCRLF)
Response.Write("<div class=""HCaja"">" & vbCRLF)
Response.Write("<span class=""HCajaFecha"">" & Right("0" & Day(rsTabla("con_fechainicio").Value), 2) & "/" & Right("0" & Month(rsTabla("con_fechainicio").Value), 2) & "/" & Year(rsTabla("con_fechainicio").Value) & "</span><br />" & vbCRLF)
Response.Write("<a href=""/nota.asp?cid=" & rsTabla("con_id").Value & """ class=""HCajaTitulo"">" & rsTabla("con_titulo").Value & "</a><br />" & vbCRLF)
Response.Write("<p class=""HCajaSumario"">" & rsTabla("con_sumario").Value & "</p>" & vbCRLF)
Response.Write("</div>" & vbCRLF)
Response.Write("</div>" & vbCRLF)
Response.Write("<a href=""/listado.asp?tid=12"" class=""HOpcion"">VER TODAS</a><br class=""limpiar"" />" & vbCRLF)
Response.Write("<br />" & vbCRLF)
End If
rsTabla.Close
rsTabla.Open "SELECT TOP 1 con_id, con_titulo, con_fechainicio, con_sumario FROM cms_contenidos WHERE contip_id = 4 AND con_fechainicio <= '" & fecha & "' AND (con_fechafin >= '" & fecha & "' OR con_fechafin IS NULL) ORDER BY con_fechainicio DESC", dbConnection, 1
If (Not rsTabla.EOF) Then
Response.Write("<div class=""HSeccion"">CLIMA Y CULTIVOS</div><br class=""limpiar"" />" & vbCRLF)
Response.Write("<div class=""HContenido"">" & vbCRLF)
Response.Write("<div class=""HCaja"">" & vbCRLF)
Response.Write("<span class=""HCajaFecha"">" & Right("0" & Day(rsTabla("con_fechainicio").Value), 2) & "/" & Right("0" & Month(rsTabla("con_fechainicio").Value), 2) & "/" & Year(rsTabla("con_fechainicio").Value) & "</span><br />" & vbCRLF)
Response.Write("<a href=""/nota.asp?cid=" & rsTabla("con_id").Value & """ class=""HCajaTitulo"">" & rsTabla("con_titulo").Value & "</a><br />" & vbCRLF)
Response.Write("<p class=""HCajaSumario"">" & rsTabla("con_sumario").Value & "</p>" & vbCRLF)
Response.Write("</div>" & vbCRLF)
Response.Write("</div>" & vbCRLF)
Response.Write("<a href=""/listado.asp?tid=4"" class=""HOpcion"">VER TODAS</a><br class=""limpiar"" />" & vbCRLF)
Response.Write("<br />" & vbCRLF)
End If
rsTabla.Close
%>