Sayfalama Sorunu

Merhaba;
Vt- itiraf scriptini indirdim ve kullanıyorum fakat yaşadığım bir problem var... Scriptin ana sayfasında veri tabanındaki itirafların hepsini listeriyor. Yani veritabanında 100 itiraf kayıtlı ise tümünü tek sayfada gösteriyor. Benim istediğim ana sayfada sadece 10 adet itirafın yayınlanması ve diğer 10 itiraf için ikinci sayfaya geçmesi. her 10 itiraf için sayfa atlaması. Default.asp sayfasındaki ilgili kodları aşağıda belirtiyorum..



<%
Dim StrComPage
Dim StrComName

Session("StrMsg" ) = ""
StrComPage = "1"
StrComName = " Gerekli olan başlık yazılacak"

If Request.QueryString("StrPage" ) = "" Then
Strpage = CInt("1" )
inumber = CInt("1" )
Else
Strpage = CInt(Request.QueryString("StrPage" ))
End If

Set ObjConfess = Createobject("ADODB.Recordset" )

If IsNumeric(Request("mid" )) = False Then
Session("StrMsg" ) = "Case900"
Response.Redirect "itr_message.asp"
Response.End
End If

If Request("mid" ) = "" Then
ObjConfess.Open "Select * From TblConfess Where TxtConfActivation=True Order by ConfessID Desc" , ObjConn , 1 , 3
Else
ObjConfess.Open "Select * From TblConfess Where TxtConfActivation=True And MemberID=" & Request("mid" ) &" Order by ConfessID Desc" , ObjConn , 1 , 3
End If

ObjConfess.pagesize = CInt(10)
ObjConfess.absolutepage = StrPage
pagenumber = ObjConfess.pagecount

StrCountOfObjConfess = ObjConfess.RecordCount
%>

db yolu...
<%
set rsob=server.createobject("Adodb.Recordset")
sql="sql cümleni buraya yazacaksın"
rsob.open sql,db,1,3

sayfala = Request.QueryString("sayfala")
if sayfala="" then
sayfala=1
end if

if rsob.eof or lojik.bof then
response.write "hata son kayıtda geçti "
response.end
end if

rsob.pagesize = 10 'ekranda gösterilecek haber sayısı
rsob.absolutepage = sayfala
sayfa = rsob.pagecount
for i=1 to rsob.pagesize
if rsob.eof then exit for
%>

kayıtlar yazılacak....
<%
rsob.movenext
next
%>

sayfa numaraları:
<%
For i=1 To sayfa
If sayfala=i Then
Response.Write i
Else
Response.Write "<b> <a href=index.asp?sayfala=" &i& ">" &i&"</a></b>"
End If
Next
%>

Genişletmek için tıkla ...

Buna göre ayarlarsın artık kolaygelsin

Ya ben beceremedim.. yada olmuyor ekte fefault.asp yi gönderiyorum bir bakarmıısn? Eğer ilgilenirsen beni sevinirim.