La paginazione mi da un errore!

[Shryne]

Ciao a tutti!
Come da titolo, questo è il codice:

<%
		page = Request.QueryString("pagina")
		perpage = 10
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open(strCon)
		id = Request.QueryString("id")
		Set rsGb = Server.CreateObject("ADODB.Recordset")
		SQL = "select * from TB_GB order by ID_GB desc"
		Set rsGb = Conn.Execute(SQL)
		if not rsGb.EOF then
		If page = 0 then
		page = int(rsGb.PageCount)
		end if
		rsGb.PageSize = perpage
		
		for i=1 to rsGb.pageCount
		response.write "<a href='gb.asp?pag=" & i & ">" & i & "</a> "
		next

%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="33%" class="testo"><div align="center">Firma il guestbook</div></td>
  </tr>
</table>


<%
	TotRs = rsGb.RecordCount
%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%" class="testo"><div align="center">Ci sono <%=TotRs%> messaggi nel guestbook.</div></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<%
		rsGb.absolutePage = page
		For i = 1 to perpage
%>
  <tr bgcolor="#FFCC00">
    <td width="50%" class="testo">Data e ora: <%=rsGb("DATA_GB")%></td>
    <td width="50%" class="testo">Autore: "><%=rsGb("AUTORE_GB")%></td>
  </tr>
  <tr>
    <td colspan="2" class="testo"><%=rsGb("MSG_GB")%></td>
  </tr>
  <tr bgcolor="#CC3300">
    <td colspan="2" class="testo">[img]/images/pixel.gif[/img]</td>
  </tr>



	<%
		rsGb.MoveNext
		Next
	%>
</table>
<%
else
%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%" class="testo"><div align="center">Non ci sono messaggi sul guestbook.</div></td>
  </tr>
</table>
<%
end if

For pag= 1 to rsGb.PageCount
if page = pag then
Response.Write "<P class='testo'>Pagine:"
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='gb.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='gb.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if
Next 

Response.Write "</P>" 

	rsGb.Close
	Set rsGb = Nothing
	Conn.Close
	Set Conn = Nothing
	
end select
	%>

questo script mi da quest errore

ADODB.Recordset (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/gb.asp, line 123

che cosa sbaglio?

[weppos]

VUol dire che stai cercando di eseguire una azione su un record inesistente.

Controlla che il recordset non sia vuoto (.EOF).

[Shryne]

No il recordset non è vuoto ed il controllo nel codice c'è!

[Shryne]

Qualcuno può aiutarmi?

[santino83]

qual'è la linea che da errore?

[weppos]

Originariamente inviato da Shryne
No il recordset non è vuoto ed il controllo nel codice c'è!

Non c'è o non darebbe l'errore.
Il controllo va fatto prima di eseguire un record ad ogni ciclo.

Se il DB ha 5 record e tu conti di paginarne 10 per volta al 6 ciclo verrà generato errore.

[Shryne]

L'errore lo da su

rsGb.absolutepage = page

E quindi come dovrei metterlo il controllo che non ho capito più di tanto?

[santino83]

hai provato a mettere page = int(Request.QueryString("pagina"))?

[Shryne]

Si ma stessa musica...

[santino83]

metti un response.write (page) e un response.end() subito prima dell'errore

che senso ha questa

If page = 0 then
		page = int(rsGb.PageCount)
		end if

come fai a richiamre la proprietà pageCount se prima non setti il pagesize?