|
|
|
|
| |
<%
sSQL0="Select * from clasificacion_prensa"
rs0.open sSQL0, conn, 3, 3
%>
<%do while not rs0.eof%>
<%
sSQL="Select * from GaleriaPrensa where medio='" & rs0("medio") & "' order by fecha DESC"
rs.open sSQL, conn, 3, 3
%>
<%if not rs.eof then%>
| <%=ucase(rs0("medio"))%> |
| |
<%do while not rs.eof%>
 |
|
<%=rs("titulo")%> (<%=rs("fecha")%>) |
">VER NOTICIA |
<%if rs("descripcion")<>"" then%>
| |
| <%=rs("descripcion")%> |
<%end if%>
|
<%rs.moveNext%>
<%loop%>
<%end if%>
<%rs.close%>
<%rs0.movenext%>
<%loop%>
<%rs0.close%>
|
|
|
