ERRO NA PAGINACAO

<%
Dim strConn
Dim Path, A, FileName
session("id_atividade") 
pesq = Request.Form("pesquisa")

Path = Request.ServerVariables("PATH_TRANSLATED")
A = Split(Path, "\") 
FileName = A(UBound(A))
Path = Left(Path,Len(Path)-Len(FileName))

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path & "..\data\guiadenoivos.mdb;"
If pv <> "Nao" then ' Se é a primeira vez que a página é carregada
	Set conexao=Server.CreateObject("ADODB.Connection")
	conexao.CursorLocation = 3 ' é o mesmo que adUseClient
	conexao.Open strConn
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.CacheSize = 10 ' tamanho do cache
	rs.PageSize = 10 ' tamanho da página de registros

	if pesq = "" then
		sql = "SELECT * FROM TD_Atividade order by atividade"
		rs.Open sql, conexao
		session("Pagina") = 1
		MostraDados
		Session("PrimeiraVez") = "Nao"
	else
		sql = "SELECT * FROM TD_Atividade WHERE atividade LIKE '" & pesq & "%' order by atividade"
		rs.Open sql, conexao
		session("Pagina") = 1
		MostraDados
		Session("PrimeiraVez") = "Nao"
	end if
Else ' Se a página já foi carregada, verifica se deve incrementar ou decrementar o contador de páginas

	if nv = AbsolutePage + 1 then
		Session("Pagina") = Session("Pagina") + 1
	Else
		If nv = AbsolutePage - 1 then
			Session("Pagina") = Session("Pagina") - 1
		End If
	End If
	Set conexao=Server.CreateObject("ADODB.Connection")
	conexao.CursorLocation = 3 ' adUseClient
	conexao.Open strConn
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.CacheSize = 10
	rs.PageSize = 10
	if pesq = "" then
		sql = "SELECT * FROM TD_Atividade order by atividade"
		rs.Open sql, conexao
		session("Pagina") = 1
		MostraDados
		Session("PrimeiraVez") = "Nao"
	else
		sql = "SELECT * FROM TD_Atividade WHERE atividade LIKE '" & pesq & "%' order by atividade"
		rs.Open sql, conexao
		session("Pagina") = 1
		MostraDados
		Session("PrimeiraVez") = "Nao"
	end if
End If


[c]Sub MostraDados()
Dim Contador
Pagina = 1
rs.AbsolutePage = Session("Pagina") ' vai para o número da página que está armazenado em session("pagina")
Response.Write ("<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td><div align'left'>Existem " & rs.RecordCount & " atvidades cadastradas</div></td><td><div align='right'>Mostrando página " & Session("Pagina") & " de " & rs.PageCount & "</div></td></tr></table>")
response.write("<table width='100%' border='1' cellspacing='0' cellpadding='0' class='table'><tr><td> </td><td width='350'> <strong>Atividades</strong></td><td width='60'> <strong>Controles</strong></td></tr>")
For contador = 1 to 10
session("id_atividade")
response.write("<tr><td width='1%' align='center'><input class='inputs' type='checkbox' name='regapagar' value='" & rs("id_atividade") & "'></td><td> " & rs("atividade") & "</td><td width='1%' align='center'><a href='atividades_alterar.asp?id_atividade=" & rs("id_atividade") & "'><img style='cursor:hand' src='images/consulta.gif' alt='Pesquisar Atividade - " & rs("atividade") & "' width='16' height='16' border='0'></a></td></tr>")
rs.MoveNext
If rs.Eof then Exit For
Next
Response.write("</table><br><div align='right' border='0'>")

If Session("Pagina") <> 1 then
	response.write "<a href='atividades.asp?nv=" & Session("Pagina") - 1 & "' border='0'><img src='images/anterior.gif' width='19' height='17' border='0' alt='Anterior'/></a>  "
else
	response.write "<img src='images/anterior_no.gif' width='19' height='17' border='0'/>  "
	Pagina = 1
End If
If Session("Pagina") <> rs.PageCount then
	response.write "<a href='atividades.asp?nv=" & Session("Pagina") + 1 & "' border='0'><img src='images/proxima.gif' width='19' height='17' border='0' alt='Proximo'/></a>"
else
	response.write "<img src='images/proxima_no.gif' width='19' height='17' border='0'/>"
	Pagina = rs.PageCount
End If
Response.write "</div>"
End Sub