Algo sencillo: HTML dentro de ASP

[datcom]

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:

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

[neofilo]

te recomiendo que para hacer cosas de esas uses SpryAssets

[datcom]

Pero digo, porque nose que es spryAssets, no es como mi logica lo deduce? colocar parte del codigo que presente mas arriba, osea el que corresponderia al clima