<% function preparaPalavra(str) str = replace(str, "ó" , "o") str = replace(str, "ò" , "o") str = replace(str, "ô" , "o") str = replace(str, "õ" , "o") str = replace(str, "ö" , "o") str = replace(str, "á" , "a") str = replace(str, "à" , "a") str = replace(str, "â" , "a") str = replace(str, "ã" , "a") str = replace(str, "ä" , "a") str = replace(str, "é" , "e") str = replace(str, "è" , "e") str = replace(str, "ê" , "e") str = replace(str, "ú" , "u") str = replace(str, "ù" , "u") str = replace(str, "û" , "u") str = replace(str, "ü" , "u") str = replace(str, "í" , "i") str = replace(str, "ì" , "i") str = replace(str, "ç" , "c") preparaPalavra = replace(LCASE(str),"a","[a,á,à,ã,â,ä]") preparaPalavra = replace(preparaPalavra,"e","[e,é,è,ê]") preparaPalavra = replace(preparaPalavra,"i","[i,í,ì]") preparaPalavra = replace(preparaPalavra,"o","[o,ó,ò,õ,ô,ö]") preparaPalavra = replace(preparaPalavra,"u","[u,ú,ù,û,ü]") preparaPalavra = replace(preparaPalavra,"c","[c,ç]") preparaPalavra = replace(preparaPalavra,"'","['']") preparaPalavra = preparaPalavra end function 'Requisita as variaveis finalera = request.querystring("final") pag = request.querystring("itens") pesss = trim(request.querystring("pesq")) palavra = Split(Trim(Request.QueryString("pesq")), " ") tipo = request.querystring("cat") xx = request.querystring("cat") pagdxx = request.querystring("pagina") If pesss = "" then%>
<%=strLg4%> » <%=strLg42%> -

width="100%">
<%=strLg43%> 0 <%=strLg44%>
width="100%">



<%=strLg228%>


<%=strLg315%>

<%=strLg316%> clique aqui <%=strLg317%>



width="100%">
<%=strLg45%> 1 <%=strLg46%> 1
>
:: <%=strLg41%> ::
<% response.end end if select case tipo Case "todos" tipos = " " Case else tipos = "AND idsessao='"&xx&"'" end select if VersaoDb = 1 then '*** Pesquisa em MySQL 'Chama os requisitos e monta a SQL para pesquisa if pag = "" then inicial = 0 final = 5 else inicial = pag final = 5 end if 'Pesquisa no banco de dados %" & preparaPalavra(palavra(0)) & "% set rs = abredb.Execute("SELECT * FROM produtos WHERE ( nome LIKE '%"&preparaPalavra(palavra(0))&"%' OR detalhe LIKE '%"&preparaPalavra(palavra(0))&"%' OR fabricante LIKE '%"&preparaPalavra(palavra(0))&"%') "&tipo&" ORDER by nome LIMIT " & inicial & "," & final & "") if rs.eof or rs.bof then%>
<%=strLg4%> » <%=strLg42%> <%= pesss %>

width="100%">
<%=strLg43%> 0 <%=strLg44%>
width="100%">



<%=strLg228%>


<%=strLg315%>

<%=strLg316%> clique aqui <%=strLg317%>



width="363">
<%=strLg45%> 1 <%=strLg46%> 1
width="389">
:: <%=strLg41%> ::
<%response.end else 'Conta o numero de registros encontrados set rs2 = abredb.Execute("SELECT count(nome) AS total FROM produtos WHERE ( nome LIKE '%"&preparaPalavra(palavra(0))&"%' OR detalhe LIKE '%"&preparaPalavra(palavra(0))&"%' OR fabricante LIKE '%"&preparaPalavra(palavra(0))&"%') "&tipo&"") totalreg = rs2("total") rs2.close set rs2 = nothing %>
<%=strLg4%> » <%=strLg42%> <%= pesss %>

width="374">
<%=strLg43%> <%=totalreg%> <%=strLg44%>
width="100%">


<% while not rs.EOF 'Fomata o preço precito = formatNumber(rs("preco"),2)%> <% '*** Verifica se tem Estoque do Produto set rs_estoque = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&rs("idprod")&" ;") if not rs_estoque.eof then estoque_atual=rs_estoque("estoque") end if rs_estoque.close set rs_estoque = nothing %>
><%=rs("nome")%>

Preço:<%=strlgMoeda &" "& precito%>
Estoque: <% '*** Opcao de NAO Mostrar Estoque if estoque_atual > 0 then response.write strLg26 else response.write "" & strLg27 & "" end if %>
<% rs.MoveNext 'Monta o numero de paginas pagn = inicial + 5 wend paga = pagn - 10 'Calcula o numero de paginas if totalreg Mod 5 <> 0 then valor = 1 else valor = 0 end if pagina = fix(totalreg/5) + valor pagina = replace(pagina,".","") pagdxx = pagdxx + 1 pagdxx = replace(pagdxx,".","") pagdxx2 = pagdxx - 2 pagdxx2 = replace(pagdxx2,",","") paga = replace(paga,".","") pagn = replace(pagn,".","") if pagdxx = "" then pagdxx = 1 end if if pagina = "0" then pagina = "1" end if%>

<% 'Monta os links para navegação if paga < 0 then paga = 0 else%> :: <%=strLg209%> ::   <% end if if totalreg < final OR totalreg = 5 OR pagdxx = pagina then totalreg = "" npc = 1 totalp = 1 else variavel1 = CStr(pagdxx + 1) variavel2 = Cstr(pagina) variavel1 = replace(variavel1,".","") variavel2 = replace(variavel2,".","")%>   " style=text-decoration:none onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg47%>';return true;">:: <%=strLg47%> :: <%end if%>
width="382">
<%=strLg45%> <%=pagdxx%> <%=strLg46%> <%=pagina%> <% if pagina = 1 then finalera = "sim" end if 'Monta o menu de navegação interior if pagina <> 1 then For i=1 to pagina - 1 i = replace(i,".","") i2 = i - 1 i2 = replace(i2,".","") fator = 5 totalfator = fator * i - 5 totalfator = replace(totalfator,".","") paginadem = pagdxx paginadem = replace(paginadem,".","")%>  ';return true;"><%if paginadem = i then response.write "" end if%><%=replace(i,",","")%> · <% Next end if pagina2 = pagina * 5 - 5 pagina2 = replace(pagina2,".","") pagina3 = pagina - 1 pagina3 = replace(pagina3,".","") %>  <%if finalera = "sim" then response.write "" end if%><%=pagina%>
width="365">
:: <%=strLg41%> ::
<% 'Fecha a tabela rs.close set rs = nothing %>
<%end if%> <%else '*** Pesquisa em Access / SQL Server regs = mostrar_produtos_por_pagina_na_secao pag = request.querystring("pagina") if pag = "" Then pag = 1 end if set rs = createobject("adodb.recordset") set rs.activeconnection = abredb rs.cursortype = 3 rs.pagesize = regs 'Pesquisa no banco de dados sql = "SELECT * FROM produtos WHERE ( nome LIKE '%"&preparaPalavra(palavra(0))&"%' OR detalhe LIKE '%"&preparaPalavra(palavra(0))&"%' OR fabricante LIKE '%"&preparaPalavra(palavra(0))&"%') "&tipos&" ORDER by nome" rs.open sql if rs.eof or rs.bof then%>
<%=strLg4%> » <%=strLg42%> <%= pesss %>

width="382">
<%=strLg43%> 0 <%=strLg44%>
width="369">



<%=strLg228%>


<%=strLg315%>

<%=strLg316%> clique aqui <%=strLg317%>



width="364">
<%=strLg45%> 1 <%=strLg46%> 1
width="371">
:: <%=strLg41%> ::
<%response.end else 'Conta o numero de registros encontrados set rs2 = abredb.Execute("SELECT count(nome) AS total FROM produtos WHERE ( nome LIKE '%"&preparaPalavra(palavra(0))&"%' OR detalhe LIKE '%"&preparaPalavra(palavra(0))&"%' OR fabricante LIKE '%"&preparaPalavra(palavra(0))&"%') "&tipos&"") totalreg = rs2("total") rs2.close set rs2 = nothing%>
<%=strLg4%> » <%=strLg42%> <%= pesss %>

width="389">
<%=strLg43%> <%=totalreg%> <%=strLg44%>
width="390">


<% rs.absolutepage = pag contador = 0 do while not rs.eof and contador < rs.pagesize 'Fomata o preço precito = formatNumber(rs("preco"),2)%> <% '*** Verifica se tem Estoque do Produto set rs_estoque = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&rs("idprod")&" ;") if not rs_estoque.eof then estoque_atual=rs_estoque("estoque") end if rs_estoque.close set rs_estoque = nothing %>
><%=rs("nome")%>

Preço:<%=strLgMoeda & " " & precito%>
Estoque: <% '*** Opcao de NAO Mostrar Estoque if estoque_atual > 0 then response.write strLg26 else response.write "" & strLg27 & "" end if %>
<% contador = contador + 1 rs.MoveNext loop%>

<%'Criando links para a navegação%>
width="314">
<%=strLg45%>:   <%for i = 1 to rs.pagecount if i = cint(pag) then response.write " " & i & "  " else response.write "" & i & "  " end if next rs.close set rs = nothing end if%>
>
:: <%=strLg41%> ::
<%end if%>