<%@LANGUAGE="VBSCRIPT"%> <% set Noticiari = Server.CreateObject("ADODB.Recordset") Noticiari.ActiveConnection = MM_Calidae_STRING Noticiari.Source = "SELECT * FROM Noticiaris ORDER BY Data DESC" Noticiari.CursorType = 0 Noticiari.CursorLocation = 2 Noticiari.LockType = 3 Noticiari.Open() Noticiari_numRows = 0 %> <% set Anys = Server.CreateObject("ADODB.Recordset") Anys.ActiveConnection = MM_Calidae_STRING Anys.Source = "SELECT DISTINCT(Year) AS Anys FROM Noticiaris ORDER BY Year DESC" Anys.CursorType = 0 Anys.CursorLocation = 2 Anys.LockType = 3 Anys.Open() Anys_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 5 Dim Repeat1__index Repeat1__index = 0 Noticiari_numRows = Noticiari_numRows + Repeat1__numRows %> Calidae


  
 
   Cercar noticies per any:     

<% While ((Repeat1__numRows <> 0) AND (NOT Noticiari.EOF)) %>
  
Data: <%=(Noticiari.Fields.Item("Data").Value)%>
   
Títol: <%=(Noticiari.Fields.Item("Titol").Value)%>
Font: <%=(Noticiari.Fields.Item("Font").Value)%>
Text: <%=(Noticiari.Fields.Item("Text").Value)%>
-----
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Noticiari.MoveNext() Wend %>
Av. Fiter i Rossell 71 . Centre Socio-cultural i Recreatiu
AD 700 Escaldes-Engordany
(Principat d'Andorra)
Telf.: / Fax. (+376) 864 805
info@calidae.org
Disseny i programació: Empresa Activa SL
<% Noticiari.Close() %> <% Anys.Close() %>