<% select case cint(id_familia) case 1 clase1="class=""subseleccio""" clase2="" clase3="" enlace1="Galardones" enlace2="Ferias" enlace3="Formación y colaboraciones" case 2 clase1="" clase2="class=""subseleccio""" clase3="" enlace1="Galardones" enlace2="Ferias" enlace3="Formación y colaboraciones" case 3 clase1="" clase2="" clase3="class=""subseleccio""" enlace1="Galardones" enlace2="Ferias" enlace3="Formación y colaboraciones" case else clase1="class=""subseleccio""" clase2="" clase3="" enlace1="Galardones" enlace2="Ferias" enlace3="Formación y colaboraciones" end select %>

• ><%=enlace1%>
• ><%=enlace2%>
• ><%=enlace3%>

<% if id<>"" then sql="SELECT * FROM contenidos WHERE id=" & id & " ORDER BY orden DESC" set rs=sql_consulta(sql) else if id_familia<>"" then sql="SELECT * FROM contenidos WHERE id_seccion=2 AND id_familia=" & id_familia & " ORDER BY orden DESC" set rs=sql_consulta(sql) else sql="SELECT * FROM contenidos WHERE id_seccion=2 AND id_familia=1 ORDER BY orden DESC" set rs=sql_consulta(sql) id_familia=rs("id_familia") end if if rs.eof then id=0 else id=rs("id") end if end if if not rs.eof then contenido=rs("contenido") if contenido<>"" then contenido=replace(contenido,"src=""../ftp/","src=""ftp/") 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")%>

<%end if%> <%end if%>

<%do while not rs.eof%>

<%=rs("fecha")%>

&id_familia=<%=rs("id_familia")%>" class="titul"><%=rs("titulo")%>

 

<% rs.movenext loop %>