Paginação com Colunas
Boa tarde A todos.
Estou tentando alterar esse código para exibir o resultado em colunas, mais não estou conseguindo, se alguém puder analizar o código e ver onde estou errando eu agradeço.
O erro é esse:
Tipo de erro:
Objeto Response, ASP 0104 (0x80070057)
Operação não permitida
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Efetuando a conexão com a base de dados criada -----------------------
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("dados/banco.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 = 12 'quantidade de registros por página. Você pode alterar sem conforme precise.
'Vamos fazer a busca na tabela contatos
SQL = "select * from produtos"
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 %>
<%'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Untitled Document</title>
<style type="text/css"> margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
} font-family: Arial, Helvetica, sans-serif;
font-size: 13px;
font-weight: bold;
color: #333333;
text-decoration: none;
} font-family: Arial, Helvetica, sans-serif;
font-size: 13px;
font-weight: bold;
color: #333333;
text-decoration: underline;
} font-family: Arial, Helvetica, sans-serif;
font-size: 13px;
font-weight: bold;
color: #333333;
text-decoration: none;
} font-family: Arial, Helvetica, sans-serif;
font-size: 13px;
font-weight: bold;
color: #333333;
text-decoration: underline;
}
.style1 {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #333333;
}</style>
</head>
<body>
<table width="900" border="0" cellpadding="0" cellspacing="0" align="center">
<!--DWLayoutTable-->
<tr bgcolor="#CCCCCC">
<%
i = 1
while not RS.Eof
%>
<td><% =RS("PROD_NOME") %></td>
<%
If i>=2 Then
i=1
Response.Write("</tr><tr> ")
Else
i=i+1
End If
Wend
%>
</tr
></table>
</body>
</html><%'---------------------------------------------------------------------------------------------%>
<% 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="paginacao.asp?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,RS.PageCount) <> 0 then
%>
<a href="paginacao.asp?pagina=<%=intpagina + 1%>">Proxima</a>
<%
END IF
%>
Discussão (2)
Carregando comentários...