Paginação Rotativa Simples

[Leandro Rocha 0]

Galera..tenho essa paginação abaixo e gostaria que quando esivesse na ultima pagina o botaõ próxima apontase para a primeira pagina ao inves de ficar desartivado..alguem sabe??

 

vlw

 

<%
data = request.querystring("data")
if data = "" then
Datai = datainvertida(date())
Dataf = datainvertida(Dateadd("d",90,Datai))
sqlstmt = "Select * From tbl_agenda where data between '" & Datai & "' and '" & Dataf & "' and condicao=1 order by data, festa"
else

sqlstmt = "Select * From tbl_agenda where data = '"&datainvertida(data)&"' and condicao=1 order by data, festa"

end if
Set rstFestas = Server.CreateObject("ADODB.Recordset")
rstFestas.cursorlocation = 3
rstFestas.Open sqlstmt, conn, 3, 3
If rstFestas.Eof then
response.write "<span class=texto align=center>Nenhum evento cadastrado!</span><BR><BR><a href='java script:history.back()'>Voltar</a>"
else
totalrecs = rstFestas.recordcount
rstFestas.pagesize = 8

if (request("pagina")<>"") then
pagina = cint(request("pagina"))
else
pagina = 1
end if

rstFestas.Absolutepage = pagina
if not (rstFestas.eof and rstFestas.bof) then 

'response.write "<p align='right'><font face=arial size=1>Você está na página <b>" & pagina & "</b> de <b>" & rstFestas.pagecount & "</b></font></p>"

x = 0 
for x = 1 to rstFestas.pagesize
if rstFestas.eof then
exit for
else

flyer = rstFestas("img")
if flyer = "0" then
flyer = "<img src='../css/sem_flyer.png' width='58' height='58' border='0'>"
else
flyer = "<img src='"&rstFestas("img")&"' width='58' height='58' border='0'>"
end if

%>
	<table width="312" border="0" align="center" cellpadding="0" cellspacing="0">
	  <tr>
		<td width="74" height="67" align="center" valign="middle"><a href="festa_detalhes.asp?idEvento=<%=rstFestas("idEvento")%>"><%=flyer%></a></td>
		<td width="10"> </td>
		<td width="232" align="left" background="../css/fundo_degrade.jpg"> <a href="festa_detalhes.asp?idEvento=<%=rstFestas("idEvento")%>"> <%=datacerta(rstFestas("data"))%></a><br />
			 <a href="festa_detalhes.asp?idEvento=<%=rstFestas("idEvento")%>"> <%=rstFestas("festa")%></a><br />
		    <a href="festa_detalhes.asp?idEvento=<%=rstFestas("idEvento")%>"><%=rstFestas("Local1")%></a></td>
	  </tr>
	</table>
	<br />
	<% rstFestas.MoveNext %>
	<% end if
next
%>
	<table width="80%" align="center" cellpadding="0" cellspacing="0" class="txt1">
	  
	  <tr>
		<td align="right" width="15%"><%
if pagina <> 1 then
%>
			<a href="<%=paginal%>?pagina=<%=pagina-1%>&data=<%=data%>">Anterior</a>
			<% end if %></td>
		<td align="center" width="70%"><%
j=1
do while j <= rstFestas.Pagecount 
if pagina = j then %>
			<span class="texto">[ <b><%=j%></b> ]</span>
			<% else %>
			<span class="texto"> [</span> <a href="<%=paginal%>?pagina=<%=j%>&data=<%=data%>"><%=j%></a><span class="texto"> ] </span>
			<% end if
j=j+1 
loop %>		</td>
		<td align="left" width="15%"><% if pagina <> rstFestas.Pagecount then %>
			<a href="<%=paginal%>?pagina=<%=pagina+1%>&data=<%=data%>">Próximo</a>
			<% end if  
end if %>		</td>
	  </tr>
	</table>
	<%
conn.close
Set conn = nothing
Set rstFestas = nothing
End if
%>

[Mário Monteiro 179]

Bom é so voce colocar um IF

IF pagina = rstFestas.Pagecount THEN
ProximaPagina = 1
END IF

Logico que adapatando no seu codigo

 

Mas é simples