<% vpl = Request.ServerVariables ("QUERY_STRING") vpl = Replace(vpl, "%20", " ") 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" SQL = "SELECT DISTINCT FORNECEDOR FROM TABELA_PRECO ORDER BY FORNECEDOR" Set RS=OBJdbConnection.Execute(SQL) if trim(Session("email_carrinho")) <> "" then vrevenda = Session("email_carrinho") else vrevenda = "" end if %> <% DO WHILE NOT RS.EOF %> <% rs.movenext %> <% if rs.eof then %> <% exit do %> <% end if %> <% loop %>

" target="_top"> <% = RS("fornecedor") %>