<% vpn = request("fabricante") 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 vpn = "PRODUTOS" then SQL = "SELECT DISTINCT FORNECEDOR,TIPO FROM tabela_preco ORDER BY TIPO ASC" else SQL = "SELECT DISTINCT FORNECEDOR,TIPO FROM tabela_preco WHERE FORNECEDOR='" & vpn & "' ORDER BY TIPO ASC" end if Set rs2=OBJdbConnection.Execute(SQL) verro = "0" if rs2.eof then verro = "1" end if %>
>
<% = " Fabricante : " & ucase(vpn) %>
      <% if verro ="0" then %> <% rs2.movefirst %> <% do while not rs2.eof %>
    • "><%=mid(rs2("TIPO"),1,80) %>
    • <% rs2.movenext %> <% loop %> <% else %>
    • FABRICANTE NÃO ENCONTRADO...
    • <% end if %>
<% OBJdbConnection.close %>