Me tira uma duvida eu tenho duas busca no mesmo formulario. Quando eu chamo a busca 2 a busca 1 some,se eu faço a busca 1 a 2 some, teria como fazer a busca 2 ,e a busca 1 permanecer ou vice e versa? por favor. Desde já eu agradeço.
Segue o código.
CODE
<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
%>
<!--#Include file="conexao/oracle.inc"-->
<%
response.expires=0
dim conexaoDataBase,ConnString,sqlTabela,rsTabela,button
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Listar Cliente</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form action="listar.asp" method="post" name="busca">
<table border="0" align="center" width="100%">
<tr>
<td><div align="right">Buscar</div></td>
<td><input name="busca" type="text" size="35" maxlength="40" ><input name="Enviar" type="submit" value="Enviar"></td>
</tr>
<%
if request.form("busca") <> "" then
button=request.form("busca")
Call abreConexao
sqlTabela = "Select * From rcr.cliente where cod_cliente='"&button&"' "
set rsTabela = conexaoDataBase.execute(sqlTabela)
if not rsTabela.eof then
%>
<tr>
<td><div align="right">Cliente</div></td>
<td><%= rsTabela("razao_social")%></td>
<%
else
%>
<tr>
<td><div align="right"></div> </</td>
<td><input name="textfield" type="text" value="<%= response.Write("Cliente não encontrado")%>" size="60"></td>
</tr>
<%
end if
end if
%>
<tr>
<td><div align="right">Buscar</div></td>
<td><input name="busca1" type="text" id="busca1" size="35" maxlength="40" >
<input name="Enviar" type="submit" value="Enviar"></td>
</tr>
<%
if request.form("busca1") <> "" then
response.expires=0
button=request.form("busca1")
Call abreConexao
sqlTabela = "Select * From rcr.cliente where razao_social='"&button&"' "
set rsTabela = conexaoDataBase.execute(sqlTabela)
if not rsTabela.eof then
%>
<tr>
<td><div align="right">Cliente</div></td>
<td><%= rsTabela("cod_cliente")%></td>
<%
else
%>
<tr>
<td><div align="right"></div> </</td>
<td><input name="textfield" type="text" value="<%= response.Write("Cliente não encontrado")%>" size="60"></td>
</tr>
<%
end if
end if
%>
</table>
</form>
</body>
</html>
Pergunta
ADL
Me tira uma duvida eu tenho duas busca no mesmo formulario. Quando eu chamo a busca 2 a busca 1 some,se eu faço a busca 1 a 2 some, teria como fazer a busca 2 ,e a busca 1 permanecer ou vice e versa? por favor. Desde já eu agradeço.
Segue o código.
CODE
<%@LANGUAGE="VBSCRIPT"%> <% Option explicit %> <!--#Include file="conexao/oracle.inc"--> <% response.expires=0 dim conexaoDataBase,ConnString,sqlTabela,rsTabela,button %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Listar Cliente</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form action="listar.asp" method="post" name="busca"> <table border="0" align="center" width="100%"> <tr> <td><div align="right">Buscar</div></td> <td><input name="busca" type="text" size="35" maxlength="40" ><input name="Enviar" type="submit" value="Enviar"></td> </tr> <% if request.form("busca") <> "" then button=request.form("busca") Call abreConexao sqlTabela = "Select * From rcr.cliente where cod_cliente='"&button&"' " set rsTabela = conexaoDataBase.execute(sqlTabela) if not rsTabela.eof then %> <tr> <td><div align="right">Cliente</div></td> <td><%= rsTabela("razao_social")%></td> <% else %> <tr> <td><div align="right"></div> </</td> <td><input name="textfield" type="text" value="<%= response.Write("Cliente não encontrado")%>" size="60"></td> </tr> <% end if end if %> <tr> <td><div align="right">Buscar</div></td> <td><input name="busca1" type="text" id="busca1" size="35" maxlength="40" > <input name="Enviar" type="submit" value="Enviar"></td> </tr> <% if request.form("busca1") <> "" then response.expires=0 button=request.form("busca1") Call abreConexao sqlTabela = "Select * From rcr.cliente where razao_social='"&button&"' " set rsTabela = conexaoDataBase.execute(sqlTabela) if not rsTabela.eof then %> <tr> <td><div align="right">Cliente</div></td> <td><%= rsTabela("cod_cliente")%></td> <% else %> <tr> <td><div align="right"></div> </</td> <td><input name="textfield" type="text" value="<%= response.Write("Cliente não encontrado")%>" size="60"></td> </tr> <% end if end if %> </table> </form> </body> </html>Editado por ADLLink para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.