hola amigos tengo una pagina donde muestro un listado de noticias, pero quiero que se pueda listar por la fecha que se introduzca en un textbox hasta ahi la cosa funciona muy bien, el tema es que cuando le doy siguiente o al numero dos vuelve al resultado normal
como puedo hacer para que esto funcione bien?
aqui les dejo el codigo
<%
dim FechaN
if not Request.Form("porFecha")="" then
FechaN=Request.Form("porFecha")
end if
' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
if Request.QueryString("todas.value=ON") then sqlNoticias = "SELECT * FROM tblxxx"
if not FechaN="" then
sqlNoticias = "SELECT * FROM tblxxx WHERE Fecha='"&FechaN&"' ORDER BY Seccion DESC"
else
sqlNoticias= "SELECT * FROM tblDiario ORDER BY id DESC"
end if
' Creamos la conexion a la base de datos
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxxx.mdb")
' Creamos el RecordSet y definimos la cantidad de registros a mostrar
Set resNoticias = Server.CreateObject("ADODB.Recordset")
resNoticias.PageSize = mostrar
resNoticias.CacheSize = mostrar
' Abrimos la tabla...
resNoticias.Open sqlNoticias, Con,3,1
'contamos las páginas que se formaron con la variable mostrar.
cantN_paginas = resNoticias.PageCount
' Si el pedido de página cae afuera del rango,
' lo modificamos para que caiga adentro
If pagina_actual > cantN_paginas Then pagina_actual = cantN_paginas
If pagina_actual < 1 Then pagina_actual = 1
' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF
If cantN_paginas = 0 Then
Response.Write ("<p class='Estilo1'>")
Response.Write (" No hay registros...")
Response.Write ("<br>")
Response.Write (" Con la fecha: ")& FechaN
Else
' Nos movemos a la página elegida
resNoticias.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
%>
<form name="form1" method="post" action="lista-xxxx.asp">
Ordenar por fecha:
<input name="porFecha" type="text" id="porFecha">
</form>