<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao SQL= " SELECT DISTINCT(E.CIDADE) as Cidade " SQL=SQL & " FROM EMPRESAS E " SQL=SQL & " WHERE E.PARCEIRO_RBS = 'S' " SQL=SQL & " ORDER BY E.CIDADE " Set TabCidades = Database.Execute(SQL) %>
<% While NOT TabCidades.EoF %> <% TabCidades.MoveNext Wend %>

Empresas participantes da Rede
 
Você poderá solicitar seu ticket em uma das empresas abaixo:
 

Escolha a cidade