<%@LANGUAGE="VBSCRIPT"%> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_amici_STRING news.Source = "SELECT * FROM news 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 %> Disabili mentali: amici senza limiti

News

 

<% While ((Repeat1__numRows <> 0) AND (NOT news.EOF)) %>

<%=(news.Fields.Item("falsoIDnews").Value)%>"><%=(news.Fields.Item("data").Value)%> - <%=(news.Fields.Item("titolo").Value)%>

<%=(news.Fields.Item("sottotitlolonews").Value)%>

 

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 news.MoveNext() Wend %>

Hai stampato una pagina del sito www.santegidio.org

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