[Resolvido] Problema com paginação

Amaral · Julho 30, 2010

<%@LANGUAGE="VBSCRIPT"%>

<%

Response.Expires = 0

Dim conexaoDataBase

Dim sqlDados, rsDados, totalNoticias, sqlServ, rsServ, banner

Dim dia_semana, mes

call abreconexao

sqlDados = "SELECT * FROM rss "

sqlDados = sqlDados & " ORDER by data desc, Hora desc, Titulo "

set rsDados = conexaoDataBase.execute(sqlDados)

sqlServ = " SELECT * FROM servicos "

set rsServ = conexaoDataBase.execute(sqlServ)

banner = "banner"

Function ExibeData(data)

dia_semana = WeekDay(data)

Select Case dia_semana

Case 1 : dia_semana = "Domingo"

Case 2 : dia_semana = "Segunda-Feira"

Case 3 : dia_semana = "Terça-Feira"

Case 4 : dia_semana = "Quarta-Feira"

Case 5 : dia_semana = "Quinta-Feira"

Case 6 : dia_semana = "Sexta-Feira"

Case 7 : dia_semana = "Sábado"

End Select

mes = Month(data)

Select Case mes

Case 1 : mes = "Janeiro"

Case 2 : mes = "Fevereiro"

Case 3 : mes = "Março"

Case 4 : mes = "Abril"

Case 5 : mes = "Maio"

Case 6 : mes = "Junho"

Case 7 : mes = "Julho"

Case 8 : mes = "Agosto"

Case 9 : mes = "Setembro"

Case 10 : mes = "Outubro"

Case 11 : mes = "Novembro"

Case 12 : mes = "Dezembro"

End Select

ExibeData = dia_semana & ", " & Day(Date()) & " de " & mes & " de " & Year(data)

End Function

%>

<HTML>

<HEAD>

<title> Consultoria Ambiental</title>

//relógio

function startTime()

{

var today=new Date()

var h=today.getHours()

var m=today.getMinutes()

var s=today.getSeconds()

// adiciona zero na frente dos numeros < 10

m=checkTime(m)

s=checkTime(s)

document.getElementById('txt').innerHTML=h+":"+m+":"+s

t=setTimeout('startTime()',500)

}

function checkTime(i)

{

if (i<10)

{i="0" + i}

return i

}

// Final do relógio

</script>

//Faz o menu funcionar no IE

startList = function() {

if (document.all&&document.getElementById) {

navRoot = document.getElementById("nav");

for (i=0; i<navRoot.childNodes.length; i++) {

node = navRoot.childNodes;

if (node.nodeName=="LI") {

node.onmouseover=function() {

this.className+=" over";

}

node.onmouseout=function() {

this.className=this.className.replace

(" over", "");

}

window.onload=startList;

</script>

</HEAD>

<body>

<div id="nova">

<div id="geral">

<div id="conteudo">

<div id="topo" align="center">

<div class="logo" align="left"><img src="imagens/marca.gif">

<div class="banner">

</div>

</div>

<br>

<div id="corpo">

<div id="site">

<h2>Notícias</h2><br>

<h4> Data Hora Título</h4>

<div class="clara">

<%

'Enquanto o contador for menor que a quantidade de registros mostrados ou

' não for o final do arquivo

While intrec < RS.PageSize

'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------

response.write " " & RS("data") & " " & mid(RS("hora"),1,5)& " " & RS("titulo")& "<BR><BR>" & " "

'---------------------------------------------------------------------------------------------

%></div>

<%

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

If Not RS.Eof Then

%>

<div class="escura">

<span> <% response.write " " & RS("data") & " " & mid(RS("hora"),1,5)& " " & RS("titulo")& "<BR><BR>" & " "%></span>

</div>

<%

RS.MoveNext

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="noticias.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="noticias.asp?pagina=<%=intpagina + 1%>">Próxima</a>

<%

END IF

%>

<br> <a href="index.asp"><strong>Voltar</strong></a>

</div> 

</div>

</div>

</div>

<div id="rodape" align="center">

<img src="imagens/banner_rodape2.gif">

</div>

</div>

</body>

</HTML>

<%

rsDados.close

rsServ.close

call fechaconexao

set rsDados = nothing

set dia_semana = nothing

set mes = nothing

set totalNoticias = nothing

set banner = nothing

set rsServ = nothing

%>

############################################################################################################################################

Eu gostaria que cada linha ficasse de uma cor, tipo:

1ª notícia fundo Verde escuro

2ª notícia fundo Verde claro

3ª notícia fundo Verde escuro

4ª notícia fundo Verde claro

.

Só que isso só está acontecendo com as 2 primeiras notícias, a partir da 3ª não acontece é como se ficasse fora da DIV.

#Essa aqui é a página que eu jogo na outra através de include#

<%

'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("\ecohidro\db\Dbecohidro.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 rss"

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

'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

%>

Imagem Postada

Tá aprecendo assim!

Eu gostaria que ficasse assim:

Só que essa imagem é como eu fiz sem o código de paginação.

Imagem Postada

Vinicius Ianni · Julho 30, 2010

O PrÃ3xima pode ser acentuação, coloque na pagina, Session.LCID=1436

Amaral · Julho 30, 2010

O PrÃ3xima pode ser acentuação, coloque na pagina, Session.LCID=1436

Desculpe minha ignorância, mas o que acentuação tem a v com isso?

Ah, entendi o que você quis dizer..Eu sei que o próxima é acentuação e sei arrumar, mas o que estou reclamando é o fundo, quero que fique cada linha com uma cor(clara,escura,clara, escura, etc)

Vinicius Ianni · Julho 30, 2010

peguei isso no lab de scripts:

if i mod 2 = 0 Then
response.write "alguma coisa numa cor"
else
response.write "alguma coisa noutra cor"
end if
rs.movenext
i=i+1

Amaral · Julho 30, 2010

peguei isso no lab de scripts:

if i mod 2 = 0 Then
response.write "alguma coisa numa cor"
else
response.write "alguma coisa noutra cor"
end if
rs.movenext
i=i+1

MAs eu fiz isso, você pode v na imagem que as duas primeiras linhas estão assim, só que a partir da 3ª bagunça!

Eu consegui arrumar mudando a DIV de lugar, mas notei outro erro. Quando clico em "próxima" que vai pra página 2 ele apresenta o seguinte erro:

erro '80020009'

/ecohidro/paginacao1.asp, linha 9

que no caso é esta linha:

Linha 8 <div class="clara">

Linha 9 <span><%response.write " " & RS("data") & " " & mid(RS("hora"),1,5)& " " & RS("titulo")& "<BR><BR> " %></span></div>

Eu já percebi o que é, mas ainda não sei corrigir.

Tipo aqui eu mostro quantos resultados eu vou mostrar por página.

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

Se na minha última página tiver menos que 5 resultados ele mostra esse erro.

xanburzum · Julho 30, 2010

Se você estiver usando um campo MEMOa, TEXT ou VARCHAR (> 255)

ou isso muitas vezes pode acontecer se você faz referência a um objeto recordset que foi criado em uma página diferente, ou no escopo de sessão. No primeiro caso, você precisará re-consultar o banco de dados para este conjunto de registros e, neste caso, você deve considerar um outro plano de execução ... você nunca deve guardar um objeto conjunto de registros no âmbito da sessão, ou erro de driver

Amaral · Julho 31, 2010

Obrigado a todos que me ajudaram. Eu já consegui arrumar aqui.

xanburzum · Julho 31, 2010

OK amigo, resolvido...

Arquivado

[Resolvido] Problema com paginação

Recommended Posts

Amaral 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

Amaral 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

Amaral 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Amaral 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante