Come ti passi questo valore?

Request("page")

ciao vai a:http://www.amicopc.com/asp/guest.asp

leggi la parte che riguarda il file leggi.asp .
lo gia usato io e funziona ciao

allora dopo vari tentativi ..... il pc inizia a farmi il ghigno .... .|. <---- per chi non avesse capito... :)
Ho riscritto passo passo quel codice che m'hai passato tu bellanz80 http://www.amicopc.com/asp/guest.asp
ma l'amico pc mi fa il ghigno .... la risposta del server è:
DODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/oggetti/messaggi.asp, line 46

Ora qualcuno di voi è in grado di dirmi qualcosa?

iPageSize = 10
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If
Dim Conn2
Set Conn2=Server.CreateObject("ADODB.Connection")
Conn2.Open " Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& Server.MapPath(""&datab&"")
Dim Rs2
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.Open " SELECT * FROM messaggi WHERE user_nick='"&nick&"' order by '"&strOrderBy&"' Desc" , Conn2 ,adOpenKeyset

Rs2.PageSize = iPageSize
Rs2.CacheSize = iPageSize
iPageCount = Rs2.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write("<p align center><font face=?verdana? size=?2?>Nessuno ha ancora firmato il mio Libro degli Ospiti. <br>Che ne diresti di essere tu il primo?</font></p>")

Else

Rs2.AbsolutePage = iPageCurrent

%>
<tr>
<td height="100" width="10" ></td>
<td height="100" width="100" bgcolor="<%=bgcolor%>"><!--#include virtual="oggetti/oggettioggetti/messaggi_sinistra.asp"--></td>
<td height="100" width="290" bgcolor="<%=bgcolor%>"><!--#include virtual="oggetti/oggettioggetti/messaggi_destra.asp"--></td>
<td height="100" width="10"></td>
</tr>
<%
iRecordsShown = iRecordsShown + 1
Rs2.MoveNext
Loop
End If
Rs2.Close
Set Rs2 = Nothing
Conn2.Close

%>

------------------------------------
queste sono le righe che fan si che il mio pc faccia il ghigno:)
Rs2.PageSize = iPageSize
Rs2.CacheSize = iPageSize
iPageCount = Rs2.PageCount

---

Modificato da Maiden2 il 01 aprile 2004 09.33 -