<% lingua=request.cookies("paulaart")("linguasel") if lingua <> 1 then set dolar = abredb.execute("SELECT * FROM cotacao_dolar ORDER BY id DESC") dolar_hoje = dolar("valor_dolar") end if %> <% '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%>
style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><%=strLg4%> » <%=strLg42%> -

>
<%=strLg43%> 0 <%=strLg44%> :
>



Nenhum produto foi encontrado em nossa base de dados. Refaça sua pesquisa !



>
<%=strLg45%> 1 <%=strLg46%> 11
>
style=text-decoration:none onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg41%>';return true;">:: <%=strLg41%> ::
<% response.end end if if VersaoDb = 1 then 'Chama os requisitos e monta a SQL para pesquisa select case tipo Case "todos" tipos = " " Case else tipos = "AND idsessao='"&xx&"'" end select if pag = "" then inicial = 0 final = 5 else inicial = pag final = 5 end if 'Pesquisa no banco de dados set rs = abredb.Execute("SELECT * FROM produtos WHERE estoque='s' and tema LIKE '%"&palavra(0)&"%' "&tipos&" ORDER by nome LIMIT " & inicial & "," & final & "") if rs.eof or rs.bof then%>
style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><%=strLg4%> » <%=strLg42%> <%= pesss %>

>
<%=strLg43%> 0 <%=strLg44%> :
>



<%=strLg228%>



>
<%=strLg45%> 1 <%=strLg46%> 11
>
style=text-decoration:none onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg41%>';return true;">:: <%=strLg41%> ::
<%response.end else 'Conta o numero de registros encontrados set rs2 = abredb.Execute("SELECT count(nome) AS total FROM produtos WHERE estoque='s' and tema LIKE '%"&palavra(0)&"%' "&tipos&"") totalreg = rs2("total") rs2.close set rs2 = nothing %>
style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><%=strLg4%> » <%=strLg42%> <%= pesss %>

>
<%=strLg43%> <%=totalreg%> <%=strLg44%> :
>


<% while not rs.EOF 'Fomata o preço if lingua = 1 then preco_parcelado3 = rs("preco") else preco_parcelado3 = rs("preco") / dolar_hoje end if precito = formatNumber(preco_parcelado3, 2) %>
><%=rs("nome")%>

<%=strLg29%><%=strlgMoeda &" "& precito%>
<% 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%>
>
<%=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,".","") %>   style=text-decoration:none;color:000000 onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg45%> <%=pagina%>';return true;"><%if finalera = "sim" then response.write "" end if%><%=pagina%>
>
:: <%=strLg41%> ::
<% 'Fecha a tabela rs.close set rs = nothing %>
<%end if%> <%else regs = 5 'Aqui setamos quantos registros serão listados por página 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 estoque='s' and tema LIKE '%"&palavra(0)&"%' "&tipos&" ORDER by nome" rs.open sql if rs.eof or rs.bof then%>
style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><%=strLg4%> » <%=strLg42%> <%= pesss %>

>
<%=strLg43%> 0 <%=strLg44%> :
>



<%=strLg228%>



>
<%=strLg45%> 1 <%=strLg46%> 11
>
style=text-decoration:none onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg41%>';return true;">:: <%=strLg41%> ::
<%response.end else 'Conta o numero de registros encontrados set rs2 = abredb.Execute("SELECT count(nome) AS total FROM produtos WHERE estoque='s' and tema LIKE '%"&palavra(0)&"%' "&tipos&"") totalreg = rs2("total") rs2.close set rs2 = nothing%>
style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><%=strLg4%> » <%=strLg42%> <%= pesss %>

>
<%=strLg43%> <%=totalreg%> <%=strLg44%> :
>


<% rs.absolutepage = pag contador = 0 do while not rs.eof and contador < rs.pagesize 'Fomata o preço if lingua = 1 then preco_parcelado3 = rs("preco") else preco_parcelado3 = rs("preco") / dolar_hoje end if precito = formatNumber(preco_parcelado3, 2) %>
><%=rs("nome")%>

<%=strLg29%><%=strLgMoeda & " " & precito%>
<% contador = contador + 1 rs.MoveNext loop%>

<%'Criando links para a navegação%>
>
<%=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%>