<%@LANGUAGE="VBSCRIPT"%> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_conn_STRING news.Source = "SELECT * FROM news WHERE titoloING='NO' AND anno = " & year(now()) & " ORDER BY data DESC" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 1 news.Open() news_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 news_numRows = news_numRows + Repeat1__numRows %> Documento senza titolo
[torna all'elenco news]
<% While ((Repeat1__numRows <> 0) AND (NOT news.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 news.MoveNext() Wend %>
"> <%=(news.Fields.Item("periodo").Value)%>
<%=(news.Fields.Item("titolo").Value)%>
<%if ((news.Fields.Item("foto").Value) <> "") then%> " alt=""> <%end if%> <%if ((news.Fields.Item("descrizione").Value) <> "") then%> <%=replace((news.Fields.Item("descrizione").Value),vbcrlf,"
")%> <%end if%>

 

<% news.Close() Set news = Nothing %>