<% '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("banco/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%>
Depoimentos dos alunos
Página  <%=PosicaoDaPagina%>  de   <%If TotalDePaginas = "0" then response.write "1" else response.write TotalDePaginas end if%> <%response.write "   © by profwd@bol.com.br"%>
Nome: <%=rs("nome")%>
E-mail: <%=rs("email")%>
Depoimento: <%=rs("mensagem")%>

<% If TotalDePaginas > 1 Then Response.Write " Páginas do Livro " End If %>
<% atual = request.querystring("PaginaAtual") For paginass = 1 to TotalDEPaginas If paginass = PosicaoDaPagina then Response.Write " " else Response.Write " " end if Response.Write Paginass If paginass = PosicaoDaPagina then Response.Write " " else Response.write " " end if Next %>
<% 'Reseta os objetos do servidor Set con = Nothing rs.Close Set rs = Nothing %>