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

Paginacao Nao Funciona Aki.

Guest anne

Perguntado por Guest anne,

 Share

Pergunta

Guest anne

Guest anne

Postado
Postado (editado)

Oi galera...estou tentando fazer paginacao em uma pagina, mas acho que estou colocando o codigo da paginação no lugar errado, sera que alguém poderia me ajudar?

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("bdintranet.mdb")
ComandoSQL = "SELECT * FROM medico WHERE nome_medico LIKE '%" + Replace(Request.Form("nome_medico"), "'", "''") + "%'"
Set bd = Conexao.Execute(ComandoSQL)
%>
<style type="text/css">
<!--
body {
	background-attachment: scroll;
	background-image:  url(index_branco.jpg);
	background-repeat: no-repeat;
	background-position: center top;
}
-->
</style>
<TABLE width=767 border=0 align="center" cellPadding=0 cellSpacing=3>
  <TBODY>
    <TR> 
      <TD width=223>&nbsp;</TD>
      <TD width=518>&nbsp;</TD>
      <TD width=14>&nbsp;</TD>
    </TR>
    <TR> 
      <TD width=223 height="133">&nbsp;</TD>
      <TD width=518><table width="71%" border="0" cellpadding="0">
          <tr> 
            <td width="15%"> <div align="left"> </div></td>
            <td width="85%"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="250" height="90">
                <param name="movie" value="bannerzinho.swf">
                <param name="quality" value="high">
                <embed src="bannerzinho.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="250" height="90"></embed> 
              </object> </td>
          </tr>
        </table></TD>
      <TD width=14>&nbsp;</TD>
    </TR>
    <TR> 
      <TD><div align="center"> 
          <table width="164" border="0" align="right" cellpadding="0">
            <tr> 
              <td width="160"><div align="center"></div>
                <div align="left"><a href="default.asp"><img src="botao_PAGINA_INICIAL.png" width="120" height="34" border="0"></a></div></td>
            </tr>
          </table>
        </div></TD>
      <TD><div align="center"> 
          <table width="80%" border="0" align="left" cellpadding="0">
            <tr> 
              <td width="33%"><a href="http://mail.santacasabh.org.br"><img src="BOTAO_EMAIL.png" width="134" height="34" border="0"></a></td>
              <td width="28%"><a href="participe_tb.asp"><img src="BOTAO_PARTICIPETB.png" width="134" height="34" border="0"></a></td>
              <td width="39%"><a href="paineldecontrole.asp"><img src="BOTAO_PAINEL.png" width="134" height="34" border="0"></a></td>
            </tr>
          </table>
        </div></TD>
      <TD>&nbsp;</TD>
    </TR>
    <TR> 
      <TD colspan="3"> <div align="left"> </div></TD>
    </TR>
  </TBODY>
</TABLE>

<table width="51%" border="0" align="center">
  <tr> 
    <td height="17">
<div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">LISTA DE M&Eacute;DICOS DO 
        GRUPO SANTA CASA </font> </strong></div></td>
  </tr>
</table>
<table width="51%" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr bgcolor="#0066CC"> 
    <td width="17%"> <div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1"> 
        <strong>CRM</strong></font></font></div></td>
    <td width="47%"> <div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1"><strong>NOME</strong></font></font></div></td>
    <td width="36%"> <div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1"><strong>ESPECIALIDADE</strong></font></font></div></td>
  </tr>
  <%Do while not bd.Eof
  nome_medico = bd("nome_medico")
  crm_medico = bd("crm_medico")
  especialidade_medico = bd("especialidade_medico")
  %>
  <tr> 
    <td> <div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        <%Response.Write crm_medico%>
        </font></font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font></font></div></td>
    <td><div align="left"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        <%Response.Write nome_medico & "<br>"%>
        </font></font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font></font></div></td>
    <td><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
      <%Response.Write especialidade_medico%>
      </font></font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
      </font></font></font></td>
    <%bd.MoveNext
loop
%>
  </tr>
</table>
<table width="51%" border="0" align="center">
  <tr> 
    <td><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>CASO 
        O NOME DIGITADO N&Atilde;O ESTEJA NA LISTA ACIMA ENTRE EM CONTATO COM 
        O ADMINISTRADOR</strong></font></div></td>
  </tr>
  <tr> 
    <td><div align="center"><a href="ListaMedicos.asp"><img src="botao_VOLTAR.png" width="120" height="30" border="0"></a></div></td>
  </tr>
</table>

brigadim

bju

Editado por cyberalexxx
Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Guest ANNE

Guest ANNE

Postado
Postado (editado) 
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("bdintranet.mdb")
ComandoSQL = "SELECT * FROM medico WHERE nome_medico LIKE '%" + Replace(Request.Form("nome_medico"), "'", "''") + "%'"
Set bd = Conexao.Execute(ComandoSQL)
%>
<style type="text/css">
<!--
body {
	background-attachment: scroll;
	background-image:  url(index_branco.jpg);
	background-repeat: no-repeat;
	background-position: center top;
}
-->
</style>
<TABLE width=767 border=0 align="center" cellPadding=0 cellSpacing=3>
  <TBODY>
    <TR> 
      <TD width=223>&nbsp;</TD>
      <TD width=518>&nbsp;</TD>
      <TD width=14>&nbsp;</TD>
    </TR>
    <TR> 
      <TD width=223 height="133">&nbsp;</TD>
      <TD width=518><table width="71%" border="0" cellpadding="0">
          <tr> 
            <td width="15%"> <div align="left"> </div></td>
            <td width="85%"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="250" height="90">
                <param name="movie" value="bannerzinho.swf">
                <param name="quality" value="high">
                <embed src="bannerzinho.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="250" height="90"></embed> 
              </object> </td>
          </tr>
        </table></TD>
      <TD width=14>&nbsp;</TD>
    </TR>
    <TR> 
      <TD><div align="center"> 
          <table width="164" border="0" align="right" cellpadding="0">
            <tr> 
              <td width="160"><div align="center"></div>
                <div align="left"><a href="default.asp"><img src="botao_PAGINA_INICIAL.png" width="120" height="34" border="0"></a></div></td>
            </tr>
          </table>
        </div></TD>
      <TD><div align="center"> 
          <table width="80%" border="0" align="left" cellpadding="0">
            <tr> 
              <td width="33%"><a href="http://mail.santacasabh.org.br"><img src="BOTAO_EMAIL.png" width="134" height="34" border="0"></a></td>
              <td width="28%"><a href="participe_tb.asp"><img src="BOTAO_PARTICIPETB.png" width="134" height="34" border="0"></a></td>
              <td width="39%"><a href="paineldecontrole.asp"><img src="BOTAO_PAINEL.png" width="134" height="34" border="0"></a></td>
            </tr>
          </table>
        </div></TD>
      <TD>&nbsp;</TD>
    </TR>
    <TR> 
      <TD colspan="3"> <div align="left"> </div></TD>
    </TR>
  </TBODY>
</TABLE>

<table width="51%" border="0" align="center">
  <tr> 
    <td height="17">
<div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">LISTA DE M&Eacute;DICOS DO 
        GRUPO SANTA CASA </font> </strong></div></td>
  </tr>
</table>
<%
Set Conn = Server.CreateObject("AdoDb.Connection") 
Conn.provider="Microsoft.Jet.OLEDB.4.0" 
Conn.connectionstring=Server.Mappath("bdintranet.mdb") 
Conn.open 
'--------------------------------------------------------------------------

'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,
'pois vamos utilizar algumas funções deste objeto 
Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 3 'quantidade de registros por página. Você pode alterar sem conforme precise.

'Vamos fazer a busca na tabela contatos
SQL = "select * from agenda order by id_agenda" 
RS.Open SQL,Conn,3,3

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 
'que zero, se é maior que o número total de páginas, etc.
IF RS.EOF then 
   Response.Write "nenhum registro encontrado"
   Response.End 'paramos o programa
ELSE
   'Definindo em qual pagina o visitante está
   IF Request.QueryString("pagina")="" then 
      intpagina=1 
   ELSE
      IF cint(Request.QueryString("pagina"))<1 then
         intpagina=1 
      ELSE
         IF cint(Request.QueryString("pagina"))> RS.PageCount then 
            intpagina=RS.PageCount 
         ELSE
            intpagina=Request.QueryString("pagina")
         END IF
      END IF
   END IF
END IF
'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta 
RS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados
intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo 
While intrec < RS.PageSize and not RS.EOF 
%>
                <table width="87%" border="0" align="center" cellpadding="0">
                  <tr> 
                    <td> <table width="343" border="0" align="center" cellspacing="0">
                        <tr bordercolor="#000000" bgcolor="#CCCCCC"> 
                     A????u?     <td colspan="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 
                            <div align="left"><strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
                              <%response.write RS("titulo_agenda")%>
                              </font> </font></strong></div></td>
                        </tr>
                        <tr bordercolor="#000000" bgcolor="#CCCCCC"> 
                          <td colspan="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF"><div align="left"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
      	<%=replace(Rs("texto_agenda"),chr(13),"<br>")%></font></font></div></td>
                        </tr>
                        <tr bordercolor="#000000" bgcolor="#CCCCCC"> 
                          <td width="325" colspan="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF"><div align="left"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
                              </font></font></div></td>
                        </tr>
                        <tr bordercolor="#000000" bgcolor="#CCCCCC">
                          <td colspan="1" align="center" bordercolor="#CCCCCC" bgcolor="#FFFFFF"><div align="left"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
                              </font></font></div></td>
                        </tr>
                      </table>
                      <br> </td>
                  </tr>
                  <tr> 
                    <td><div align="center"><a href="Default.asp"> </a></div>
                      <div align="center"> 
                        <%
 '  response.write RS("titulo_anuncio") & " - " & RS("titulo_anuncA????u?io") & " - " & RS("titulo_anuncio") & "<BR>"
'---------------------------------------------------------------------------------------------
   RS.MoveNext

   ' Acrescenta +1 ao contador
   intrec=intrec+1 
   'Se for EOF (fim de arquivo), imprimir branco na tela
   IF RS.EOF then 
      response.write " " 
   END IF
Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. 
IF intpagina > 1 then 
%>
                        <a href="agenda.asp?pagina=<%=intpagina-1%>"><img src="BOTAO_ANTERIOR.png" width="120" height="30" border="0"></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,RS.PageCount) <> 0 then 
%>
                        <a href="agenda.asp?pagina=<%=intpagina + 1%>"><img src="BOTAO_PROXIMA.png" width="120" height="30" border="0"></a> 
                        <% 
END IF
%>
                      </div>
<table width="51%" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr bgcolor="#0066CC"> 
    <td width="17%"> <div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1"> 
        <strong>CRM</strong></font></font></div></td>
    <td width="47%"> <div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1"><strong>NOME</strong></font></font></div></td>
    <td width="36%"> <div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1"><strong>ESPECIALIDADE</strong></font></font></div></td>
  </tr>
  <%Do while not bd.Eof
  nome_medico = bd("nome_medico")
  crm_medico = bd("crm_medico")
  especialidade_medico = bd("especialidade_medico")
  %>
  <tr> 
    <td> <div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        <%Response.Write crm_medico%>
        </font></font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font></font></div></td>
    <td><div align="left"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        <%Response.Write nome_medico & "<br>"%>
        </font></font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        </font></font></div></td>
    <td><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
      <%Response.Write especialidade_medico%>
      </font></font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
      </font></font></font></td>
    <%bd.MoveNext
loop
%>
  </tr>
</table>
<table width="51%" border="0" align="center">
  <tr> 
    <td><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>CASO 
        O NOME DIGITADO N&Atilde;O ESTEJA NA LISTA ACIMA ENTRE EM CONTATO COM 
        O ADMINISTRADOR</strong></font></div></td>
  </tr>
  <tr> 
    <td><div align="center"><a href="ListaMedicos.asp"><img src="botao_VOLTAR.png" width="120" height="30" border="0"></a></div></td>
  </tr>
</table>

Editado por cyberalexxx
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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,8k
×
×
  • Criar Novo...