<% Option Explicit Response.Expires = 0 %> MidiaNow - Pesquisa de Downloads <% 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 Download 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= 10 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 %> <% rsBusca.Movenext i=i+1 loop if not rsBusca.eof then %>
Proximo | <% end if if p>1 then %> Anterior
<% end if else %> <% end if %>
" target="_blank"><%= rsBusca("Nome") %>
<%= rsBusca("Plataforma") %>
<%= rsBusca("Freeshe") %>
<%= rsBusca("Data") %>
<%= rsBusca("Descricao") %>
<%= rsBusca("Tamanho") %>
<% Response.Write "Não existem registros com este nome, por favor tente outra vez." %>
<% rsBusca.Close Call fecha_conexao Set rsBusca = Nothing Else %>

" METHOD="POST">

Palavra-Chave:
<%End If%>