Jump to content


Photo

Asp - Dúvida Com Vários Request.Form


  • Faça o login para participar
Nenhuma resposta neste tópico

#1 FLACAR2011

FLACAR2011

    Novato no fórum

  • Usuários
  • 2 posts
  • Sexo:Masculino
  • Localidade:ABC Paulista

Posted 03/04/2011, 23:02

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.




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq