Ciao sto cercando di paginare i dati prelevati da un DB2 su una macchina AS400, ma mi da degli strani errori :

Questa è la pagina completa

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
On Error Resume Next
x = 0
page = Request.QueryString("page")
perpage = 30
strConn = "Provider=IBMDA400;Data source=AS400;User Id=userName;Password=password"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

Set objRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open "SELECT * FROM COSNET.TABAR01", objConn,1,3

If page = "" Then
  page = ObjRS.PageCount
End If
ObjRS.PageSize = perpage
ObjRS.AbsolutePage = page
%>
<html>
<head>
<title>Pagina di Prova Lettura DB2</title>
<link href="../CSS/layout.css" rel="stylesheet" type="text/css">
</head>
<body>
<table>
<%
For i = 1 to perpage
  If Not ObjRS.EOF Then
      Response.Write("<tr>")
	  Response.Write("<td><span class='grassetto'>" & ObjRS("T01BKG_REF") & "</span></td></tr>")
    ObjRS.Movenext
  Else
      Response.Write("Non sono stati trovati records")
	  Response.End()
  End If
Next
    Response.Write "<tr><td>Pagine : "
	For pag = 1 to ObjRS.PageCount
	  If page = pag Then
	    Response.Write "Page = pag</td></tr>"
		Response.Write("" & pag & "</td></tr>")
		Response.Write("Page: " & "   " & page)
		Response.Write("Pag: " & "   " & pag)
	  Else
		Response.Write("Page: " & "   " & page)
		Response.Write("Pag: " & "   " & pag)
		Response.Write("" & pag & "</td></tr>")
	    Response.Write "Page <> pag</td></tr>"
	  End If
	Next
	Response.Write("Page: " & "   " & page)
	Response.Write("Pag: " & "   " & pag)
	Response.Write("PageCount: " & "   " & ObjRS.PageCount)
	Response.Write("PageSize: " & "   " & ObjRS.PageSize)
	Response.Write("Absolute: " & "   " & ObjRS.AbsolutePage)
%>
</table>
</body>
</html>
<%
ObjRS.Close
Set ObjRS = Nothing
ObjConn.CLose
Set ObjConn = Nothing
If err.number <> 0 Then
   response.write err.number
   response.write err.description
End If
%>
In questo modo mi risponde che non sono stati trovati records ...

Se invece cambio questa riga

codice:
If page = "" Then
  page = ObjRS.PageCount
End If

In questo modo vedo i primi 30 records, ma non vedo le pagine successive If page = "" Then
  page = 1 
End If
Infine se chiamo la pagina come DB2?page=3, i record li vedo.

Inoltre nel loop, ObjRS.PageCount mi risponde sempre 0