Paginação no relatório

Boa Tarde, tenho o seguinte código:

sql = "SELECT * FROM TABELA"
Set RsPlanilha = conBanco.Execute(PlanilhaSQL)

if (not RsPlanilha.eof) then

RsPlanilha.PageSize = 50

'Definimos em qual pagina o visitante está
if Request.QueryString("pagina") = "" then
intpagina = 1
elseif cint(Request.QueryString("pagina")) < 1 then
intpagina = 1
elseif cint(Request.QueryString("pagina")) > RsPlanilha.PageCount then
intpagina = RsPlanilha.PageCount
else
intpagina = Request.QueryString("pagina")
end if

end if

RsPlanilha.AbsolutePage = intpagina
intrec = 0

While ((intrec < RsPlanilha.PageSize) and (not RsPlanilha.eof))

RESPONSE.WRITE RsPlanilha("NOME")

RsPlanilha.MoveNext

intrec = intrec + 1

Wend

<tr>
 <td bgcolor="#FCE5E5"></td>
 <td align="center">
 <%
 if intpagina > 1 then
 %>
 <a href="planilha.asp?pagina=<%=intpagina - 1%>">Anterior</a>
 <%
 end if
 if StrComp(intpagina,RsPlanilha.PageCount)<>0 then
 %>
 <a href="planilha.asp?pagina=<%=intpagina + 1%>">Próximo</a>
 <%
 end if
 RsPlanilha.close
 Set RsPlanilha = Nothing
 %>
 </td>
 <td bgcolor="#FCE5E5"></td>
</tr>

Ele está trazendo a primeira página com os 50 registros mas qdo clico em "Próxima" ele vai pra página planilha mas dá o erro:

Microsoft VBScript runtime error '800a01a8'

Object required: 'RsPlanilha'

Como faço para trazer o restante dos registros na próxima página?