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

Paginacao

jucacabala

Perguntado por jucacabala,

 Share

Pergunta

jucacabala

jucacabala

Postado
Postado

o que há de errado? refiz a pagina seguindo um tutorial mas continua dando erro

<!--#include file="conexao.inc" -->
<%
	DIM conexaodb, str, rs, codigo

	regs = 10 'DEFININDO A QUANTIDADE DE RESULTADOS POR PÁGINA 
	pag = request.querystring("pagina") 'ESTA É A QUERYSTRING QUE APRESENTARÁ A PÁGINA ATUAL, E AS DEMAIS... 
	if pag = "" Then 
	pag = 1 
	end if 
	rs.cursortype = 3 'DEFININDO O CURSOR A SER UTILIZADO 
	rs.pagesize = regs 'PEGANDO A QUANTIDADE DE RESULTADO POR PÁGINA DEFINIDO ANTERIORMENTE 

	codigo = Request.QueryString("cod")

	str = "SELECT * FROM foto_curso WHERE codpasta= '"&codigo&"' "
	str= str & " order by id desc "

	set rs = createobject("adodb.recordset") 
	set rs.activeconnection = conexaodb


	call abreconexao
	rs.open str 

	'Set rs = conexaodb.Execute(str)
%>
<html>
<head>
<title>::..ACASP..:: - Assitentes de C&acirc;mera Associados de S&atilde;o Paulo</title>
<link href="estilo.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/menu/menu_r2_c2_f3.gif','images/menu/menu_r2_c2_f2.gif','images/menu/menu_r3_c6_f3.gif','images/menu/menu_r3_c6_f2.gif','images/menu/menu_r2_c10_f3.gif','images/menu/menu_r2_c10_f2.gif')">
<table width="500" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <%
    if rs.eof or rs.bof then 
     %>
  <tr> 
    <td height="100" class="verdana11bold"><font color="#000066">N&atilde;o possui 
      fotos cadastradas.</font></td>
  </tr>
  <% 
    else
    rs.absolutepage = pag 
    contador = 0 
    
    do while not rs.eof and contador < rs.pagesize
        %>
  <tr> 
    <td class="arial9"><table width="100%" border="0" cellpadding="0" cellspacing="5" class="box4">
        <tr> 
          <td align="center"><img src="images/cursos/<% = rs.Fields("codpasta") %>/<% = rs.Fields("foto") %>"></td>
        </tr>
      </table></td>
  </tr>
  <% 
	contador = contador +1 
	rs.movenext 
	loop
	%>
  <tr> 
    <td><img src="images/spacer.gif" width="10" height="10"></td>
  </tr>
  <tr>
    <td>paginas:
	<% 
	end if 
	for i = 1 to rs.pagecount 

	if i = cint(pag) then 
	response.write "<b>" & i & "</b>" 
	else 
	response.write " <a href='" & request.servervariables("script_name") & "?pagina=" & i & "&cod=" & codigo & "'>" & i & "</a> " 
	end if 
	next 
	%> 
	<% 
	rs.close 
	conexaodb.close 
	set rs = nothing 
	set conexaodb = nothing 
%>
	</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>

o erro

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/acasp2/galeria.asp, line 10

a linha 14 é

rs.cursortype = 3
Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
jucacabala

jucacabala

Postado
  • Autor
Postado

refiz a pagina mas continua o erro

agora segui um tutorial, mas mesmo assim não deu

esse negocio de paginação é muito piriri

a pagina que quero a paginação é esta, esta funcionando normalmente

mas quando eu coloco para paginar o resultado que vem do banco so da erro.

já procurei por paginação em diversos lugares, mas não funciona.

alguém pode me dar uma luz?

<!--#include file="conexao.inc" -->
<%
	DIM conexaodb, str, rs, codigo
	codigo = Request.QueryString("cod")

	str = "SELECT * FROM foto_curso WHERE codpasta= '"&codigo&"' "
	str= str & " order by id desc "

	call abreconexao
	Set rs = conexaodb.Execute(str)
%>
<html>
<head>
<title>::..ACASP..:: - Assitentes de C&acirc;mera Associados de S&atilde;o Paulo</title>
<link href="estilo.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/menu/menu_r2_c2_f3.gif','images/menu/menu_r2_c2_f2.gif','images/menu/menu_r3_c6_f3.gif','images/menu/menu_r3_c6_f2.gif','images/menu/menu_r2_c10_f3.gif','images/menu/menu_r2_c10_f2.gif')">
<table width="500" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <%
    if rs.Eof then
     %>
  <tr> 
    <td height="100" class="verdana11bold"><font color="#000066">N&atilde;o possui 
      fotos cadastradas.</font></td>
  </tr>
  <% 
    else
    Do While Not rs.Eof
        %>
  <tr> 
    <td class="arial9"><table width="100%" border="0" cellpadding="0" cellspacing="5" class="box4">
        <tr> 
          <td align="center"><img src="images/cursos/<% = rs.Fields("codpasta") %>/<% = rs.Fields("foto") %>"></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td><img src="images/spacer.gif" width="10" height="10"></td>
  </tr>
  <%
  rs.MoveNext
  LOOP
  end if
  rs.close
  Set rs = Nothing
  %>
</table>
</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
dnlmosilva

dnlmosilva

Postado
Postado

Mano.. eu faço paginação assim....

 set rs = Server.CreateObject("ADODB.RecordSet")
 rs.CursorLocation = 3
 rs.CursorType     = 3

 rs.Open sql,conexaodb,3,3
 rs.PageSize  = <noRegistroPorPagina>
 rs.CacheSize = <noRegistroPorPagina>
pra ir pra pagina x 
  rs.AbsolutePage = <pagina>

Link para o comentário
Compartilhar em outros sites
  • 0
jucacabala

jucacabala

Postado
  • Autor
Postado

ta quase la, mas a pagina ainda apresenta erro

a paginação não esta aparecendo

<!--#include file="conexao.inc" -->
<%
linkpag = "galeria.asp?cod=codigo"  '-- para a paginação
TamanhoPagina = 1   '-- qtde de registros por página
qtdecol = 1  '-- qtde de colunas da tabela de listagem

	DIM conexaodb, str, rs, codigo
	codigo = Request.QueryString("cod")

	str = "SELECT * FROM foto_curso WHERE codpasta= '"&codigo&"' order by id desc "

	call abreconexao
	'Set rs = conexaodb.Execute(str)
	rs.open str, conexaodb   '-- para paginação tem que ser rs.open
%>
<html>
<head>
<title>::..ACASP..:: - Assitentes de C&acirc;mera Associados de S&atilde;o Paulo</title>
<link href="estilo.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/menu/menu_r2_c2_f3.gif','images/menu/menu_r2_c2_f2.gif','images/menu/menu_r3_c6_f3.gif','images/menu/menu_r3_c6_f2.gif','images/menu/menu_r2_c10_f3.gif','images/menu/menu_r2_c10_f2.gif')">
<table width="500" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
  <%
    if rs.Eof then
     %>
  <tr>
    <td height="100" class="verdana11bold"><font color="#000066">N&atilde;o possui fotos cadastradas.</font></td>
  </tr>
  <% 
    end if
    'Do While Not rs.Eof
    '-- colocar o include da paginação no lugar do DO WHILE
        %>
  <!--#include file="include/geral_pag01.asp" -->
  <tr>
    <td class="arial9"><table width="100%" border="0" cellpadding="0" cellspacing="5" class="box4">
        <tr>
          <td align="center"><img src="images/cursos/<% = rs.Fields("codpasta") %>/<% = rs.Fields("foto") %>"></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td><img src="images/spacer.gif" width="10" height="10"></td>
  </tr>
  <%
  'rs.MoveNext
  'LOOP
  '--- colocar a paginação no lugar do LOOP %>
  <!--#include file="include/geral_pag02.asp" -->
</table>
</body>
</html>
include/geral_pag01.asp
<%
if PaginaAtual = "" then PaginaAtual = 1

if total_pagina = "" then
	total_pagina = rs.PageCount
else
	total_pagina = request("total_pagina")
end if

select case Request.QueryString("modo")
       case "proxima"
            'PaginaAtual = min( PaginaAtual + 1, total_pagina )
  	PaginaAtual = cint( request.QueryString("numero") )
       case "anterior"
            PaginaAtual = cint( request.QueryString("numero") )
       case "pagina"
            if isNumeric( request.QueryString("numero") ) then
               PaginaAtual = cint( request.QueryString("numero") )
            end if
end select

' Uma vez definida qual é a página atual, passamos esta informação para
' o recordset ser posicionado no primeiro registro da página desejada

If not rs.eof Then rs.AbsolutePage = PaginaAtual
limite = total_pagina - 1

i=1
  item=1
  	Do while not rs.eof and item <= TamanhoPagina %>
geral_pag02.asp
 <% 
  i = i + 1
    	item = item + 1
  rs.movenext
  loop 
 %>

<tr><td colspan=<%=qtdecol%>>
<p align="right">
    <font size=1><b>
<% '-- paginacao da paginação
  auxpag = 20
	interv01 = request("interv01")
	if interv01 = "" then interv01 = 1
  interv02 = request("interv02")

	if interv02 = "" then interv02 = CInt(auxpag)
  if CInt(interv02) >= CInt(total_pagina) then interv02 = total_pagina
  
 if PaginaAtual > auxpag Then 'Colocar o link para página anterior se não for a primeira
    numero = PaginaAtual - 1
  
	response.write "<a href='" & linkpag
	response.write "&modo=anterior&interv01="& (interv01-auxpag) &"&interv02="& (interv02-1) &"&numero=" & interv02-1 & "&total_pagina=" & total_pagina & "'>Anterior " & auxpag & " .... </a>&nbsp;"
 end if

 for n = interv01 to interv02     
  if n = PaginaAtual then
        response.write "<u>" & n & "</u>&nbsp;" ' Se for a página atual, não colocar link, só o número dela.
     else
        response.write "<a href='" & linkpag
  response.write "&modo=pagina&total_pagina=" & total_pagina
  response.write "&numero=" & n & "&interv01="& interv01 &"&interv02="& interv02 & "'>" & n & "</a>&nbsp;"
     end if
 next

 'Colocar o link para próxima página se não for a última
 if PaginaAtual < total_pagina and auxpag < total_pagina then 
   numero = PaginaAtual + 1
     response.write "<a href='" & linkpag
  response.write "&modo=pagina&interv01="& (interv02+1) &"&interv02="& (interv02+auxpag) &"&numero=" & interv02+1 & "&total_pagina="& total_pagina &"'> .... Próximo " & auxpag & "</a>&nbsp;"
 end if 

  %>
            </b><% = "<br> Total: " & rs.recordcount & " records in " & total_pagina & " páginas [max " & TamanhoPagina & " registros/página]" %></font>
  	</td></tr>

o link é este http://www.quartocriativo.com.br/acasp/sit...curso.asp?cod=7 ai é so clicar no link Clique aqui para ver a galeria de fotos que abre um pop onde deveria ter uma paginação

o que tem de errado nesse codigo, não consigo descobrir.

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,3k
    • Posts
      652,3k
×
×
  • Criar Novo...