Jump to content
Fórum Script Brasil
  • 0

Duvida Na Busca


ADL
 Share

Question

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>&nbsp;</</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>&nbsp;</</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>

Edited by ADL
Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

clica no boatozinho aqui em cima que parece uma folha de papel. do lado do balaozinho de texto.

ou você pode escrever code na mao. de qualquer forma, o texto vai ficar tipo assim:

[c.o.d.e]

ponha aqui o seu codigo

[/c.o.d.e]

só que sem os pontos.

mas não precisa postar de novo, edite aquele seu primero post.

Link to comment
Share on other sites

  • 0

cara sera que num é porque aqui:

if not rsTabela.eof then
        %>    
        <tr>
          <td><div align="right">Cliente</div></td>
            <td><%= rsTabela("razao_social")%></td>
            
        <%[/code]

tanto na busca 1 como na 2, você deixa o tr aberto??

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...