Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas Com Paginaçao Da Busca


Guest - Leo -

Pergunta

seguinte gente...

eu faço uma busca onde apos clicar em um dos resultados eu devo ir para uma pagina de descrição mais detalhada do mesmo.....

isso eu consegui.....

agora preciso paginar esta busca.... a cada 20 resultados ele muda para outra pagina.... e se a busca obtiver mais de 60 resultados deve aparece a seguinte mensagem: "voce deve melhorar seus parametros de pesquisa"

o codigo que eu usei foi esse:


 Digite o Nome Fantasia a ser pesquisado:
<table width="100%" border="0" cellpadding="0" cellspacing="0"> 
    </span> <tr> 
      <td width="100%" height="24" valign="top"> 
      
      
<form action="empresas.asp" method="post">
  <span class="texto"> 
  <input type = text name="buscando" size=12 style= "font-family : Verdana; font-size : 11px; width : 200px;">
  <input type="submit" name="Submit" value="Buscar">
  </span> 
</form>
<span class="texto">

</td> </tr> </table> 
  <%
Busca = Trim(Request.form("buscando"))
%>

  <%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("dados/mkdiv.mdb")
DB.open constr

Set objRS = Server.CreateObject("ADODB.Recordset")
%>
  <span class="texto"> 
  <%
function TiraAspas(str)
str = replace(str,"'","""")
TiraAspas = str
End function


 if (request("visualizar")<>"S") then 
%>
  </span>
<table width="100%" border="0" bordercolor="#0000FF">
  <tr bgcolor="#CFEBEE" class="tituloAzul"> 
    <td width="5%" bgcolor="#CFEBEE"> 
      <div align="center" class="texto"><strong>Codigo:</strong></div></td>
    <td> 
      <div align="center" class="texto"><strong>Nome:</strong></div></td>
    <td> 
      <div align="center" class="texto"><strong>Empresa (Fantasia):</strong></div></td>
  </tr>
  <tr> 
    <%
    Busca=TiraAspas(Busca)
    
    strSql = "SELECT EMPRESAS.CODIGO, EMPRESAS.NOME, EMPRESAS.FANTASIA FROM empresas WHERE FANTASIA LIKE '%"&Busca&"%'"
    objRS.Open strSQL,DB,1,1
    %>
    <%    
    If (Busca = "") then
    Response.write("Você precisa escrever um nome para realizar sua pesquisa.")
        
    ElseIf (objRS.EOF = true) then
    response.write "Sua busca por <b>"&Busca&"</b> não retornou nenhum resultado, por favor tente novamente."
    Else
    do While not objRS.EOF
    %>
    
  </tr>
  <tr bgcolor="#EFFFFF" class="B"> 
    <td width="5%" bgcolor="#CFEBEE"><a href="?cod=<%=objRS("CODIGO")%>&visualizar=S"><%=objRS("CODIGO")%></a></td>
    <td><a href="?cod=<%=objRS("CODIGO")%>&visualizar=S"><%=objRS(TiraAspas("NOME"))%></a></td>
    <td><a href="?cod=<%=objRS("CODIGO")%>&visualizar=S"><%=objRS(TiraAspas("FANTASIA"))%></a></td>
    <%
    objRS.MoveNext
    Loop
    End IF
    %>
  </tr>
</table>

<table width="100%" border="0" bordercolor="#0000FF">
  <%
    else
    response.write"    <table width=100% border=0>"
    strSql = "SELECT * FROM empresas WHERE codigo = '"&request("cod")&"'"    
    objRS.Open strSQL,DB,1,1    
%>
  <!-- COLOCAR aqui O RETANTE DOS CAMPOS DA BASE DE DAODOS !.-->
  <tr> 
    <td width="80" bgcolor="#CFEBEE" class="textoAzul"><strong>Codigo</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("codigo")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Fantasia</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("fantasia")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Nome</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("nome")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Endere&ccedil;o</strong></td>
    <td width="883" align="left" bgcolor="#EFFFFF" class="B"><%=objRS("tip_lograd")%>. <%=objRS("logradouro")%>, <%=objRS("numero")%> - <%=objRS("complement")%> - <%=objRS("bairro")%> - <%=objRS("cidade")%> - <%=objRS("estado")%> - <%=objRS("cep")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Tel.1</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("telefone1")%> -<strong> Ramal: </strong><%=objRS("ramal1")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Tel.2</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("telefone2")%> -<strong> Ramal:</strong> <%=objRS("ramal2")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Fax</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("fax")%> -<strong> Ramal:</strong> <%=objRS("ramalfax")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>CGC</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("cgc")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Inscri&ccedil;&atilde;o</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("inscricao")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Contato</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("contato")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>E-mail</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("email")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Site</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("site")%></td>
  </tr>
  <%
    response.write"    </table>"
    objRS.MoveNext
    end if 
%>
</table>
<span class="texto"><a href="java script:history.back();">Voltar</a> </span>
e agora estou com ele neste formato....
 Digite o Nome Fantasia a ser pesquisado:
<table width="100%" border="0" cellpadding="0" cellspacing="0"> 
    </span> <tr> 
      <td width="100%" height="24" valign="top">  
<form action="empresas.asp" method="post">
  <span class="texto"> 
  <input type = text name="buscando" size=12 style= "font-family : Verdana; font-size : 11px; width : 200px;">
  <input type="submit" name="Submit" value="Buscar">
  </span> 
</form>
        </td>
    </tr>
</table> 



<%
Busca = Trim(Request.form("buscando"))
%>
<span class="texto">
<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("dados/mkdiv.mdb")
DB.open constr
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = 20
%>

<%
function TiraAspas(str)
str = replace(str,"'","""")
TiraAspas = str
End function
if (request("visualizar")<>"S") then 
%>
<table width="100%" border="0" bordercolor="#0000FF">
  <tr bgcolor="#CFEBEE" class="tituloAzul"> 
    <td width="5%" bgcolor="#CFEBEE"> 
      <div align="center" class="texto"><strong>Codigo:</strong></div></td>
    <td> 
      <div align="center" class="texto"><strong>Nome:</strong></div></td>
    <td> 
      <div align="center" class="texto"><strong>Empresa (Fantasia):</strong></div></td>
  </tr>
  <tr> 
  
<%
    Busca=TiraAspas(Busca)
    strSql = "SELECT EMPRESAS.CODIGO, EMPRESAS.NOME, EMPRESAS.FANTASIA FROM empresas WHERE FANTASIA LIKE '%"&Busca&"%'"
    objRS.Open strSQL,DB,1,1    
%>

<%    
    If (Busca = "") then
    Response.write("Você precisa escrever um nome para realizar sua pesquisa.")
    ElseIf (objRS.EOF = true) then
    response.write "Sua busca por <b>"&Busca&"</b> não retornou nenhum resultado, por favor tente novamente."
    ELSE
    IF Request.QueryString("pagina")="" then
    intpagina=1
    ELSE
    IF cint(Request.QueryString("pagina"))<1 then
    intpagina=1
    ELSE
    IF cint(Request.QueryString("pagina"))> objRS.PageCount then
    intpagina=objRS.PageCount
    ELSE
    intpagina=Request.QueryString("pagina")
    END IF
    END IF
    END IF
    objRS.AbsolutePage=intpagina
    intrec=0
    do While intrec < objRS.PageSize and not objRS.EOF 
%>
    
  </tr>
  <tr bgcolor="#EFFFFF" class="B"> 
    <td width="5%" bgcolor="#CFEBEE"><a href="?cod=<%=objRS("CODIGO")%>&visualizar=S"><%=objRS("CODIGO")%></a></td>
    <td><a href="?cod=<%=objRS("CODIGO")%>&visualizar=S"><%=objRS(TiraAspas("NOME"))%></a></td>
    <td><a href="?cod=<%=objRS("CODIGO")%>&visualizar=S"><%=objRS(TiraAspas("FANTASIA"))%></a></td>
    <%
    intrec=intrec+1
    objRS.MoveNext
    Loop
    End IF
    %>
  </tr>
</table>
<% 
IF intpagina > 1 then
%>
   <a href="?pagina=<%=intpagina-1%>">Anterior</a>
<%
END IF
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,objRS.PageCount) <> 0 then
%>
   <a href="?pagina=<%=intpagina + 1%>">Próxima</a>
<%
END IF
END IF
%>

<table width="100%" border="0" bordercolor="#0000FF">
  <%
    response.write"    <table width=100% border=0>"
    strSql = "SELECT * FROM empresas WHERE codigo = '"&request("cod")&"'"    
    objRS.Open strSQL,DB,1,1    
%>
  <!-- COLOCAR aqui O RETANTE DOS CAMPOS DA BASE DE DAODOS !.-->
  <tr> 
    <td width="80" bgcolor="#CFEBEE" class="textoAzul"><strong>Codigo</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("codigo")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Fantasia</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("fantasia")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Nome</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("nome")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Endere&ccedil;o</strong></td>
    <td width="883" align="left" bgcolor="#EFFFFF" class="B"><%=objRS("tip_lograd")%>. <%=objRS("logradouro")%>, <%=objRS("numero")%> - <%=objRS("complement")%> - <%=objRS("bairro")%> - <%=objRS("cidade")%> - <%=objRS("estado")%> - <%=objRS("cep")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Tel.1</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("telefone1")%> - Ramal: <%=objRS("ramal1")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Tel.2</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("telefone2")%> - Ramal: <%=objRS("ramal2")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Fax</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("fax")%> - Ramal: <%=objRS("ramalfax")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>CGC</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("cgc")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Inscri&ccedil;&atilde;o</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("inscricao")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Contato</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("contato")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>E-mail</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("email")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Site</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("site")%></td>
  </tr>
  <%
    response.write"    </table>"
    objRS.MoveNext
%>
</table>
<span class="texto"><a href="java script:history.back();">Voltar</a> </span>
 </span>

sendo que ele da esse erro:

Tipo de erro:

ADODB.Recordset (0x800A0E79)

Operação não permitida quando o objeto está aberto.

/intranet/eempresas.asp, line 109

lembrando que na paginicial não deve ser mostrado nada alem da caixa de pesquisa

após digitado é realizada a pesquisa, e quando clicado vem os detalhes.....

e as demais funcoes descritas encima....

beleza?

se puderem.. me ajudemmmmm

:D

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
Guest Visitante

o problema é qu eu num sei nada de desenvolvimento

tudo isso é apenas modificacao e adaptacao a codigos da net

o que fazer?

por enquanto eu consegui fazer isso aqui que deu exatamente o que eu queria, mas não consigo deixar a primeira tabela escondida como ela ficava antes....

<span class="texto"> 
Digite o Nome Fantasia a ser pesquisado:
<table width="100%" border="0" cellpadding="0" cellspacing="0"> 
    <tr> 
      <td width="100%" height="24" valign="top"> 
      
      
<form action="resultado.asp" method="post">
  <span class="texto"> 
  <input type = text name="buscando" size=12 style= "font-family : Verdana; font-size : 11px; width : 200px;">
  <input type="submit" name="Submit" value="Buscar">
  </span> 
</form>

</td> </tr> </table> 

<%
Busca = Trim(Request.form("buscando"))
%>

<%
    pagina = Request.QueryString("p")
    if pagina = "" then
    pagina = 1
    end if
    registros = 20
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("dados/mkdiv.mdb")
Conn.open
Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.pagesize = registros
%>

  <%
function TiraAspas(str)
str = replace(str,"'","""")
TiraAspas = str
End function


 if (request("visualizar")<>"S") then 
%>
<table width="100%" border="0" bordercolor="#0000FF">
  <tr bgcolor="#CFEBEE" class="tituloAzul"> 
    <td width="5%" bgcolor="#CFEBEE"> 
      <div align="center" class="texto"><strong>Codigo:</strong></div></td>
    <td> 
      <div align="center" class="texto"><strong>Nome:</strong></div></td>
    <td> 
      <div align="center" class="texto"><strong>Empresa (Fantasia):</strong></div></td>
  </tr>
  <tr> 
<%
    Busca=TiraAspas(Busca)
    strSql = "SELECT EMPRESAS.CODIGO, EMPRESAS.NOME, EMPRESAS.FANTASIA FROM empresas WHERE FANTASIA LIKE '%"&Busca&"%'"
    objRS.Open strSQL,Conn,1,1

    if objRS.EOF then
%>
        <font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font>
<%
    else
    objRS.absolutepage = pagina
    if objRS.EOF then
%>
        <font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font>
<%
    fim = 1
    end if
    xx = 0
    While NOT objRS.EOF AND xx < objRS.pagesize
    xx = xx + 1
%>


  </tr>
  <tr bgcolor="#EFFFFF" class="B"> 
    <td width="5%" bgcolor="#CFEBEE"><a href="?cod=<%=objRS("CODIGO")%>&visualizar=S"><%=objRS("CODIGO")%></a></td>
    <td><a href="?cod=<%=objRS("CODIGO")%>&visualizar=S"><%=objRS(TiraAspas("NOME"))%></a></td>
    <td><a href="?cod=<%=objRS("CODIGO")%>&visualizar=S"><%=objRS(TiraAspas("FANTASIA"))%></a></td>
<%
objRS.MoveNext
Wend
end if

if fim = "" then

anterior = pagina - 1
proxima = pagina + 1

if anterior <> 0 then
%><a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>">Página Anterior</a> - <%
end if

%><a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>">Próxima Página</a><%

end if

objRS.Close
Conn.Close

%>

  </tr>
  
</table>

<table width="100%" border="0" bordercolor="#0000FF">
  <%
    else
    response.write"    <table width=100% border=0>"
    strSql = "SELECT * FROM empresas WHERE codigo = '"&request("cod")&"'"    
    objRS.Open strSQL,Conn,1,1    
%>
  <!-- COLOCAR aqui O RETANTE DOS CAMPOS DA BASE DE DAODOS !.-->
  <tr> 
    <td width="80" bgcolor="#CFEBEE" class="textoAzul"><strong>Codigo</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("codigo")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Fantasia</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("fantasia")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Nome</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("nome")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Endere&ccedil;o</strong></td>
    <td width="883" align="left" bgcolor="#EFFFFF" class="B"><%=objRS("tip_lograd")%>. <%=objRS("logradouro")%>, <%=objRS("numero")%> - <%=objRS("complement")%> - <%=objRS("bairro")%> - <%=objRS("cidade")%> - <%=objRS("estado")%> - <%=objRS("cep")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Tel.1</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("telefone1")%> - Ramal: <%=objRS("ramal1")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Tel.2</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("telefone2")%> - Ramal: <%=objRS("ramal2")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Fax</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("fax")%> - Ramal: <%=objRS("ramalfax")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>CGC</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("cgc")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Inscri&ccedil;&atilde;o</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("inscricao")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Contato</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("contato")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>E-mail</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("email")%></td>
  </tr>
  <tr> 
    <td bgcolor="#CFEBEE" class="textoAzul"><strong>Site</strong></td>
    <td width="883" bgcolor="#EFFFFF" class="B"><%=objRS("site")%></td>
  </tr>
<%
    end if 
%>
</table>
<span class="texto"><a href="java script:history.back();">Voltar</a>
 </span>
</span>

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...