BUSCA POR FABRICANTE


Clique no link com o nome do fabricante que deseja consultar. Para fechar esta tela clique aqui.

<% Dim DSN DSN = Str_Conexao("catalogo") Dim SQL SQL = _ " SELECT DISTINCT id_fabricante, nm_fabricante " & _ " FROM vw_lista_fabricante " & _ " ORDER BY nm_fabricante " 'Coleta as informacoes do banco de dados Dim rs set rs = Server.CreateObject( "ADODB.Recordset" ) ''response.write SQL ''response.end 'Conecta ao BD pelo DSN e abre a consulta rs.open SQL, DSN, 1, 1 if not rs.BOF then 'Variaveis com os valores das colunas Dim nID Dim sFabricante do while not ( rs.eof ) nID = rs( "id_fabricante" ) sFabricante = rs( "nm_fabricante" ) %>    <% = sFabricante%>
<% rs.movenext loop end if rs.close set rs = nothing %>