<% response.write ("") 'AQUI VOCE VAI CONFIGURAR O NUMERO DE GRAVACOES DO BANCO QUE SERA EXIBIDO POR CADA PAGINA Const GravacoesPorPagina = 3 'MUDE AQUI SE QUISER If Request.QueryString("PaginaAtual") = "" Then PosicaoDaPagina = 1 Else PosicaoDaPagina = CInt(Request.QueryString("PaginaAtual")) End If %> <% Set con = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") 'Abre conexao com o banco de dados livro = "DRIVER={Microsoft Access Driver (*.mdb)};" livro = livro & "DBQ=" & Server.MapPath("database/livro.mdb") SQL = "SELECT * FROM assinantes ORDER By id DESC" rs.Open SQL, livro, 3 TotalDEGravacoes = rs.RecordCount TotalDePaginas = int(TotalDEGravacoes/GravacoesPorPagina) If TotalDEPaginas MOD GravacoesPorPagina <> 0 Then TotalDEPaginas = TotalDePaginas + 1 end if %>
<% rs.PageSize = GravacoesPorPagina If NOT rs.EOF Then rs.AbsolutePage = PosicaoDaPagina For RepeteGravacoes = 1 to GravacoesPorPagina If rs.EOF Then Exit For %> <%if rs("site") <> "0" then%> <%else response.write " " end if%> <% rs.MoveNext Next%>

Nome: <%=rs("nome")%>
Cidade: <%=rs("email")%>
Assunto: <%=rs("site")%>
Mensagem: <%=rs("mensagem")%>
Resposta: <%=rs("resposta")%>

Página  <%=PosicaoDaPagina%> de <%If TotalDePaginas = "0" then response.write "1" else response.write TotalDePaginas end if%>
<% 'Reseta os objetos do servidor Set con = Nothing rs.Close Set rs = Nothing response.write ("
") %>