<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wATIVIDADE=request.item("Atividade") wEspecialidade=request.item("Especialidade") wID=session("ID_Cliente") wSQL=" SELECT P.CIDADE " wSQL=wSQL & " FROM PROFISSIONAIS P " wSQL=wSQL & " WHERE Status ='A' AND P.ATIVIDADE = '" & wATIVIDADE & "'" wSQL=wSQL & " AND P.ESPECIALIDADE = '" & wEspecialidade & "'" wSQL=wSQL & " GROUP BY P.CIDADE " wSQL=wSQL & " ORDER BY P.CIDADE " Set TabProf = Database.Execute(wSQL) %>
Rede Credenciada
<%=wAtividade%>
Escolha a Cidade
<% While NOT TabProf.EoF %>
"> <%=TabProf("CIDADE")%>
<% TabProf.MoveNext %> <% Wend %>