<% 'CHAMA OS DEPARTAMENTOS CADASTRADOS Set rs = Server.CreateObject("adodb.recordset") registroporpagina = 16 RS.PageSize = registroporpagina 'quantidade de registros por página. Você pode alterar sem conforme precise. RS.CursorLocation = 3 RS.CacheSize = registroporpagina 'Vamos fazer a busca na tabela contatos ss = request.form("categoria") if ss = "todos" then sex = "" else sex = "and idsessao='"&request("categoria")&"'" end if if request("chave") = "" then response.write"
Home » Pesquisa de Produtos
 
Desculpe, não foram encontrados produtos em sua pesquisa. Por favor, tente novamente inserindo no mínimo as tres primeiras letras no nome do produto.
"%>
<% response.end else sql = "SELECT * FROM produtos WHERE nome LIKE '%"&request("chave")&"%' or fabricante LIKE '%"&request("chave")&"%' or detalhe LIKE '%"&request("chave")&"%' "&sex&" ORDER by nome" end if rs.Open sql,conexao,3 If rs.EOF Or rs.bof Then response.write"
Desculpe, não foram encontrados produtos em sua pesquisa. Por favor, tente novamente inserindo no mínimo as tres primeiras letras no nome do produto.
"%> <% response.end elseif not rs.eof then IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> rs.PageCount then intpagina=rs.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta rs.AbsolutePage = intpagina intrec=1 %> <% 'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo While intrec < rs.PageSize and not rs.EOF 'numiz = CInt(intpagina & "0") 'iz = iz + numiz iz = iz + 1 if rs("moeda") = "dolar" then preco = formatNumber(rs("preco")*loja("cotacao_dia"), 2) else preco = formatNumber(rs("preco"), 2) end if %> <% rs.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF rs.EOF then response.write " " END IF Wend 'fim do loop%>
Foram encontrados <%=rs.RecordCount %> produtos cadastrados dividos em <%=rs.PageCount %> páginas
&produto=<%=rs("idprod")%>"><%=rs("nome")%>
Preco: R$ <%=Formatnumber(preco,2)%>
Referência: <%=rs("referencia")%>
Fabricante: <%=rs.fields("fabricante")%>
" name="img_imagem" border="0" id="img_imagem"> " />


Você está na página   <%=intpagina %>   No total de   <%=rs.PageCount %>   Páginas

<% 'total de páginas total = rs.PageCount 'pega quantos links a menos e a masi mostra menos = intpagina - 2 mais = intpagina + 2 'verifica se o menos deu negativo pra fazer ele ser igual a 1 If menos < 1 Then menos = 1 End If 'verifica se o mais é maior que o total de paginas, se for iguala ele ao total If mais > total Then mais = total End If 'se o menos for diferente de 1 mostra os essas setinhas If menos <> 1 Then %> &categoria=<%=request("categoria")%>&pagina=<%=intpagina - 1%>"> Anterior    <%end if 'comeca o loop For i = menos To mais If i = Cint(intpagina) then%> <% Response.Write "[ " & i & " ] " %>  <% else %> &categoria=<%=request("categoria")%>&pagina=<%=i%>"><%=i%>    <%end if Next %> <% 'se o mais não for igual ao total mostra as setinhas no final If mais <> total Then%> &categoria=<%=request("categoria")%>&pagina=<%=intpagina + 1%>"> Próxima <%end if rs.Close Set rs = Nothing %>