Ciao,per favore potreste darmi una mano per l'impaginazione?
Il mio codiceèil seguente
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 3
'qui c'e' la connessione e la query e apertura recordset
///////////////////////

***********************
Rec_s.open Sql_, conn, 1, 3
///////////////////////

If page = "" then
page = (Rec_s.PageCount)
end if
'imposto la dimensione della pagina
Rec_s.PageSize = perpage
' mi sposto all'ultima pagina
Rec_s.AbsolutePage = page
********************************

><%

For i = 1 to perpage
If Not Rec_s.EOF then
if Rec_s("IdUnivoco") < 3 then
%>
<tr>

<td class="unnamed1"><%=Rec_s("Descrizione")%><br>Via:<%=Rec_s("Via") %>

<td class="unnamed1"><%=Rec_s("telefono") %><br><%if (Rec_s("email") <>"") then%>
<a href=mailto:"<%=Rec_s("email")%>">[E-mail]</a><%end if%></td>
<td class="unnamed1">
</tr><%else%>
<tr>

<td class="unnamed1"><%=Rec_s("Descrizione")%><br>Via:<%=Rec_s("Via") %>

<td class="unnamed1"><%=Rec_s("telefono") %><br><%'if (Rec_s("email") <>"") then%>
<a href=mailto:"<%'=Rec_s("email")%>">[E-mail]</a><%'end if%></td>
<td class="unnamed1">
</tr>
<%
end if
Rec_s.MoveNext
end if
next

%>
<%'scrivo i numeri delle pagine
Response.Write "<P><B>Pagine:</B> "

For pag= 1 to Rec_s.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write "<b>"
Response.Write "<A href='freecell.asp?page=" & pag &"&Text1="& b & "&citta=" & citta
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Response.Write "</b>"
else
'normale per le altre pagine
Response.Write "<A href='freecell.asp?page=" & pag &"&Text1="& b & "&citta=" & citta
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next

Response.Write "</P>"

%>


Purtroppo mi dà il seguente errore
ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/freecell.asp, line 79