<%
'DIFFERENZA TRA ELENCO E DETTAGLIO
if (Request("act")="DETAIL") then
'ID NEWS
ID_NEWS = Request("id")
'DETTAGLIO NEWS
SQL_NEWS_DETTAGLIO = "SELECT tbl_NEWS_LINGUE.*,tbl_NEWS.* 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.ID_NEWS = "&ID_NEWS&" "
open_rs (SQL_NEWS_DETTAGLIO)
DATA_CREAZIONE = rs("DATA_CREAZIONE")
TITOLO = rs("TITOLO")
SOTTOTITOLO = rs("SOTTOTITOLO")
CORPO = rs("CORPO")
AUTORE = rs("AUTORE")
close_rs
%>
<%=DATA_CREAZIONE%>
<%=TITOLO%>
<%=SOTTOTITOLO%>
<%=CORPO%>
<%=AUTORE%>
<%
else
'ELENCO NEWS
'DATA
'DataCorrente = Month(Date())&"/"&Day(Date())&"/"&Year(Date())
DataCorrente = Date()
'SQL
SQL_NEWS_ELENCO = "SELECT 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 DATA_END_PUB > DateValue('"&DataCorrente&"') ORDER BY tbl_NEWS.ORDINE ASC"
open_rs (SQL_NEWS_ELENCO)
'NAVIGATORE
Repeat1__numRows = NUM_MAX_RECORD
arDatiNavigazione = NavigateRecord ()
IF NOT rs.BOF AND NOT rs.BOF THEN
%>
<%=creaNavigatore("SCHEDE", arDatiNavigazione, 300, "../adminews/",TRASNL_RECORD,TRASNL_RECORD_A,TRASNL_RECORD_DI)%>
<%
WHILE ((Repeat1__numRows <> 0) AND (NOT rs.EOF))
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RS.MoveNext()
WEND
%>
<%
ELSE
%>
<%=TRASNL_NORECORD%>
<%
END IF
close_rs
end if
%>