<%@LANGUAGE="VBSCRIPT"%>
<%
set anys = Server.CreateObject("ADODB.Recordset")
anys.ActiveConnection = MM_fc_encamp_STRING
anys.Source = "SELECT DISTINCT(Year(Data)) FROM noticies ORDER BY Year(Data) DESC;"
anys.CursorType = 0
anys.CursorLocation = 2
anys.LockType = 3
anys.Open()
anys_numRows = 0
%>
<%
set titulars = Server.CreateObject("ADODB.Recordset")
titulars.ActiveConnection = MM_fc_encamp_STRING
if Request.Querystring("data") = "" then
titulars.Source = "SELECT * FROM noticies ORDER BY Data DESC"
else
titulars.Source = "SELECT * FROM noticies WHERE Year(Data) = " & Request.Querystring("data") & " ORDER BY Data DESC"
end if
titulars.CursorType = 0
titulars.CursorLocation = 2
titulars.LockType = 3
titulars.Open()
titulars_numRows = 0
Dim Repeat1__numRows
if Request.Querystring("data") = "" then
Repeat1__numRows = 5
else
Repeat1__numRows = -1
end if
%>
Futbol Club Encamp
<%
While ((Repeat1__numRows <> 0) AND (NOT titulars.EOF))
%>
<% if intRowColor = 0 Then
Response.Write "
