|
<%
session.lcid=1046
SQL = "select * from cadastros order by data desc"
'CONFIGURAÇÃO PAGINAÇÃO****************************************
IF Request.QueryString("PN") = "" THEN
PaginaCorrente = 1
ELSE
PaginaCorrente = Request.QueryString("PN")
END IF
IF Request.QueryString("intervalo") = "" THEN
Intervalo = 50 'Valor Padrão
ELSE
Intervalo = Request.QueryString("intervalo")
END IF
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorLocation = 3
Rs.Open SQL, ConnString
Rs.PageSize = CInt(intervalo)
TotalPaginas= RS.PageCount
TotalRegistros = RS.recordcount
IF NOT Rs.Eof THEN
Rs.AbsolutePage = CInt(PaginaCorrente)
END IF
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorLocation = 3
Rs.Open SQL, ConnString
Rs.PageSize = CInt(intervalo)
TotalPaginas= RS.PageCount
TotalRegistros = RS.recordcount
IF NOT Rs.Eof THEN
Rs.AbsolutePage = CInt(PaginaCorrente)
END IF
'FIM CONFIGURAÇÃO PAGINAÇÃO****************************************
'INICIO MOSTRAR DADOS ********************
DO UNTIL Rs.AbsolutePage <> CInt(PaginaCorrente) OR Rs.EOF
%>
<%
RS.MoveNext
LOOP
%>
<%
RS.Close
Set RS = Nothing
' FIM MOSTRAR DADOS ******************
%>
|
|
|
<%
session.lcid=1046
SQL = "select * from cadastros order by data desc"
'CONFIGURAÇÃO PAGINAÇÃO****************************************
IF Request.QueryString("PN") = "" THEN
PaginaCorrente = 1
ELSE
PaginaCorrente = Request.QueryString("PN")
END IF
IF Request.QueryString("intervalo") = "" THEN
Intervalo = 50 'Valor Padrão
ELSE
Intervalo = Request.QueryString("intervalo")
END IF
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorLocation = 3
Rs.Open SQL, ConnString
Rs.PageSize = CInt(intervalo)
TotalPaginas= RS.PageCount
TotalRegistros = RS.recordcount
IF NOT Rs.Eof THEN
Rs.AbsolutePage = CInt(PaginaCorrente)
END IF
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorLocation = 3
Rs.Open SQL, ConnString
Rs.PageSize = CInt(intervalo)
TotalPaginas= RS.PageCount
TotalRegistros = RS.recordcount
IF NOT Rs.Eof THEN
Rs.AbsolutePage = CInt(PaginaCorrente)
END IF
'FIM CONFIGURAÇÃO PAGINAÇÃO****************************************
'INICIO MOSTRAR DADOS ********************
DO UNTIL Rs.AbsolutePage <> CInt(PaginaCorrente) OR Rs.EOF
%>
<%
RS.MoveNext
LOOP
%>
<%
RS.Close
Set RS = Nothing
' FIM MOSTRAR DADOS ******************
%>
|
|
|
