Giornale Multimediale di Controinformazione di Terrasini e Cinisi - Fondato nel 2002 dagli ultimi cittadini liberi di Terrasini chi siamo • archivio news • speciali • umorismo • forum • chat • sondaggi • contattaci • la vignetta • home page <% RecordsPerPagina = 20 page = Request("page") if page="" then page=1 %> <% Set rs = Server.CreateObject("ADODB.Recordset") strSQL="select * FROM news WHERE Argomento='Italia e Mondo' ORDER BY DATA DESC" rs.Open strSQL,Conn,1 %> <% TotalRecords = rs.RecordCount If TotalRecords=0 then Response.Write "Nessun risultato trovato" Else Response.Write "Articoli presenti: " & TotalRecords & "" %> <% ' paginazione rs.PageSize = RecordsPerPagina rs.AbsolutePage = page For i=1 to RecordsPerPagina if Not rs.EOF then %> "><%=rs("Data")%> "><%=rs("Titolo")%> ">di <%=rs("Autore")%> <% rs.MoveNext end if Next End if If TotalRecords > 0 then Response.Write "Pagine: " For p=1 to rs.PageCount If p <> CInt(Page) then Response.Write "" Else ' pagina attuale Response.Write "" End if Response.Write p If p <> CInt(Page) then Response.Write " " Else Response.Write " " End if Next Response.Write " " End if %> Se stai cercando notizie su di un argomento particolare, guarda sotto: oltre alle ultime 3 notizie, vi sono degli archivi organizzati per tipologia di argomento: se per esempio clicchi su "Archivio notizie Terrasini" compaiono ESCLUSIVAMENTE gli articoli su quel paese. E così vale anche per gli altri argomenti che sono Cinisi, Italia e Mondo e Speciali (dossier ed articoli fotografici) <% SQL="SELECT top 3 * FROM news WHERE Argomento='Terrasini' ORDER BY ID DESC" Set rec = Server.CreateObject("ADODB.Recordset") Set Rec = Conn.Execute(SQL) While Not rec.EOF%> <% rec.MoveNext Wend rec.close%> ">- <%=rec("Data")%> - ">• <%=rec("Titolo")%> <% SQL="SELECT top 3 * FROM news WHERE Argomento='Cinisi' ORDER BY ID DESC" Set rec = Server.CreateObject("ADODB.Recordset") Set Rec = Conn.Execute(SQL) While Not rec.EOF%> <% rec.MoveNext Wend rec.close%> ">- <%=rec("Data")%> - ">• <%=rec("Titolo")%> <% SQL="SELECT top 3 * FROM news WHERE Argomento='Italia e Mondo' ORDER BY ID DESC" Set rec = Server.CreateObject("ADODB.Recordset") Set Rec = Conn.Execute(SQL) While Not rec.EOF%> <% rec.MoveNext Wend rec.close%> ">- <%=rec("Data")%> - ">• <%=rec("Titolo")%> <% SQL="SELECT top 3 * FROM speciali ORDER BY ID DESC" Set rec = Server.CreateObject("ADODB.Recordset") Set Rec = Conn.Execute(SQL) While Not rec.EOF%> <% rec.MoveNext Wend rec.close%> ">- <%=rec("Data")%> - ">• <%=rec("Titolo")%> Non trovi un vecchio articolo? Prova a rovistare tra le notizie che vanno dalla fondazione del sito (giugno 2002) fino a novembre 2005: clicca nel banner qui in basso