Paginazione

[isteriko]

Raga scusate devo fare la paginazione di questa query..

strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " &_
Server.MapPath("/mdb-database/database.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open StrConn, 1

SQL = "SELECT * FROM Users order by nome desc"

Set rs = Server.CreateObject("ADODB.Recordset")

RecordsPerPagina = 5
page = Request("page")
if page="" then page=1

Rs.Open SQL, Conn

RS.PageSize = RecordsPerPagina
RS.AbsolutePage = page

If RS.Eof=True or RS.Bof=True then
Response.Write "

Nessun risultato trovato</P>"

Else

For i=1 to RecordsPerPagina
Do until rs.eof

qualcosa = rs("qualcosa")
Nick = rs("Userid")
Foto = rs("foto")
data = rs("dataiscrizione")


%>
<tr> <td align=left> <a href="javascript: Popup('zoomutente.asp?nick=<%=nick%>');">
<%

if foto = "" or isnull(foto) then
response.write("<img src=http://www.progettolele.com/immagini/nofoto.gif border=0> </a>")
else
response.write("<img src=http://www.progettolele.com/public/" & foto & " border=0 width=90 height=70> </a>")
end if

response.write("<td align=center><font face=tahoma size=1 color=black>" & nick & "</font>
")
response.write("<font face=tahoma size=1 color=black>" & qualcosa & "</font></td></tr>")

rs.movenext

Loop

next



%> </table> <%

end if

Response.Write "

Pagine: "
For pag=1 to objRS.PageCount
Response.Write "<A href= 'Paginazione.asp? page=" & pag & "'>"
Response.Write pag
Response.Write "</A> "
Next


' Libero risorse
rs.Close
set rs = Nothing

conn.Close
Set conn = Nothing



mi restituisce questo errore

Microsoft JET Database Engine error '80040e4d'
Cannot start your application. The workgroup information file is missing or opened exclusively by another user.

/foto.asp, line 161

la riga 161 sarebbe quella dell'apertura della connessione
conn.Open StrConn,1

se invece utilizzo questa stringa
conn.Open StrConn

mi da il seguente errore
ADODB.Recordset error '800a0cb3'
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

/foto.asp, line 174
la riga 174 è la seguente
RS.AbsolutePage = page

Mi sapreste aiutare pls???

[isteriko]

raga pls aiutatemi!!!!!

[kalosjo]

La connessione aprila normale

conn.Open StrConn

Il recordset così:

Rs.Open SQL, Conn, 3, 3

[isteriko]

senti ora la connessione pare che funzioni ma mi da un'errore al questa stringa
For pag=1 to objRS.PageCount
dicendomi Microsoft VBScript runtime error '800a01a8'

Object required: ''

/foto.asp, line 217
e cmq mi visualizza tutti i record

[isteriko]

ops ragazzi allora ho risolto per quanto riguarda l'errore su quella riga avevo sbagliato il nome del recordset ... il fatto è che cmq la paginazione non funziona e mi visualizza sempre tutti i record trovati all'interno della stessa pagina...

cosa strana è che cmq mi inserisce un numero di pagine corretto in basso...

[kalosjo]

Certo, perchè dentro l'if, fai comunque il loop per l'intero recordset!!!

Invece non devi fare il loop:

if not rs.eof then
  For i=1 to RecordsPerPagina 

    qualcosa = rs("qualcosa") 
    Nick = rs("Userid") 
    Foto = rs("foto") 
    data = rs("dataiscrizione") 


%> 
<tr> <td align=left> <a href="javascript: Popup('zoomutente.asp?nick=<%=nick%>');"> 
<% 

    if foto = "" or isnull(foto) then 
      response.write("<img src=http://www.progettolele.com/immagini/nofoto.gif border=0> </a>") 
    else 
      response.write("<img src=http://www.progettolele.com/public/" & foto & " border=0 width=90 height=70> </a>") 
    end if 

    response.write("<td align=center><font face=tahoma size=1 color=black>" & nick & "</font>
") 
    response.write("<font face=tahoma size=1 color=black>" & qualcosa & "</font></td></tr>") 

    rs.movenext 
    if rs.eof then exit for

  next 

end if

[isteriko]

ok funziona grandissimo ... ti ringrazio