<%
Set Database = Server.CreateObject("ADODB.Connection")
Database.Open StringConexao
wATIVIDADE=request.item("Atividade")
wID=session("ID_Cliente")
wSQL="SELECT P.ESPECIALIDADE FROM PROFISSIONAIS P "
wSQL=wSQL & " WHERE Status ='A' AND P.ATIVIDADE = '" & wATIVIDADE & "'"
wSQL=wSQL & " GROUP BY P.ESPECIALIDADE "
wSQL=wSQL & " ORDER BY P.ESPECIALIDADE "
Set TabProf = Database.Execute(wSQL)
%>