Paging recordsets from a database (acess) like Google...

<%
'Remember to set correctly your database location, and the contents as well. There are other
'codes in this site to explain how to show a recordset. I supposed this step we can foward...
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
Dim TotalPages, NumPerPage, CurrentPage, Number
Dim strQuery, ObjRs, Count
'Defines the inicial Value as "5"
If request("NumPerPage") <> 0 then NumPerPage = Int(request("NumPerPage")) else NumPerPage = 5
strQuery = "SELECT * FROM TableName order by data desc"
Set ObjRs = Server.CreateObject("ADODB.Recordset")
		
If Request.QueryString("page") = "" then
 CurrentPage = 1 'We're on the first page
Else
 CurrentPage = CInt(Request.QueryString("page"))
End If
objRS.Open strQuery, objConn, 1, 1 'Opened as Read-Only
Number = objRS.RecordCount
If Not objRS.EOF Then
 	objRS.MoveFirst
	objRS.PageSize = NumPerPage
 TotalPages = objRS.PageCount
 objRS.AbsolutePage = CurrentPage
End If
Dim ScriptName
ScriptName = request.servervariables("ScriptName")
%>
 
 
<%
While Not objRS.EOF and Count < objRS.PageSize
count = count + 1
%>
Put here your RecordSet Display (usually a table with the ASP code together)
<%
objRS.MoveNext
Wend
objRs.close
Set objRs = Nothing
%>
<%
'Print the recent Data
response.write "Showing page <b>" & CurrentPage & "</b> of <b>" & TotalPages & "</b>: Total of <b>" & Number & "</b> written posts..."
%>
<%
'Creating the paging numbers
Dim ini, fim, a
'Display PREV page link, if appropriate
If Not CurrentPage = 1 Then
	Response.Write "&lt;a href='" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=" & CurrentPage - 1 & "'><font size=1 face=Verdana><b>..</b></font>&lt;/a>&nbsp;&nbsp;"
if CurrentPage > 5 and TotalPages > 10 then
 Response.write("&lt;a href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=1><font size=1 face=Verdana><b>1</b></font>&lt;/a>" & "<font size=1 face=Verdana><b>&nbsp;...&nbsp;</b> </font>" )
end if
if TotalPages > 10 then
	
	if CurrentPage > 5 then
		if TotalPages > (CurrentPage + 5) then
			ini = (CurrentPage - 4)
			fim = (CurrentPage + 5)
		else
			ini = (TotalPages - 9)
			fim = TotalPages
		end if 
	else
		ini = 1
		fim = 10
	end if
	
else
ini=1
fim = TotalPages
end if
For a = ini to fim
 If a = Cint(request("page")) then
 Response.write( "<font face=Verdana color=#FF0000 size=3><b>" & a & "</b></font>&nbsp;&nbsp;")
 Else
 Response.write("&lt;a href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=" & a &"><font size=1 face=Verdana><b>" & a & "</b></font>&lt;/a>" & "&nbsp;&nbsp;" )
 End if
Next
Else
	if TotalPages = 1 then 
			Response.write ""
		Else
			Response.Write "<font face=Verdana color=#FF0000 size=3><b>1</b></font>&nbsp;&nbsp;"
	End if
	if TotalPages > 10 then
	fim = 10
	else
	fim = TotalPages
	end if
	For a = 2 to fim
 If a = Cint(request("page")) then
 Response.write( "<font face=Verdana color=#FF0000 size=3><b>" & a & "</b></font>&nbsp;&nbsp;")
 Else
 Response.write("&lt;a href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=" & a &"><font size=1 face=Verdana><b>" & a & "</b></font>&lt;/a>" & "&nbsp;&nbsp;" )
 End if
Next
End If
if CurrentPage < TotalPages - 5 and TotalPages > 10 then
 Response.write("<font size=1 face=Verdana><b>...&nbsp;</b></font>&lt;a href=" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=" & TotalPages &"><font size=1 face=Verdana><b>" & TotalPages & "</b></font>&lt;/a>" & "&nbsp;&nbsp;" )
end if
'Display NEXT page link, if appropriate
If Not CurrentPage = TotalPages Then
	Response.Write "&lt;a href='" & ScriptName & "?NumPerPage=" & NumPerPage & "&page=" & CurrentPage + 1 & "'><font size=1 face=Verdana><b>..</b></font>&lt;/a>"
Else
	Response.Write ""
End If
%>