Quem puder me ajudar....
<table width="100%" border="0" cellspacing="8" cellpadding="0" align="center">
<tr>
<td colspan="2" valign="top" height="384">
<div align="center">
<p><font size="2" face="Tahoma"><b>Barcos a Motor</b></font></p>
<p><%
'fazendo a paginação !!! :)
' número de registros por página.
Const numeroRegistros = 2
' cria o objeto Conexão
Set Conexao = Server.CreateObject("ADODB.Connection")
' concatena a string do driver com o caminho
liga = "DBQ=" & Server.MapPath("db/dbclientes.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
' o cursor do objeto Connection deve residir no cliente.
' Isto equivale a dizer que a propriedade CursorLocation
' do objeto connection é igual a adUseClient, ou se não
' quiser utilizar as constantes do arquivo adovbs.inc,
' use o número 3 ao invés de adUseClient. Na verdade, a
' constante adUseClient tem o valor 3 no arquivo adovbs.inc.
' Logo, tanto faz usar adUseClient ou 3, pois adUseClient = 3
Conexao.CursorLocation = 3
'abre a conexão
Conexao.Open liga
' cria um recordset
Set tabela = Server.CreateObject("ADODB.RECORDSET")
' faz o recordset usar a conexão
Set tabela.ActiveConnection = Conexao
' número de registros por página
tabela.PageSize = numeroRegistros
' tamanho do cache
tabela.CacheSize = numeroRegistros
' carrega a query na string
strSQL = "SELECT * FROM tab_barco_motor ORDER BY tamanho,marca,descricao,estado,empresa"
' executa a query
tabela.open strSQL
if tabela.eof then%>
<font size="2" face="Tahoma">Desculpe-nos o transtorno, mas
estamos cadastrado os revendedores. Em breve a busca estará
funcionando.</font><%else
' testa se é a primeira vez
If (request.ServerVariables("CONTENT_LENGTH") = "123" ) Then
' se for aponta para a primeira página e guarda que a página atual é a primeira
paginaAtual = 1
else
' caso não seja a primeira vez guarda página atual
paginaAtual = Cint(Request.Form("CurrentPage"))
Select Case Request.Form("enviarecordset")
Case "Anterior"
paginaAtual = paginaAtual - 1
tabela.AbsolutePage = paginaAtual
Case "Próxima"
paginaAtual = paginaAtual + 1
tabela.AbsolutePage = paginaAtual
End Select
' de acordo com a escolha a página é incrementada ou decrementada
End If
%> </p>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr bgcolor="#003399">
<td width="13%">
<div align="center"><b><font color="#FFFFFF" size="2" face="Tahoma">Tamanho</font></b></div>
</td>
<td width="15%">
<div align="center"><b><font color="#FFFFFF" size="2" face="Tahoma">Marca</font></b></div>
</td>
<td width="38%">
<div align="center"><b><font color="#FFFFFF" size="2" face="Tahoma">Descrição</font></b></div>
</td>
<td width="23%">
<div align="center"><b><font color="#FFFFFF" size="2" face="Tahoma">Empresa</font></b></div>
</td>
<td width="11%">
<div align="center"><b><font color="#FFFFFF" size="2" face="Tahoma">Estado</font></b></div>
</td>
</tr>
<%' imprime os registros na tela
for i = 1 to numeroRegistros
%>
<tr bgcolor="#CCCCFF">
<td width="13%">
<div align="center"><%= tabela("tamanho")%></div>
</td>
<td width="15%">
<div align="center"><%= tabela("marca")%></div>
</td>
<td width="38%">
<div align="center"><%= tabela("descricao")%></div>
</td>
<td width="23%">
<div align="center"><%= tabela("empresa")%></div>
</td>
<td width="11%">
<div align="center"><%= tabela("estado")%></div>
</td>
</tr>
<%
tabela.MoveNext
if (tabela.eof) then
exit for
else
end if
next
%>
<%
' total de páginas
totalPaginas = tabela.PageCount
' fecha o recordset
tabela.close
' fecha a conexão
Conexao.close
' destrói os objetos
Set tabela = nothing
Set Conexao = nothing
%>
</table>
<br>
<font size="2" face="Tahoma">Página <%= paginaAtual %> de
<%= totalPaginas %></font>
<Form Action="<% Request.ServerVariables("SCRIPT_NAME")%>" method="POST">
<input type="hidden" name="CurrentPage" value="<%= paginaAtual %>">
<%
If (paginaAtual > 1) Then
%>
<input type="submit" name="enviarecordset" value="Anterior">
<%
End If
If (paginaAtual <> totalPaginas) Then
%>
<input type="submit" name="enviarecordset" value="Próxima">
<%
End If
%>
</form>
<p> </p>
</div>
<%end if%>
</td>
</tr>
</table>
