Boa noite, pessoal . Preciso fazer um página de busca que traga os seguintes resultados: Ao digitar o nome do responsável, no exemplo acima (Carlos, Flavio ou Luiz) preciso que me traga o status (ANALISE, Pendente ou APROVADO ) dos documentos aos quais são responsáveis. TABELA CONTROLE |ID_CT | CT_OS | CT_CLIENTE | CT_RESP1 | CT_DOC1 | CT_RESP2 | CT_DOC2 | CT_RESP3 | CT_ROC3 | --------------------------------------------------------------------------------------------------------------------------- | 01 | 1800 | COND.XPTO | LUIZ | APROVADO| FLAVIO | ANALISE | FLAVIO | PENDENTE| | 01 | 2300 | COND.ABC | CARLOS | PENDENTE | CARLOS | PENDENTE | CARLOS | ANALISE | | 01 | 3000 | COND.123 | FLAVIO | APROVADO| FLAVIO | ANALISE | LUIZ | APROVADO| Fiz o seguinte formulário: Busca.asp <form action="busca_setn_t3.asp?accao=procura" method="POST" onSubmit="return valida_dados(this)"> <input name="n_resp" type="text" class="linhaform" value="" size="15" maxlength="50"> <input name="submit" type="submit" value="Localizar"> </form> Onde digito o nome de um dos responsáveis e o resultado vem na página seguinte: busca_setn_t3.asp <% Option Explicit Response.Expires = 0 Dim u, filepath, objConn, objRs, strQuery, strConnection Sub Listar() filepath=Server.MapPath("/dados/bdcontrol.mdb") Set objConn = Server.CreateObject("ADODB.Connection") objConn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath 'Seleciona da tabela contato strQuery = "SELECT * FROM controle WHERE ct_ps_resp1 LIKE '%" & Request.Form("n_resp") & "%' AND ct_doc1 ORDER BY ct_os DESC" Set ObjRs = objConn.Execute(strQuery) %> <% u=0 while not objRS.EOF%> <%=objRS("ct_OS")%> - <%=objRS("ct_cliente")%> - <%=objRS("ct_ps_resp1")%> - <%=objRS("ct_doc1")%> <BR> <%u=u+1%> <% objRS.MoveNext Wend %> Para busca em um tipo de documento (por exemplo CT_DOC1) funciona perfeitamente, mas eu preciso consultar os 3 documentos. Fiz a seguinte modificação: <% Option Explicit Response.Expires = 0 Dim u, filepath, objConn, objRs, strQuery, strConnection Sub Listar() filepath=Server.MapPath("/dados/bdcontrol.mdb") Set objConn = Server.CreateObject("ADODB.Connection") objConn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath 'Seleciona da tabela contato strQuery = "SELECT * FROM controle WHERE ct_ps_resp1 LIKE '%" & Request.Form("n_resp") & "%' AND ct_doc1 AND ct_ps_resp2 LIKE '%" & Request.Form("n_resp") & "%' AND ct_doc2 AND ct_ps_resp3 LIKE '%" & Request.Form("n_resp") & "%' AND ct_doc3 ORDER BY ct_os DESC" Set ObjRs = objConn.Execute(strQuery) %> <% u=0 while not objRS.EOF%> <%=objRS("ct_OS")%> - <%=objRS("ct_cliente")%> - <%=objRS("ct_ps_resp1")%> - <%=objRS("ct_doc1")%> <BR> <%=objRS("ct_OS")%> - <%=objRS("ct_cliente")%> - <%=objRS("ct_ps_resp2")%> - <%=objRS("ct_doc2")%> <BR> <%=objRS("ct_OS")%> - <%=objRS("ct_cliente")%> - <%=objRS("ct_ps_resp3")%> - <%=objRS("ct_doc3")%> <BR> <%u=u+1%> <% objRS.MoveNext Wend %> ...Mas não funcionou. Ele pega as informações desencontradas. Alguém poderia me ajudar como resolver este problema? Desde já fico muito grato.
