<% 'vpn = "MC3090R-LM48S00LER" vpn = mid(request("produto"),1,5) 'vpn = "COLETOR" Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/okey.mdb") & ";Persist Security Info=False" if trim(vpn) <> "" then SQL = "SELECT DISTINCT FORNECEDOR,FAMILIA FROM tabela_preco WHERE mid(familia,1,5) ='" & vpn & "' ORDER BY FORNECEDOR" Set rs=OBJdbConnection.Execute(SQL) SQL = "SELECT DISTINCT PRECO_EXIBICAO,FAMILIA FROM tabela_preco WHERE mid(familia,1,5) ='" & vpn & "' ORDER BY PRECO_EXIBICAO DESC" Set rs2=OBJdbConnection.Execute(SQL) vmaior_preco = rs2("preco_exibicao") v0 = vmaior_preco/8 v1 = v0+v0 v2 = v0+v0+v0 v3 = v0+v0+v0+v0 v4 = v0+v0+v0+v0+v0 v5 = v0+v0+v0+v0+v0+v0 v6 = v0+v0+v0+v0+v0+v0+v0 v7 = v0+v0+v0+v0+v0+v0+v0+v0 end if %>
>
Fabricante
    <% vcor = "#E9E9E9;" %> <% do while not rs.eof %>
    • > <% = trim(rs("FORNECEDOR"))%>
    <% rs.movenext %> <% if vcor = "#B6B6B6;" then %> <% vcor = "#E9E9E9;" %> <% else %> <% vcor = "#B6B6B6;" %> <% end if %> <% loop %> <% rs.close%>
    • TODOS OS FABRICANTES
  • SELECIONA FAIXA DE PREÇO ( Maior preço : R$ <% = vmaior_preco %> )
  • > ATE R$ <% = v0 %>
  • > ATE R$ <% = v1 %>
  • > ATE R$ <% = v2 %>
  • > ATE R$ <% = v3 %>
  • > ATE R$ <% = v4 %>
  • > ATE R$ <% = v5 %>
  • > ATE R$ <% = v6 %>
  • > ATE R$ <% = v7 %>
OBSERVAÇÕES
A seleção de "TODOS OS FABRICANTES" e "ATÉ : MAIOR PREÇO" pode levar algum tempo, procure realizar a busca da forma que mais se adequa a sua necessidade
<% OBJdbConnection.close %>