<% 'DATA 'DataCorrente = Month(Date())&"/"&Day(Date())&"/"&Year(Date()) DataCorrente = Date() 'SQL SQL_NEWS_HOME = "SELECT Top "&NUM_MAX_ITEM&" tbl_NEWS_LINGUE.ID_NEWS,tbl_NEWS_LINGUE.TITOLO,tbl_NEWS_LINGUE.SOTTOTITOLO,tbl_NEWS.DATA_CREAZIONE FROM tbl_LINGUE, tbl_NEWS, tbl_NEWS_LINGUE WHERE tbl_LINGUE.CODE_LINGUA = '"&CODE_LINGUA&"' and tbl_LINGUE.ID_LINGUA=tbl_NEWS_LINGUE.ID_LINGUA and tbl_NEWS.ID_NEWS = tbl_NEWS_LINGUE.ID_NEWS and tbl_NEWS.ABILITATO = TRUE and tbl_NEWS.HOME_PAGE = TRUE and DATA_END_PUB > DateValue('"&DataCorrente&"') ORDER BY tbl_NEWS.ORDINE ASC" open_rs (SQL_NEWS_HOME) IF NOT rs.BOF AND NOT rs.BOF THEN %>

<% WHILE (NOT rs.EOF) %>

<%=rs("DATA_CREAZIONE")%>
<%=rs("TITOLO")%>
<%=rs("SOTTOTITOLO")%>

<% if (POPUP_DETTAGLIO) then %> ','DettaglioNews','width=<%=WIDTH_POPUP%>,height=<%=HEIGHT_POPUP%>')" class="readmore"><%=TRASNL_READMORE%> <% else %> " class="readmore_h" target="_top"><%=TRASNL_READMORE%> <% end if %>

<% RS.MoveNext() WEND %>

<% ELSE %>

<%=TRASNL_NORECORD%>

<% END IF close_rs %>