<%
Dim oConn, rs, SQL, cercador
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que quera
TamPagina=7
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("noticies.mdb")&";"
cercador = Request.Form ("buscador")
If cercador <> "" Then
TamPagina=200
SQL = "SELECT * FROM Noticies WHERE Noticies.NoticiaP1 Like '%" & cercador & "%' and Noticies.Visualitzacio = 'si' and Noticies.Idioma = 'Català' ORDER BY Noticies.Data DESC"
Else
Dim filtre
Filtre = Request.Form ("disciplina")
If filtre = "" Then
Filtre = "0"
Else
Filtre = Filtre
End If
If filtre > "0" Then
TamPagina=200
SQL = "SELECT * FROM Noticies WHERE Noticies.Categoria='" & Filtre & "' and Noticies.Visualitzacio = 'si' and Noticies.Idioma = 'Català' ORDER BY Noticies.Data DESC"
Else
SQL = "SELECT * FROM Noticies WHERE Noticies.Visualitzacio = 'si' and Noticies.Idioma = 'Català' ORDER BY Noticies.Data DESC"
End If
End If
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
rs.Open SQL, oConn, 1, 2
if rs.EOF then
%>
<%Response.Write("No hi ha cap notícia d'aquesta categoria")%>
<%
End If
PaginasTotales=rs.PageCount
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then
Response.Write("")
else
rs.AbsolutePage=PaginaActual
%>
<%
Response.Write ("Pàgina: " & PaginaActual & " de " & PaginasTotales & "
")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
%>
&disciplina=<%=Filtre%>'" onmouseover="this.style.backgroundColor = '#F0F0F0';" onmouseout="this.style.backgroundColor = '#FFFFFF';" style="cursor: pointer">
|
<%
'Dim DataFinal
DataFinal= rs.fields("Data")
If DataFinal = "" Then
DataFinal = Today()
DataFinal = Cstr(Day(DataFinal) & "/" & Month(DataFinal) & "/" & Right(Year(DataFinal),4))
Else
DataFinal = Cstr(Day(DataFinal) & "/" & Month(DataFinal) & "/" & Right(Year(DataFinal),4))
End If
%>
<%=DataFinal%> |
<%=rs.Fields("Titol")%>
<%=rs.Fields("Noticia")%> |
 " border=0 width="60" height="38" style="border: 1px solid #808080"> |
<%
CuantosRegistros=CuantosRegistros+1
rs.movenext
loop
end if
rs.Close
set rs=nothing
oConn.Close
set oConn=nothing
%>