<%@ Language=VBScript %> <% Dim Conn1 OpenConnection Conn1 %> INISOD INGENIEROS - Oficina T�cnica :: Estudio de ingenieria, construcción, ingenieros industriales, ingenieros consultores, ingenieros de proyectos, ingenieros de instalaciones, ingeniería hospitalaria., Edificación y construcción, Instalaciones, Infraestructuras urbanas, Medio ambiente, Industrias, Licencias de apertura, Peritaciones, Control de Calidad, Organización industrial
PROYECTOS / NOTICIAS  
<% Listado="SELECT id,fecha,titulo,cuerpo,ingenieros,archivo FROM NOTICIAS where ingenieros<>0 order by fecha desc" Set Rs1=Conn1.Execute(Listado) Do while not Rs1.eof %> <% rs1.movenext LOOP rs1.close set rs1=nothing CloseConnection Conn1 %>

<%= FormatDateTime(Rs1("fecha"), 2) %> «» <%=Rs1("titulo")%>

<%=Rs1("cuerpo")%>

<% if Rs1("archivo")<>"" then %>

" class="nav">Descargar " class="nav">
<% end if %>