<%
if id<>"" then
sql="SELECT * FROM contenidos WHERE id=" & id & " ORDER BY orden DESC"
set rs=sql_consulta(sql)
contenido=rs("contenido")
if contenido<>"" then
contenido=replace(contenido,"src=""../ftp/","src=""ftp/")
end if
%>
<% if rs("descarga")<>"" then ext=ExtensionArchivo("ftp/" & rs("descarga")) select case ext case "jpg","jpeg","gif" imagen="images/imagen.jpg" case "doc","docx" imagen="images/word.jpg" case "xls","xlsx" imagen="images/excel.jpg" case "mdb","mdbx" imagen="images/access.jpg" case "ppt","pptx" imagen="images/powerpoint.jpg" case "pdf" imagen="images/pdf.jpg" case else imagen="images/otros.jpg" end select %>
<%
end if
%>
<%
else
sql="SELECT * FROM contenidos WHERE id_seccion=1 ORDER BY orden DESC"
set rs=sql_consulta(sql)
cont=0
do while not rs.eof and cont < 8
cont=cont + 1
%>
<%
rs.movenext
loop
end if
%>
<%
if id<>"" then
set rs=nothing
sql="SELECT * FROM contenidos WHERE id<>" & id & " AND id_seccion=1 ORDER BY orden DESC"
set rs=sql_consulta(sql)
end if
%>
<%=rs("titulo")%>
<%=response.Write(contenido)%>
<% if rs("descarga")<>"" then ext=ExtensionArchivo("ftp/" & rs("descarga")) select case ext case "jpg","jpeg","gif" imagen="images/imagen.jpg" case "doc","docx" imagen="images/word.jpg" case "xls","xlsx" imagen="images/excel.jpg" case "mdb","mdbx" imagen="images/access.jpg" case "ppt","pptx" imagen="images/powerpoint.jpg" case "pdf" imagen="images/pdf.jpg" case else imagen="images/otros.jpg" end select %>
| " target="_blank" style="color:#999999; text-decoration:none;"><%=rs("descarga")%> |
<%
else
sql="SELECT * FROM contenidos WHERE id_seccion=1 ORDER BY orden DESC"
set rs=sql_consulta(sql)
cont=0
do while not rs.eof and cont < 8
cont=cont + 1
%>
| " style="text-decoration:none; color:#264D75; font-size:14px;"><%=rs("titulo")%> |
<%do while not rs.eof%>
<%=rs("fecha")%>
" class="titul"><%=rs("titulo")%>
<% rs.movenext loop set rs=nothing %>
