paginazione record

[ghis]

Ci sono quasi riuscito ad impaginare sti record.
Mi succede una cosa.
La pagina mi si apre e sotto mi appare 1,2,3 next ultima e fin qui tutto bene.
Quando clicco su uno di questi link mi dice:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
ed invece di andare nella pagina elenco_articoli.asp?idlineadicatalogo.asp....&page mi appare elenco.articoli.asp?3&page2

Mi aiutate a risolvere, vi posto la parte dello script

<% '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
%>

[ghis]

mi aiutate mi ci sto spaccando la testa

[Swinub]

Ogni errore è indicato a una linea
evidenza la data linea errata in rosso, sennò dubito che qualcuno avrà testa di spaccarsi i cosiddetti nell'esaminare lo script

[ghis]

ok.
l'errore me lo da all'inizio della chiusura del database
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/elenco_articoli.asp, line 448

qui

<%
RecordsetArticoli.Close
Set RecordsetArticoli = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
else%>

[Swinub]

Originariamente inviato da ghis
ok.
l'errore me lo da all'inizio della chiusura del database
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/elenco_articoli.asp, line 448

qui

<%
RecordsetArticoli.Close
Set RecordsetArticoli = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
else%>

prova così...

<%
Set RecordsetArticoli = Nothing
Set DatabaseWebStore = Nothing
else%>

Mi era già capitato in precedenza. Ho intuito che si trattava di una sorta di "doppia-chiusura". Quindi da così dovrebbe funzionare.

[ghis]

ok grazie.
così infatti non ho più l'errore ma la pagina è bianca...
mi appare solo -Pagina 1 di -
L'ultimo aiuto