<!--#include file="Conexao_bd.asp" -->
<%
  Dim SQL, rst, Contador, i, Pagina, Origem, Categoria
 Categoria = Request("Categoria")
 Pagina = trim(Request("Pag"))
 SQL = "SELECT Filmes.[Codigo do filme], Filmes.[Codigo da categoria], Filmes.[Tipo produto], Categorias.[Nome da categoria], Filmes.[Nome do filme] FROM Categorias INNER JOIN Filmes ON Categorias.[Codigo da categoria] = Filmes.[Codigo da categoria] WHERE Filmes.[Codigo da categoria] = " & Categoria & " ORDER BY Categorias.[Nome da categoria], Filmes.[Nome do filme];"
 Set rst = server.createobject("adodb.recordset")
 rst.open SQL, vgdb, 1, 1
 if rst.eof then
   Response.Redirect("Default.asp")
 end if  
 if Pagina = "" then Pagina = 1
 Contador = ((Pagina - 1) * 42 ) + 1
 rst.pagesize = 42
 rst.absolutepage = Pagina
%>

...

      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <%
     while not rst.eof And Contador <= (rst.PageSize * Pagina)'enquanto não chegar no fim da tabela
    %>
        <tr>
          <td width="70%"><a href="Lista_Filme_Detalhes.asp?Codigo=<% = rst("Codigo do filme") %>" class="LinkPadraoLista">
            <% = rst("Nome do filme") %></td>
          <td width="30%"><font class="TextoPadraoPreto">
            <% = rst("Nome da categoria") %>
            </font></td>
        </tr>
        <%
      Contador = Contador + 1
      rst.movenext
     wend 
    %>
        <tr>
          <td colspan="2" align="right">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="2" align="right" class="BordaAlta">
     <% 
      if rst.PageCount > 1 then
       if Pagina = 1 then
        Response.Write("<div align=" & "right" & "><a href="& "Consulta_Filme_Categoria_Resultado.asp?Pag=" & (Pagina + 1) & "&Categoria=" & Categoria & " class=" & "'LinkPadraoLista'" & "><strong>Próxima</strong></a></div>")
       else
        If (Pagina  + 1) > rst.pagecount then
         Response.Write("<div align=" & "right" & "><a href="& "Consulta_Filme_Categoria_Resultado.asp?Pag=" & (Pagina - 1) & "&Categoria=" & Categoria & " class=" & "'LinkPadraoLista'" & "><strong>Anterior</strong></a></div>")
        elseif (Pagina  - 1) < 1 then
         Response.Write("<div align=" & "right" & "><a href="& "Consulta_Filme_Categoria_Resultado.asp?Pag=" & (Pagina + 1) & "&Categoria=" & Categoria & " class=" & "'LinkPadraoLista'" & "><strong>Próxima</strong></a></div>")
        else
         Response.Write("<a href="& "Consulta_Filme_Categoria_Resultado.asp?Pag=" & (Pagina - 1) & "&Categoria=" & Categoria & " class=" & "'LinkPadraoLista'" & "><strong>Anterior - </strong></a>" & "<a href="& "Consulta_Filme_Categoria_Resultado.asp?Pag=" & (Pagina + 1) & "&Categoria=" & Categoria & " class=" & "'LinkPadraoLista'" & "><strong>Próxima</strong></a>")
        end if
       end if
      end if
      rst.close
      set rst = nothing
     %> </td>
        </tr>
      </table>