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

Rede Credenciada

<%=wAtividade%> - <%=wEspecialidade%>

 
<% While NOT TabProf.EoF %> <% TabProf.MoveNext %> <% Wend %>
Nome : <%=TabProf("Nome")%>
Atividade : <%=TabProf("Atividade")%>
Especialidade : <%=TabProf("Especialidade")%>
Endereço : <%=TabProf("Endereco")%> - <%=TabProf("Numero")%>
Complemento : <%=TabProf("Complemento")%>
Bairro : <%=TabProf("Bairro")%>
Cidade : <%=TabProf("Cidade")%> - <%=TabProf("Estado")%>
Telefone : <%=TabProf("Telefone_DDD")%> - <%=TabProf("Telefone")%>
E-mail : "> <%=TabProf("E_Mail")%>
Home Page : <%=TabProf("Home_Page")%>
Observações : <%=TabProf("Observacoes")%>