Ciao a tutti ho realizzato uno script per impaginare i record di un database, devono essere suddivisi in pagine (per esempio 10 record per ogni pagina). Ho usato il codice seguente:
<%
sql="select * from tabella"
Set Rec = Server.CreateObject ("ADODB.Recordset")
Rec.PageSize = Record_Pagina
Rec.Open sql, Conn, 3, 3
Pag = CInt(Request.Querystring("pag"))
If (Not Rec.Eof) Then
If Pag>Rec.PageCount Then
Pag = Rec.PageCount
End If
If Pag = 0 Then
Pag = 1
End If
Rec.AbsolutePage = Pag
indice_inizio = pag-(Numerazione_Max/2)
If (indice_inizio>(Rec.PageCount-Numerazione_Max)) Then
indice_inizio = Rec.PageCount-Numerazione_Max+1
End If
If (indice_inizio<=0) Then
indice_inizio = 1
End if
indice_fine=indice_inizio+Numerazione_Max-1
If (indice_fine>Rec.PageCount) Then
indice_fine = Rec.PageCount
End If
Link = "Precedente "
If (indice_inizio<>1) Then
Link=Link&"<a href=""?pag="&(indice_inizio-1)&"&t="&t&"&o="&o&"&iscr="&iscr&""">... "
End If
For i=indice_inizio to indice_fine
If (i=pag) then
Link = Link&"<font color=#ff0000> "&i&"</font> "
Else
Link = Link&"<a href=""?pag="&i&"&t="&t&"&o="&o&"&iscr="&iscr&"""> "&i&""
End If
Next
If (indice_fine<Rec.PageCount-1) Then
Link = Link&"<a href=""?pag="&(indice_fine+1)&"&t="&t&"&o="&o&"&is cr="&iscr&""">... "
End If
Link=Link&"<a href=""?pag="&Rec.PageCount&"&t="&t&"&o="&o&"&iscr ="&iscr&""">Successiva "
End If
%>
Però ho il seguente errore:
ADODB.Recordset error '800a0bb9'
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
La riga che mi da errore è: Rec.AbsolutePage = Pag
Sapete aiutarmi? (se può servire utilizzo un db MySql)
Rispondi quotando
