<%@LANGUAGE="VBSCRIPT"%>
<%
set news = Server.CreateObject("ADODB.Recordset")
news.ActiveConnection = MM_ASALeggi_STRING
news.Source = "SELECT TOP 1 news.idnews, news.titolo, news.sottotitolo, news.data, news.stato FROM news WHERE (((news.stato)=True)) ORDER BY news.data DESC; "
news.CursorType = 0
news.CursorLocation = 2
news.LockType = 3
news.Open()
news_numRows = 0
%>
ASA Agenzia Sanità & Ambiente
CRUCIVERBA
ANAGRAMMI
REBUS
ESCI
<%
news.Close()
'news = nothing
%>