<%@LANGUAGE="VBSCRIPT"%> <% set Avui = Server.CreateObject("ADODB.Recordset") Avui.ActiveConnection = MM_easem_STRING Avui.Source = "SELECT MAX(Year(Data)) FROM Premsa" Avui.CursorType = 0 Avui.CursorLocation = 2 Avui.LockType = 3 Avui.Open() Avui_numRows = 0 %> <% dim any_consulta any_consulta = Avui.Fields.Item(0).Value 'response.Write any_consulta %> <% Dim Articulos__MMColParam Articulos__MMColParam = any_consulta if (Request("MM_EmptyValue") <> "") then Articulos__MMColParam = Request("MM_EmptyValue") %> <% set Articulos = Server.CreateObject("ADODB.Recordset") Articulos.ActiveConnection = MM_easem_STRING Articulos.Source = "SELECT ID, Titol, Data FROM Premsa WHERE Year(Data) = '" + Replace(Articulos__MMColParam, "'", "''") + "'" Articulos.CursorType = 0 Articulos.CursorLocation = 2 Articulos.LockType = 3 Articulos.Open() Articulos_numRows = 0 %> <% set Anys = Server.CreateObject("ADODB.Recordset") Anys.ActiveConnection = MM_easem_STRING Anys.Source = "SELECT DISTINCT(Year(Data)) AS select_year FROM Premsa" Anys.CursorType = 0 Anys.CursorLocation = 2 Anys.LockType = 3 Anys.Open() Anys_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Articulos_numRows = Articulos_numRows + Repeat1__numRows %> Easem_cat
easem@andorra.ad
Article de premsa
       
LLISTAT DE NOTES DE PREMSA
<% While ((Repeat1__numRows <> 0) AND (NOT Articulos.EOF)) %> "> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Articulos.MoveNext() Wend %>
" class="premsa"><%=(Articulos.Fields.Item("Titol").Value)%>
<%=(Articulos.Fields.Item("Data").Value)%>
 
<% Articulos.Close() %> <% Anys.Close() %>