Pesquisa de Produtos

<% Option Explicit Response.Expires = 0 %> Pesquisa de Produtos <% If Request.querystring("p") <> "" Then varBusca = Trim(Request.Form("pesquisa")) 'Relação dos produtos Dim Conexao, rsBusca, sqlProcura, varBusca, p, i varBusca = Trim(Request.Form("pesquisa")) sqlProcura = "SELECT * FROM Busca WHERE Descricao LIKE '%" & varBusca & "%' " sqlProcura = sqlProcura & "ORDER BY Nome" Call abre_conexao set rsBusca = server.createobject("ADODB.Recordset") rsBusca.activeconnection = Conexao rsBusca.source = sqlProcura rsBusca.CursorType = 0 rsBusca.CursorLocation = 3 rsBusca.PageSize= 2 rsBusca.open %> Ocorrências encontradas para: <% response.write request.form("pesquisa") %>

<% if not rsBusca.eof then p= Request.QueryString("p") if (p> 0) then rsBusca.AbsolutePage= p else p= 1 rsBusca.AbsolutePage= 1 end if i=0 do while i < rsBusca.PageSize and not rsBusca.eof %> " target="_blank"><%= rsBusca("Nome") %> - <%= rsBusca("Descricao") %>
<% rsBusca.Movenext i=i+1 loop response.write "Ocorrências encontradas : " & rsBusca.recordcount & "
" dim inicio,fim inicio=(p-1)*rsBusca.PageSize+1 fim = inicio + i-1 response.write "Mostrando de " & inicio response.write " até " & fim & "
" if not rsBusca.eof then %>
Próximas Ocorrências | <% end if if p>1 then %> Ocorrências Anteriores <% end if else %> <% end if %>

<% Response.Write "Não existem registros com este nome, por favor tente outra vez." %>
<% rsBusca.Close Call fecha_conexao Set rsBusca = Nothing Else %>

<%End If%>