Ola amigos,
Tenho um sistema de diarias no meu site , gostaria agora de incluir uma opção dentro do meu codigo atual aonde ele mostre todos os registros que cadastrei no ano de 2014 por exemplo .... abaixo meu codigo
<%
' Definindo o caminho do banco de dados
caminho = "noticias.mdb"
' Fazendo a conexão com o banco de dados (paginacao.mdb)
set objconn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho)
objconn.Open DSN
' String SQL para consulta
SQL = "SELECT * FROM documentos Where Externo = 'Diarias' order by Data DESC"
' Abrindo o registro
SET objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objconn,3
' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If objRS.EOF Then
Response.Write("Nenhum registro foi encontrado")
Else
' Definindo o número de registros por página
objRS.PageSize = 5
' Recupera o valor da variável pagina
pagina = Request.QueryString("pagina")
' Se a variável pagina for vazio, indica que a página sera a primeira
' Senão a variável pagina recebe o valor da página corrente, definida acima
If pagina = "" Then
objRS.AbsolutePage = 1
pagina = 1
Else
objRS.AbsolutePage = pagina
End If
%>
Algume pode me dar uma forcinha..
Obrigado.