<% vpl = Request.ServerVariables ("QUERY_STRING") vpl = Replace(vpl, "%20", " ") MySQL_STRING="Driver={MySQL ODBC 5.1 Driver};Server=robb0501.publiccloud.com.br;Port=3306;Database=OKEY_produtos;User=OKEY_usuario; Password=#okbd2017#;Option=3;" set OBJdbConnection = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") OBJdbConnection.Open MySQL_STRING rs.ActiveConnection = OBJdbConnection SQL = "SELECT DISTINCT FORNECEDOR FROM TABELA_PRECO WHERE trim(TABELA) <> '' 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 %> " target="_blank"> <% = RS("FORNECEDOR") %> | <% rs.movenext %> <% if rs.eof then %> <% exit do %> <% end if %> <% loop %>