Fórum Ajuda em ASP - busca em 2 tabelas #23049

                    set rsid = Server.CreateObject("Adodb.recordset")
                    SQL =       "SELECT DISTINCT setor"
                    SQL = SQL & "  FROM vincula_candidato"
                    SQL = SQL & " WHERE "&_
"data_anamnese like ´¬"&data&"´ and empresa = ´"&empresa&"´ and inclu = ´1´ or "&_
"data_anamnese like ´¬"&data&"´ and empresa = ´"&empresa&"´ and demi = ´1´"
SQL = SQL & "ORDER BY setor"
                    rsid.Open SQL, conexao
                    While Not rsid.EOF

id_vincula = rsid("setor")

                    set rs = Server.CreateObject("Adodb.recordset")
                    SQL =       "SELECT nome"
                    SQL = SQL & "  FROM setor"
                    SQL = SQL & " WHERE id = ´"&id_vincula&"´"
                    rs.Open SQL, conexao
                    While Not rs.EOF

nome_ = rs("nome")

response.write "Setor : <strong>"
response.write nome_
response.write "</strong>.<br>"

rs.MoveNext 
Wend
rs.Close 
Set rs = Nothing 

rsid.MoveNext 
Wend
rsid.Close 
Set rsid = Nothing 

sql = "SELECT DISTINCT(TBL_setor.nome), TBL_vincula_candidato.setor"&_
  "FROM TBL_setor INNER JOIN TBL_vincula_candidato ON TBL_vincula_candidato.setor = TBL_setor.id"&_
  "WHERE TBL_vincula_candidato.data_anamnese like ´¬"&data&"´ and TBL_vincula_candidato.empresa = ´"&empresa&"´ and TBL_vincula_candidato.inclu = ´1´ or "&_
        "TBL_vincula_candidato.data_anamnese like ´¬"&data&"´ and TBL_vincula_candidato.empresa = ´"&empresa&"´ and TBL_vincula_candidato.demi = ´1´"&_
  "ORDER BY TBL_setor.nome"