Paginar lo paginado

[carlostapi]

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/cn.asp" -->
<%
Dim Rsm
Dim Rsm_numRows

Set Rsm = Server.CreateObject("ADODB.Recordset")
Rsm.ActiveConnection = MM_cn_STRING
Rsm.Source = "SELECT distinct datediff(m,creation_time, getdate()) as uno, right(convert(char(10), creation_time, 103), 7) as dos FROM table_case ORDER BY datediff(m,creation_time, getdate())"
Rsm.CursorType = 0
Rsm.CursorLocation = 2
Rsm.LockType = 1
Rsm.Open()

Rsm_numRows = 0
%>
<%
select_nivel=request.form("Select_nivel")
response.write "select_nivel" & select_nivel & "<br>"
if select_nivel=0 then
select_nivel=0
else
select_nivel=cint(select_nivel)
end if

id_caso = request.Form("textfield")
if id_caso="" then
id_caso=0
else
id_caso=cint(id_caso)
end if


Dim Rs1
Dim Rs1_numRows

Set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.ActiveConnection = MM_cn_STRING
if id_caso>=1 then
Rs1.Source = "SELECT title,convert(Int,table_case.id_number)as id_number FROM dbo.table_case where id_number = " & Cint(id_caso)& " order by id_number"
id_caso=0
else
Rs1.Source = "SELECT title,convert(Int,table_case.id_number)as id_number FROM dbo.table_case where datediff(m,creation_time, getdate()) ="& select_nivel '& " order by id_number"
response.write "SELECT title,convert(Int,table_case.id_number)as id_number FROM dbo.table_case where datediff(m,creation_time, getdate()) ="& select_nivel '& " order by id_number"
end if
'Rs1.Source = "SELECT title, id_number, creation_time FROM dbo.table_case where id_number = " & cint(id_caso)& " order by id_number"
Rs1.CursorType = 0
Rs1.CursorLocation = 2
Rs1.LockType = 1
Rs1.Open()