<%
dim cont
dim order
dim cadena
dim totalRows
cont=0
order="order by FECHA"
Set conn = Server.CreateObject ("ADODB.Connection")
conn.Open conexion
set rs = server.CreateObject("ADODB.RecordSet")
Const adOpenKeyset = 1
Const adLockReadOnly = 1
rs.cursorlocation=3
rs.cachesize=10
response.buffer
sql="select CODPAI,CODCAT,FECHA,IDNOT,TITULO,ESTADO,RESUMEN from GQ_NOT_NOTICIAS where ESTADO='ACT' and CODCAT='"&categoriaNissan&"' and (CODPAI='"&paisNissan&"' or CODPAI='"&paisGeneral&"') order by FECHA asc"
rs.Open sql,conn
totalRows = rs.RecordCount
%>
<%if request.Form("cmd") = "find" then
response.Write("Se encontraron un total de ")
response.Write(totalRows)
response.Write(" registro(s)")
else
response.Write("Existe un total de ")
response.Write(totalRows)
response.Write(" registro(s)")
end if
%>
<%
if rs.eof or rs.bof then
Response.Write " "
Else
TotalRows = rs.RecordCount
rs.PageSize = 5 ' Aqui osvaldo, parametro de cuantos registro se van a mostrar en la principal de noticias
PageSize = rs.PageSize
TotalPages=rs.PageCount
select case Request("move")
case "first" pageNo = 1 ' First
case "prev" pageNo = cint(Session("page_num")) - 1 ' Next
case "next" pageNo = cint(Session("page_num")) + 1 ' Previous
case "last" pageNo = TotalPages ' Last
case Else pageNo = 1
End Select
if Cint(pageNo) < 1 then pageNo = 1
if Cint(pageNo) > TotalPages then pageNo = TotalPages
rs.AbsolutePage = pageNo
PageNumber=pageNo
Session("page_num") = pageNo
%>
Página<%=PageNumber%>- <%=TotalPages%>
<%HowMany = 0
Do until rs.EOF or HowMany >= PageSize %>
