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