impaginare record

[ghis]

Buonasera,
sto cercando di paginare i record ma cliccando su next o sui numeri 1,2,3 mi da questo errore
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/elenco_articoli.asp, line 449

Lo script è questo:

<% 'Estrazione pagina corrente
If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("page"))
End If%>

******database*******
<%if len(Session("aperta")) > 0 then
idlineadicatalogo = Request.QueryString("idlineadicatalogo")
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\mdb-database\webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
If Len(idlineadicatalogo) = 0 Then%>
<%Else%>
<%
Dim sqlquery
sqlquery = "select  *  FROM [Catalogo, Articoli]  WHERE IDLinea = " & idlineadicatalogo & " AND InVendita=true"

Dim RecordsetArticoli
Set RecordsetArticoli = DatabaseWebStore.Execute(sqlquery)
%>
	<%iPageSize = 2 'NUMERO RECORD PER PAGINA
				
				
				Set RecordsetArticoli = Server.CreateObject("ADODB.Recordset")
			
				RecordsetArticoli.PageSize = iPageSize
				RecordsetArticoli.CacheSize = iPageSize
				RecordsetArticoli.Open sqlquery, DatabaseWebStore, adOpenStatic, adLockReadOnly, adCmdText
				
				recCount = RecordsetArticoli.RecordCount
				iPageCount = RecordsetArticoli.PageCount
				

				If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
				If iPageCurrent < 1 Then iPageCurrent = 1	
					
				If iPageCount = 0 Then
				Else
					RecordsetArticoli.AbsolutePage = iPageCurrent
					iRecordsShown = 0
					
					
					
					
				End If
				%>

<%If RecordsetArticoli.EOF Then%>
<%Else%>


*************************************
<%Do While iRecordsShown < iPageSize And Not RecordsetArticoli.EOF
			ID = RecordsetArticoli("ID")
					Codice = RecordsetArticoli("Codice")
					Denominazione = RecordsetArticoli("Denominazione")
					Informazioni = RecordsetArticoli("Informazioni")
					InformazioniEstese = RecordsetArticoli("InformazioniEstese")
					Confezione = RecordsetArticoli("Confezione")
					Prezzo = RecordsetArticoli("Prezzo")
					RiferimentoDiIcona = RecordsetArticoli("RiferimentoDiIcona")
					RiferimentoDiFoto = RecordsetArticoli("RiferimentoDiFoto")
%>

<%iRecordsShown = iRecordsShown + 1
RecordsetArticoli.MoveNext
Loop
%>
</TABLE>
  </center>
</div>
<%End If%>
<%End If%>

					

<% If iPageCount <> 1 Then %>
	<table align="center">
	<tr>
	<td width="100%" align="center" valign="middle"><font face="verdana" size="1" color="#000000">
	<%If iPageCurrent-2 > 0 And iPageCurrent > 2 Then %>
		 | Prima | 								
	<% End If %>	
	
	<% If iPageCurrent > 1 Then %>
		 | Previous | 
	<%end if %>							
	
	<% If iPageCount > 2 then
		if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
		if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
	Else
		da_pag = 1
		fino_a_pag = iPageCount
	end if %>
	
	<%for i = da_pag to fino_a_pag %>
		<%if i = iPageCurrent then %>
			 <font color="red"><%=i%></font> 
		<% else %>	
			 <%=i%> 
		<%end if %>	
	<% next %>
	
	<%if iPageCurrent > 0 and iPageCurrent < iPageCount then %>
		 | Next | 
	<%end if %>	
	
	<%if iPageCurrent+1 < iPageCount then %>
		 | <A href=elenco_articoli.asp?<%=idlineadicatalogo%>&page=<%=iPageCount%>">Ultima</A> 
	<%end if %>	
	</font>
	</td>
	</tr>
	<tr>
	<td colspan="2" align="center">
	<font face="verdana" size="1" color="#000000">
	Pagina 
	<font color="#FF0000"><%=iPageCurrent%></font>
	 di 
	<font color="#FF0000"><%=iPageCount%></font>
	</font>
	</td>
	</tr>
	</table>
<% end if %>
<%
RecordsetArticoli.Close
Set RecordsetArticoli = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
else%> <H4> La sessione è scaduta. Torna all'Home Page</H4>
<%end if
%>

L'errore equivale alla scritta in rosso.
Grazie

[br1]

hai toppato forum... ti sposto