Paginação

bolomaster · Janeiro 6, 2004

Eu gostaria de colocar uma paginação nesta pagina.. tipo mostra de 10 em 10 vou postar para vocês o meu arquivo e ai alguém sabe como eu vou fazer para isso

Ok...

vou colocar agora o arquivos noticias.asp

<table width="100%" border="0" cellspacing="10">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0" class="fonte">
<tr>
<td width="26%" bgcolor="#3399FF"> </td>
<td width="45%"><div align="center"><img src="Imagens/Titulo_pag_art.gif" width="350" height="43"></div></td>
<td width="29%" bgcolor="#3399FF"> </td>
</tr>
<tr>
<td colspan="3"></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td colspan="3"><img src="Imagens/Icon_tocha.gif" width="34" height="40">
<strong>Notícias.</strong> </td>
</tr>
<tr>
<td colspan="3"><hr></td>
</tr>
<tr>
<td colspan="3"><p><br>
</p></td>
</tr>
</table>
<%
dim db, rs
set db = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")
rs.open "notonline", db
do while not rs.eof
%>
<table width="100%" border="0" class="fonte">
<tr>
<td width="74"><strong>Titulo:</strong></td>
<td width="0" bgcolor="#666666"></td>
<td width="675"> <font color="#3366FF">
<%Response.Write rs.fields("titulo")%>
</font></td>
</tr>
<tr>
<td height="1" colspan="3" bgcolor="#666666"></td>
</tr>
<tr>
<td><strong>Data:</strong></td>
<td width="0" bgcolor="#666666"></td>
<td> <font color="#3366FF">
<%Response.Write rs.fields("data")%>
</font></td>
</tr>
<tr bgcolor="#666666">
<td height="1" colspan="3"></td>
</tr>
<tr>
<td><strong>Resumo:</strong></td>
<td width="0" bgcolor="#666666"></td>
<td> <font color="#3366FF">
<%Response.Write rs.fields("resumo")%>
<a href="vernoticias.asp?id=<%=rs.fields("cod")%>" class="link2"><strong>Ver
Noticia</strong></a> </font></td>
</tr>
<tr bgcolor="#666666">
<td height="1" colspan="3"></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
</table>
<p> </p>
<p>
<%
rs.MoveNext
Loop%>
</p>
<p> </p>
<p> </p>
<p><img src="Imagens/PixelTrasp.gif" width="15" height="5"><a href="javascript:history.back(-1)" class="link2">voltar...</a></p>
</td>
</tr>
</table>
<p> </p>

ok abraços

bolomaster · Janeiro 7, 2004

alguém, por favor - urso , moderador, Reginaldo - alguém por favor !!!

Reginaldo ASP · Janeiro 7, 2004

Vê se isso pode te ajudar:clique aqui!

bolomaster · Janeiro 7, 2004

Galera resolvido o problema.. obrigado a todos

vou colocar para vocês como ficou .. segui o seguinte exemplo Paginação

<table width="100%" border="0" cellspacing="10">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0" class="fonte">
<tr>
<td width="26%" bgcolor="#3399FF"> </td>
<td width="45%"><div align="center"><img src="Imagens/Titulo_pag_art.gif" width="350" height="43"></div></td>
<td width="29%" bgcolor="#3399FF"> </td>
</tr>
<tr>
<td colspan="3"></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td colspan="3"><img src="Imagens/Icon_tocha.gif" width="34" height="40">
<strong>Notícias.</strong> </td>
</tr>
<tr>
<td colspan="3"><hr></td>
</tr>
<tr>
<td colspan="3"><p><br>
</p></td>
</tr>
</table>
<%
Set db = Server.CreateObject("ADODB.Connection")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")
Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 5
SQL = "select * from notonline"
RS.Open SQL,db,3,3
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
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
RS.AbsolutePage=intpagina
intrec=0
While intrec < RS.PageSize and not RS.EOF
%>
<table width="100%" border="0" class="fonte">
<tr>
<td width="74"><strong>Titulo:</strong></td>
<td width="0" bgcolor="#666666"></td>
<td width="675"> <font color="#3366FF">
<%Response.Write rs.fields("titulo")%>
</font></td>
</tr>
<tr>
<td height="1" colspan="3" bgcolor="#666666"></td>
</tr>
<tr>
<td><strong>Data:</strong></td>
<td width="0" bgcolor="#666666"></td>
<td> <font color="#3366FF">
<%Response.Write rs.fields("data")%>
</font></td>
</tr>
<tr bgcolor="#666666">
<td height="1" colspan="3"></td>
</tr>
<tr>
<td><strong>Resumo:</strong></td>
<td width="0" bgcolor="#666666"></td>
<td> <font color="#3366FF">
<%Response.Write rs.fields("resumo")%>
<a href="vernoticias.asp?id=<%=rs.fields("cod")%>" class="link2"><strong>Ver
Noticia</strong></a> </font></td>
</tr>
<tr bgcolor="#666666">
<td height="1" colspan="3"></td>
</tr>
</table>
<p>
<%
RS.MoveNext
intrec=intrec+1
IF RS.EOF then
response.write " "
END IF
Wend
IF intpagina > 1 then
%>
<a href="fac_art.asp?pagina=<%=intpagina-1%>" class="link2">Anterior</a>
<%
END IF
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
ou <a href="fac_art.asp?pagina=<%=intpagina + 1%>" class="link2">Próxima</a>
<%
END IF
%>
</p>
<p> </p>
<p> </p>
<p><img src="Imagens/PixelTrasp.gif" width="15" height="5"><a href="javascript:history.back(-1)" class="link2">voltar...</a></p>
</td>
</tr>
</table>
<p> </p>

Entrar

Paginação

Pergunta

bolomaster

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

bolomaster

Link para o comentário

Compartilhar em outros sites

Reginaldo ASP

Link para o comentário

Compartilhar em outros sites

bolomaster

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades