código do arquivo que recebe o valor digitado no form (nome do produto a ser pesquisado) e procura no banco de dados.
<
%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Conexao_bd.asp" -->
<%
Dim SQL, rst, Contador, i, Pagina, Origem, Nome
Nome = Request("Nome")
Pagina = trim(Request("Pag"))
SQL = "SELECT Filmes.[Codigo do filme], 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.[Nome do filme] LIKE '%" & Nome & "%' ORDER BY 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
%>
<body leftmargin="2" topmargin="2" marginwidth="2" marginheight="2">
<table width="604" height="700">
<tr>
<td width="604" height="700" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="70%" class="BordaBaixa"><font class="TextoPadraoPreto"><strong>Nome</strong></font></td>
<td width="30%" class="BordaBaixa"><font class="TextoPadraoPreto"><strong>Categoria</strong></font></td>
</tr>
</table>
<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"> </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_Nome_Resultado.asp?Pag=" & (Pagina + 1) & "&Nome=" & Nome & " class=" & "'LinkPadraoLista'" & "><strong>Próxima</strong></a></div>")
else
If (Pagina + 1) > rst.pagecount then
Response.Write("<div align=" & "right" & "><a href="& "Consulta_Filme_Nome_Resultado.asp?Pag=" & (Pagina - 1) & "&Nome=" & Nome & " class=" & "'LinkPadraoLista'" & "><strong>Anterior</strong></a></div>")
elseif (Pagina - 1) < 1 then
Response.Write("<div align=" & "right" & "><a href="& "Consulta_Filme_Nome_Resultado.asp?Pag=" & (Pagina + 1) & "&Nome=" & Nome & " class=" & "'LinkPadraoLista'" & "><strong>Próxima</strong></a></div>")
else
Response.Write("<a href="& "Consulta_Filme_Nome_Resultado.asp?Pag=" & (Pagina - 1) & "&Nome=" & Nome & " class=" & "'LinkPadraoLista'" & "><strong>Anterior - </strong></a>" & "<a href="& "Consulta_Filme_Nome_Resultado.asp?Pag=" & (Pagina + 1) & "&Nome=" & Nome & " class=" & "'LinkPadraoLista'" & "><strong>Próxima</strong></a>")
end if
end if
end if
rst.close
set rst = nothing
%> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
