 | 




|  |
<%
set rsLocale = Server.CreateObject("ADODB.Recordset")
strSql = "Select * from tbNews where visibile='SI' order by idNews desc"
rsLocale.open strSql,Application("strConn")
do until rsLocale.eof
%>
<%=rsLocale("data")%>
<%=rsLocale("titolo")%>
<%=rsLocale("testo")%>
<%
rsLocale.movenext
loop
rslocale.close
set rsLocale= nothing
%>
| |