errore pagesize

[piccolobill]

<%
'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 10

'connessione al db
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_ 
"DBQ="& Server.MapPath("/mdb-database/auriga.mdb") 

Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT forum.*, iscritti.* FROM iscritti INNER JOIN forum ON iscritti.[email]=forum.[email] WHERE forum.[id madre]=No ORDER BY id"
Rs.Open sql, Conn, 1, 3

'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (rs.PageCount)
End if

'imposto la dimensione della pagina
Rs.PageSize = perpage
' mi sposto all'ultima pagina
Rs.AbsolutePage = page 

'scrivo i link ai 10 record
For i = 1 to perpage
If Not Rs.EOF then 
if Rs("id") < 10 then
Response.Write ("

" & Rs("Titolo") & " - Autore: "& Rs("Nome") & " " & Rs("Cognome") &" - N° visite:"& Rs("visite") &"</p>")
else
Response.Write ("

" & Rs("Titolo") & " - Autore: "& Rs("Nome") & " " & Rs("Cognome") &" - N° visite:"& Rs("visite") &"</p>")
end if
Rs.MoveNext 
end if 
next

'scrivo i numeri delle pagine
Response.Write "

Pagine: "

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

Response.Write "</P>" 

'chiudo la connessione
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

l'errore che mi da è

ADODB.Recordset error '800a0bb9'

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

/sito2/forum.asp, line 156

la linea 156 è

Rs.AbsolutePage = page

come mai?

[piccolobill]

nessuno sa il perchè?

[ZofM]

Prova con un:
Rs.AbsolutePage = cInt(page)

E' un ipotesi .. AbsolutePage si aspetta un valore Int e tu gli passi un Variant con dentro, sembrerebbe, una stringa (dal Request.QueryString.. la riga If page = "" then page = (rs.PageCount) non viene sempre eseguita..)

Fammi sapere

[piccolobill]

stesso errore.

[vaargard]

dopo il recupero dei dati setta page=1 e prova, se non ti va in errore è perchè la querystring non funziona ...

[piccolobill]

era la query

[vaargard]

ehehehhehehe ...