<%
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 WHERE FORNECEDOR <> '' 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 %>