Paginação Rotativa Simples

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
%>