Paginação

Fiz ontem essa paginação...tava numa vontade de fazer... aproveitem

Peço que prestem, atenção no conteudo da variavel 'nomepagina'

Modifiquem as partes emnegrito de acordo com as necessidades

A variavel 'registros' é o tanto de registros exibido por paginas..

>
<style>

<!--

a {text-decoration:none}

a:hover {text-decoration:underline; color:black}

a:active {text-decoration:none; color:black}

a:visited {text-decoration:underline; color:black}

-->

</style>

<title>Paginação feita por CrazyBaby</title>

<%

StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("clientes.mdb")

Set Conexao = Server.CreateObject("AdoDb.Connection")

Conexao.Open StringDeConexao

Set RS = Server.CreateObject("AdoDb.RecordSet")

nomepagina = "default2.asp" 'IMPOTANTE:Coloque aqui o nome desta página.

registros = 4

RS.CacheSize = registros

RS.PageSize = registros

SQL = "Select * from contatos"

RS.Open SQl,Conexao,3,3

If RS.Eof then

Response.Write("Nenhum registro encontrado.")

else

if Request.QueryString("pagina")="" then

pagina = 1

elseif cint(Request.QueryString("pagina"))<1 then

pagina = 1

elseif cint(Request.QueryString("pagina"))>RS.PageCount then

pagina = RS.PageCount

else pagina=Request.QueryString("pagina")

end if

end if

RS.AbsolutePage = pagina

contador = 0

While contador<registros and not RS.eof

response.Write(RS("nome")&"-"&RS("telefone")&"-"&RS("email")&"<p>")

RS.MoveNext

contador = contador + 1

If RS.eof then

Response.Write("")

end if

Wend

for i=1 to RS.PageCount

response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")

Next

%>

Qualquer erro, ou se naum conseguir modificar o script é só gritar (y)

Flows

:D