Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Thiago Roberto

Fiz um Sist. de Busca, alguém me a Paginar?

Recommended Posts

Aew galera...

tenho um sistema de busca, e gostaria de paginá-lo de maneira simples...

Pode ser tanto daquela forma (Anterior - Próximo), mas tenho preferência Por: (1, 2, 3, 4, 5, 6..).

 

Preciso muito fazer isto, o código é o seguinte:

 

<% @Language = VBScript %><%   strBusca = Request.QueryString("busca")  if strBusca <> "" then  stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("db/banco.mdb")  Set objConexao = Server.CreateObject("ADODB.Connection")  objConexao.Open stringConexao  strSQL = "SELECT * FROM Estabelecimento WHERE CESTABELECIMENTO LIKE '%"& strBusca &"%'"  Set objRS = ObjConexao.Execute(strSQL)%>  <body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0"><div style="position: absolute; width: 397px; height: 100px; z-index: 1; left: 177px; top: 161px" id="camada1"><table border="0" width="100%" height="56" id="table21"><tr><td>  <font face="Arial" size="2" color="#808080">Resultado(s) Encontrado:</font><HR width="98%"><table border="0" width="100%" id="table22" cellspacing="0"><tr><td></td></tr></table></td></tr><tr><td> <%        While not objRS.EOF    response.write "<font color=""#000080"" face=""verdana"" size =""1""><b>" &  objRS("CESTABELECIMENTO") & "</b></font><BR>"response.write "<font color=""#000080"" face=""verdana"" size=""1""><b>Endereço: </b>" & objRS("CENDERECO") & "<BR>"response.write "<font color=""#000080"" face=""verdana"" size=""1""><b>Telefone: </b>" & objRS("CBAIRRO") & "<BR>"response.write "<font color=""#000080"" face=""verdana"" size=""1""><b>Cidade: </b>" & objRS("CCIDADE") & " - "response.write " " & objRS("CUF") & "<BR>"response.write "<font color=""#000080"" face=""verdana"" size=""1""><b>CEP: </b>" & objRS("CCEP") & "<BR>"response.write "<font color=""#000080"" face=""verdana"" size=""1""><b>Telefone: </b>" & objRS("CTELEFONE") & "<BR>"response.write "<hr>"  objRS.MoveNext    Wend end if %></td></tr></table></div><table border="0" width="100%" height="90" id="table23" cellspacing="0"><tr><td><!--#include file="topo.asp" --></td></tr></table><table border="0" width="100%" height="23" id="table24" cellspacing="0"><tr><td><!--#include file="buscador.asp" --></td></tr></table><table border="0" width="100%" height="551" id="table25" cellspacing="0"><tr><td width="157"><table border="0" width="100%" height="587" id="table26"><tr><td><!--#include file="menu.asp" --></td></tr></table></td><td><table border="0" width="100%" height="580" id="table27"><tr><td></td></tr></table></td><td width="180"><table border="0" width="100%" height="551" id="table28" cellspacing="0"><tr><td><!--#include file="DireitaBar.asp" --></td></tr></table><p></td></tr></table>

Aguardo resposta...

Valeu!

Compartilhar este post


Link para o post
Compartilhar em outros sites

acabei de responder paginação no topico de phoenix (banco de dados e paginação). confere lá!boa sorte

Compartilhar este post


Link para o post
Compartilhar em outros sites

Veio... fas um busca no forum, tem um monte de exemplos de paginaão ai... muito úteis.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Valeu o código, ele faz a busca no banco de dados corretamente, mas naum exibe aquilo que eu realmente estou procurando, tipo ele lista tudo que está contido no banco de dados, independente da palavra que eu colocar...Como posso fazer pra ele buscar exatamente o que estou procurando?Abraços...

Compartilhar este post


Link para o post
Compartilhar em outros sites

'############## paginacao 02 ####################'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'@@@@@@@ ALEX TEIXEIRA - alexct@hotmail.com @@@@@@'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 'Coloca o Nº página atual / Nº Total de páginas Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")   'Mostra os botões: Anterior e Próximo, utilizando da opção de IF '----------- Numeros - Calculos ---------------------------------------------var01 = Len(PagAtual) 'Lê o tamanho do numerovar02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig.var03 = Left(PagAtual,var02) 'obtem os digitos mais  sig. do numerovar04 = Right(PagAtual,1)    'obtem o digito menos sig. do numerovar05 = var03 & 0 ' Acrecenta ZERO no finalIF var04 <> 0 THEN     ' condição se o digito menos sig. é Zeroinicial = var05 + 1final = inicial + 9  ELSEinicial = var05 - 9  final = var05END IFindice_i = var04 - 1 'ultimo digito  - 1indice_f = 10 - var04 ' 10 - digito menos sig.' If CInt(inicial) < 1 Then inicial = 1     If CInt(final) > CInt(TotalPages) Then final = TotalPages'------------------------------------------------------------------------------IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima      Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")       Response.Write("<a href='jogos.asp?PagAtual=" &  1 & "'>")      Response.Write("Primeira")       Response.Write("</a></font></B>  ")            Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")       Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>")      Response.Write("Anterior")       Response.Write("</a></font></B>  ")      IF PagAtual > 10 THEN       Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")        Response.Write("<a href='jogos.asp?PagAtual=" & inicial - 1 & "'>")       Response.Write("...")      Response.Write("</a></font></B>  ")          ELSE      Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")        Response.Write("....")        Response.Write("</font></B>  ")    END IF  Else      Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")       Response.Write("Primeira")       Response.Write("</font></B>  ")      Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")       Response.Write("Anterior")       Response.Write("</font></B>  ")      Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")       Response.Write("...")       Response.Write("</font></B>  ")End If'---------------------- NUMEROS  ---------------------------For i = inicial To final     If CInt(i)=CInt(PagAtual) Then         Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "     END IF     If CInt(i) < CInt(PagAtual) Then      Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a></font>  "     END IF     If CInt(i) > CInt(PagAtual) Then         Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a></font>  "  END IFNext'------------------------------------------------------IF CInt(PagAtual) <> CInt(TotalPages) THEN p1 = Left(PagAtual,var02) p2 = Left(TotalPages,var02)p3 = Left(TotalPages,var02) & 0'##### CONDIÇÕES ########'digitos mais significativos do Numero com 1 no fim > PagAtualEX:  21   [ 22 ]  23   24  25         2 com 1 => 21 > 22 (F)'OU'PagAtual <= 10      E    TotalPages > 10'EX:  ... 1  2  3  4 [ 5 ]  6  ...              5 <= 10 (V)  E   6 > 10 (F) IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN        Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")       Response.Write("<a href='jogos.asp?PagAtual=" & final + 1 & "'>")       Response.Write("...")       Response.Write("</a></font></B>  ")          ELSE       Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")       Response.Write("...")        Response.Write("</font></B>  ")   END IF      Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")      Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual + 1 & "'>")      Response.Write("Próxima")      Response.Write("</a></font></B>  ")       Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")      Response.Write("<a href='jogos.asp?PagAtual=" & TotalPages & "'>")      Response.Write("Ultima")      Response.Write("</a></font></B>  ")        ELSE      Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")      Response.Write("...")       Response.Write("</font></B>  ")      Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")      Response.Write("Próxima")       Response.Write("</font></B>  ")      Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")      Response.Write("Ultima")       Response.Write("</font></B>  ")End If '################## fim paginacao 02 #######################Rs.Close  Set RS = NothingConn.Close      Set Conn = Nothing        %>

Compartilhar este post


Link para o post
Compartilhar em outros sites

outra paginação

ASP

[*]<%

 

[*]'################## paginacao 01 #####################

 

[*]

 

[*] 'Coloca o Nº página atual / Nº Total de páginas

 

[*]

 

[*] Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")  

 

[*]

 

[*]'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 

 

[*]

 

[*]IF PagAtual > 1 THEN 

 

[*]

 

[*]'Se for a primeira página, Mostra apenas o botão Próximo e Ultima

 

[*] Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">"

 

[*] Response.Write("<a href='jogos.asp?PagAtual=" & 1 & "'>")

 

[*] Response.Write("Primeira"

 

[*] Response.Write("</a></font></B> ")

 

[*]

 

[*] Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">"

 

[*] Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>")

 

[*] Response.Write("Anterior"

 

[*] Response.Write("</a></font></B> ")

 

[*]

 

[*]  Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">"

 

[*] Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>")

 

[*] Response.Write("Anterior"

 

[*] Response.Write("</a></font></B> ")

 

[*]

 

[*]

 

[*] Else

 

[*]

 

[*] Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">"

 

[*] Response.Write("Primeira"

 

[*] Response.Write("</font></B> ")

 

[*]

 

[*] Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">"

 

[*] Response.Write("Anterior"

 

[*] Response.Write("</font></B> ")

 

[*]

 

[*]

 

[*]End If

 

[*]

 

[*]'------------------- numero -------------------------

 

[*]'---------- Numero de numeros para ser mostrados ----

 

[*]  max_n_mostrados = 9

 

[*]

 

[*]intervalo Int(max_n_mostrados /2)

 

[*]inicio = PagAtual - intervalo

 

[*]final = PagAtual + intervalo

 

[*]

 

[*]If CInt(inicio) <1 Then 

 

[*] inicio = 1

 

[*] final = 10

 

[*]END IF

 

[*]If CInt(final) > CInt(TotalPages) Then final = TotalPages

 

[*]

 

[*]For i = inicio To final

 

[*]  If CInt(i)=CInt(PagAtual) Then

 

[*]  Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> "

 

[*]  END IF

 

[*]  If CInt(i) < CInt(PagAtual) Then

 

[*] Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a> "

 

[*]  END IF

 

[*]  If CInt(i) > CInt(PagAtual) Then

 

[*]  Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a> "

 

[*] END IF

 

[*]Next

 

[*]

 

[*]'------------------------------------------------------

 

[*]

 

[*]IF CInt(PagAtual) <> CInt(TotalPages) THEN 

 

[*]

 

[*]'Se estiver na última página, mostra apenas o botão Anterior e Primeira

 

[*]

 

[*] Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")

 

[*] Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual + 1 & "'>")

 

[*] Response.Write("Próxima")

 

[*] Response.Write("</a></font></B> "

 

[*]

 

[*] Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")

 

[*] Response.Write("<a href='jogos.asp?PagAtual=" & TotalPages & "'>")

 

[*] Response.Write("Ultima")

 

[*] Response.Write("</a></font></B> ")

 

[*]

 

[*] Else

 

[*] Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")

 

[*] Response.Write("Próxima"

 

[*] Response.Write("</font></B> ")

 

[*]

 

[*] Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")

 

[*] Response.Write("Ultima"

 

[*] Response.Write("</font></B> ")

 

[*]End If 

 

[*]'################## fim paginacao 01 ########################

Compartilhar este post


Link para o post
Compartilhar em outros sites

Isso com certeza resolve:

 

Paginação sem mistérios - Fala sobre as propriedades, mto bom, utilizo este qndo eh uma mesma tabela.

 

Paginação de dados com MS Access - Este eh mais simples, mas ajuda tb.

 

Agora seu n me engano este artigos do grandes da Imasters tem uns erros e n explicam como mostrar o link p uma pagina especifica [1] [2] [3] então vou passar o código q'eu uso:

 

ASP

[*]<% 

 

[*]Banco "db/banco.mdb"

 

[*]

 

[*]Set Conn server.CreateObject("ADODB.connection")

 

[*]Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(Banco)

 

[*]

 

[*]Set RS Server.CreateObject("adodb.recordset")

 

[*]RS.PageSize = 10

 

[*]

 

[*]SQL "SELECT * FROM Estabelecimento WHERE CESTABELECIMENTO LIKE '%"& strBusca &"%' ORDER BY Id DESC" 

 

[*]RS.Open SQL,Conn,3,3

 

[*]

 

[*]IF RS.EOF then %>Nenhum cadastro foi encontrado.

 

[*]<%  Response.End

 

[*]ELSE

 

[*]Response.Write rs.RecordCount %> Números de cadastros.<br><br>

 

[*]<% If Request.QueryString("pagina""" Then

 

[*] numeropagina = 1

 

[*]Else

 

[*] numeropagina CInt(Request.QueryString("pagina"))

 

[*]End If

 

[*]

 

[*]END IF

 

[*]

 

[*]

 

[*]RS.AbsolutePage=numeropagina

 

[*]

 

[*]intrec=0

 

[*]

 

[*]While intrec < RS.PageSize and not RS.EOF 

 

[*]

 

[*]%>

 

[*]id: <%=Rs("Id")%> | nome: <%=Rs("nome")%> | numero: <%=Rs("Numero")%>

 

[*]<%RS.MoveNext

 

[*]

 

[*]  intrec=intrec+1 

 

[*]

 

[*]  IF RS.EOF then 

 

[*] response.write " " 

 

[*]  END IF

 

[*]Wend

 

[*]

 

[*]If numeropagina > 1 Then 

 

[*] Response.Write ("<a href=""default.asp?pagina=" & numeropagina - 1 & ""target=""_self"">[Anterior]</a>")

 

[*]Else

 

[*] Response.Write ("[Anterior]")

 

[*]End If  

 

[*]

 

[*]If numeropagina > 1 or NOT rs.EOF Then 

 

[*]

 

[*] For NumeroPagina = 1 to RS.PageCount

 

[*]

 

[*]  If NumeroPagina > 15 Then 

 

[*]  If RS.PageCount = numeropagina Then Response.Write(" ..." & RS.PageCount ) Else Response.Write(" ... <a href=""default.asp?pagina=" & RS.PageCount""target=""_self"">" & RS.PageCount & "</a>")

 

[*]

 

[*]  Exit For

 

[*]  Else

 

[*] If NumeroPagina = numeropagina Then Response.Write(" " & NumeroPagina) Else Response.Write(" <a href=""default.asp?pagina=" & NumeroPagina & ""target=""_self"">" & NumeroPagina & "</a>")

 

[*]  End If

 

[*] Next

 

[*]End If

 

[*]

 

[*]If NOT Rs.EOF then  

 

[*] Response.Write (" <a href=""default.asp?pagina=" & numeropagina + 1 & ""target=""_self"">[Próximo]</a>")

 

[*]Else

 

[*] Response.Write (" [Próximo]")

 

[*]End If %>

Veja se esta certo aí, pq eu n testei n e você terá q organizar aí, ok?

 

Agora isto td eh simples comparado a duvida q eu tenho no meu post:

Busca Por Vários Bd, como fazer paginado huhauhuahuha

Compartilhar este post


Link para o post
Compartilhar em outros sites

10 galera...

Tipo deu certo em partes a paginação...Fiz o seguinte:

 

Peguei o code do "PhoEniXFirE"

e acrescentei minha SQL de busca, o code inteiro ficou desta forma:

 

<%  strBusca = Request.QueryString("busca")  if strBusca <> "" thenConexao = "data/banco.mdb"Set Conn = server.CreateObject("ADODB.connection")Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(Conexao)Set RS = Server.CreateObject("adodb.recordset")RS.PageSize = 10SQL = "SELECT * FROM Estabelecimento  WHERE CESTABELECIMENTO LIKE '%"& strBusca &"%' ORDER BY iID DESC" RS.Open SQL,Conn,3,3IF RS.EOF then %><font face="Arial" size="1" color="#000080">Nenhum cadastro foi encontrado.<%   Response.EndELSEResponse.Write rs.RecordCount %> Números de cadastros.<br><br><% If Request.QueryString("pagina") = "" Then    numeropagina = 1Else    numeropagina = CInt(Request.QueryString("pagina"))End If    END IFRS.AbsolutePage=numeropaginaintrec=0While intrec < RS.PageSize and not RS.EOF %><%=Rs("CEstabelecimento")%>Endereço: <%=Rs("CENDERECO")%>Tel:  <%=Rs("CTELEFONE")%>CEP:  <%=Rs("CCEP")%><br><%RS.MoveNext   intrec=intrec+1    IF RS.EOF then       response.write " "    END IFWendIf numeropagina > 1 Then     Response.Write ("<a href=""Processa&BuscaEstabelecimento.asp?pagina=" &  numeropagina - 1  & """ target=""_self"">[Anterior]</a>")Else    Response.Write ("[Anterior]")End If         If numeropagina > 1 or NOT rs.EOF Then     For NumeroPagina = 1 to RS.PageCount             If NumeroPagina > 15 Then              If RS.PageCount = numeropagina Then Response.Write(" ..." & RS.PageCount ) Else Response.Write(" ... <a href=""Processa&BuscaEstabelecimento.asp?pagina=" &  RS.PageCount  & """ target=""_self"">" & RS.PageCount & "</a>")             Exit For         Else            If NumeroPagina = numeropagina Then Response.Write(" " & NumeroPagina) Else Response.Write(" <a href=""Processa&BuscaEstabelecimento.asp?pagina=" &  NumeroPagina & """ target=""_self"">" & NumeroPagina & "</a>")             End If    NextEnd IfIf NOT Rs.EOF then           Response.Write (" <a href=""Processa&BuscaEstabelecimento.asp?pagina=" &  numeropagina + 1  & """ target=""_self"">[Próximo]</a>")Else    Response.Write (" [Próximo]")End ifEnd If %>

Ele exibe na tela o resultado correto do que pesquisei...porém os links da paginação no caso...naum funcionam, tipo 1, 2, 3, naum ficam como link...anterior e próximo sim...só que quando clico no link, ele retorna a página em branco!

 

Aguardo ajuda nessa parte...

VaLeu! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

10 galera...

Tipo deu certo em partes a paginação...Fiz o seguinte:

 

Peguei o code do "PhoEniXFirE"

e acrescentei minha SQL de busca, o code inteiro ficou desta forma:Ele exibe na tela o resultado correto do que pesquisei...porém os links da paginação no caso...naum funcionam, tipo 1, 2, 3, naum ficam como link...anterior e próximo sim...só que quando clico no link, ele retorna a página em branco!

 

Aguardo ajuda nessa parte...

VaLeu!  http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

<{POST_SNAPBACK}>

Olha, n sei qual eh o problema pq aki comigo o código funciona pereitamente, coomo n estou com tempo p analisar o cod direitinho, vou te enviar meu arquivo ORIGINAL, ai você mesmo confere ok? Pode ser qndo eu passei p o q você quer esqueci ou coloquei algo errado.

Ai vai ele:

<!--#include file = "conectar.asp"--><%'Verifica se o usaurio esta logadoif session("login") = "" then'Se não estiver redireciona para a página principalresponse.redirect("login.asp")end ifIf Request.QueryString("pagina") = "" Thenresponse.redirect "exibir.asp?pagina=1"End If%><title>Exibir > página <%=Request.QueryString("pagina")%> - Admin Noticias </title><style>a { color:#0000FF }</style><body background="/images/fundo_noticias.gif" topmargin="5" leftmargin="5" ><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">  <tr>    <td width="100%" align="center"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">  <tr>    <td width="100%" style="border-bottom: 1px solid #C0C0C0" align="center"><b><font face="Arial">Administração do Sistema de Notícias<br>Seção: </font><font face="Arial Black"><%=Secao%></font></b></td>  </tr></table><p><% Set RS = Server.CreateObject("adodb.recordset")RS.PageSize = 10SQL = "SELECT * FROM Noticias ORDER BY Id DESC" RS.Open SQL,Conn,3,3%><table border="0" cellpadding="4" style="border-collapse: collapse" >  <tr>    <td colspan="3">    <p align="center"><font face="Arial" style="font-size: 9pt"><b><% Response.Write rs.RecordCount %></b> notícias lançadas:</font></td>  </tr><% IF RS.EOF then %>  <tr>    <td colspan="3">    <p align="center"><font face="Arial" style="font-size: 9pt"><b>Nenhuma notícia foi adicionada.</b></font></td>  </tr><%   Response.EndELSEIf Request.QueryString("pagina") = "" Then	intpagina = 1Else	intpagina = CInt(Request.QueryString("pagina"))End If	END IFRS.AbsolutePage=intpaginaintrec=0While intrec < RS.PageSize and not RS.EOF IF cor ="#EBEBEB" THENcor = "#FFFFFF"ELSEcor ="#EBEBEB"END IF%>  <tr>    <td style="border: 1px solid #DDDDDD" bgcolor="<%=cor%>"><font face="Arial" style="font-size: 9pt"><%=Rs("DataNumerica")%> - <b><%=Rs("Chamada")%></b></font></td>    <td style="border: 1px solid #DDDDDD" bgcolor="<%=cor%>"><font face="Arial" style="font-size: 9pt"><a href="editar.asp?id=<%=Rs("Id")%>&pagina=<%=intpagina%>">[editar]</a></font></td>    <td style="border: 1px solid #DDDDDD" bgcolor="<%=cor%>"><font face="Arial" style="font-size: 9pt"><a onClick="return confirm('Você tem certeza que deseja apagar esta notícia?');" href="apagar.asp?pagina=<%=intpagina%>&id=<%=Rs("Id")%>">[apagar]</a></font></td>  </tr><%RS.MoveNext   intrec=intrec+1    IF RS.EOF then       response.write " "    END IFWend%>  <tr>    <td colspan="3">    <p align="center"><font style="font-size: 9pt" face="Arial"><%If intpagina > 1 Then 	Response.Write ("<a href=""exibir.asp?pagina=" &  intpagina - 1  & """ target=""_self"">[Anterior]</a>")Else	Response.Write ("[Anterior]")End If      If intpagina > 1 or NOT rs.EOF Then 	For NumeroPagina = 1 to RS.PageCount	   If NumeroPagina > 15 Then     If RS.PageCount = intpagina Then Response.Write(" ..." & RS.PageCount ) Else Response.Write(" ... <a href=""exibir.asp?pagina=" &  RS.PageCount  & """ target=""_self"">" & RS.PageCount & "</a>")    Exit For   Else 	 If NumeroPagina = intpagina Then Response.Write(" " & NumeroPagina) Else Response.Write(" <a href=""exibir.asp?pagina=" &  NumeroPagina & """ target=""_self"">" & NumeroPagina & "</a>")	   End If	NextEnd IfIf NOT Rs.EOF then    	Response.Write (" <a href=""exibir.asp?pagina=" &  intpagina + 1  & """ target=""_self"">[Próximo]</a>")Else	Response.Write (" [Próximo]")End If  %></font>    </p></td>  </tr></table><p><input onClick="window.location='admin.asp'" type="button" name="admin" value="Voltar a página principal" style="border:1px solid #808080; font-family: Arial; font-size: 9 pt; color:#0000FF; background-color:#EBEBEB"></p><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">  <tr>    <td width="100%" style="border-top: 1px solid #C0C0C0" align="center"><font face="Verdana" style="font-size: 7pt"><a href="mailto:rairabelo@phoenixfire.com.br?subject=Sistema de Notícias"><font color="#000000">Sistema desenvolvido por <b>Rai Rabelo</b></a></font></td>  </tr></table></td>  </tr></table></body></html>
Este post já ta enorme. huahuhauhaua.

 

E continuo dizendo, problema eh aqui: Busca Por Vários Bd, como fazer paginado

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.