<% @language="VBScript" %> <% OPTION EXPLICIT %> <% Dim dirapp dirapp = "../admin/" %> <% Dim sql Dim rs %> <% 'pedimos las noticias sql = "SELECT * from tbl_noticies WHERE fec_cad>now() ORDER BY fec_inicio DESC" Set rs = conn.Execute (sql) if not rs.eof and not rs.bof then while not rs.eof %> <% rs.movenext %> <% wend %> <% end if %>

		" target="noti" class="aporta"><%= rs("titular_es") %>