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

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

codice:
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?