problema paginazione

[digitalgfx]

ragazzi sto impazzendo per riuscire a paginare questo codice che vi posto.


sareste cosi gentili da indicarmi un metodo semplice per impaginare ??

grazie e da giorni che ci provo ma non riesco, anche studuandomi i vari post del forum.


<td width="100%" valign="top">
<%
Dim Path
'Percorso del database
Path="mdb-database/"
%>
<script language="JavaScript1.2">
{
function download(loc) {

window.open(loc,'Video','width=400,height=100');

}
}
</script>
<%
Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"download.mdb")
Dim SQLDown,RECDown
SQLDown="select * from DOWNLOAD order by descrizione"
Set RECDown=ConnDown.Execute(SQLDown)%>
<table width="538" border="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111">
<%
While Not RECDown.EOF
%>
<tr>
<td width="532" colspan="2"><hr color="#C0C0C0" size="1"></td>
</tr>
<tr>
<td width="426"><a class="menu" href="javascript:download('popdown.asp?cod=<%=RECD own("COD")%>&path=<%=path%>');">[img]images/<%=RECDown([/img]" />
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FF0000">File: <%=RECDown("NOME")%>
</font></a>
<font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="2">Autore: <%=RECDown("Autore")%>
Descrizione: <%=RECDown("Descrizione")%>
Dimensione: <%=RECDown("Dimensione")%></font>

</td>
<td width="100">
<div align="right"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="2">Scaricato n°:<%=RECDown("HIT")%></font></div>
</td>
</tr>
<%
RECDown.MoveNext
WEnd
RECDown.Close
ConnDown.Close
Set RECDown = Nothing
Set ConnDown = Nothing
%>
<tr>
<td width="426"></td>
<td width="100">

</td>

[ober]

Cioè qual'è il problema di preciso?

[digitalgfx]

ti spiego questo codice prende i records dal database li vusilizza a video e conta quante volte il file viene scaricato.
pero' ho molti file e quindi si crea un elenco lunghissimo.

vorrei paginarli in modo che per es. al 20 file del database si crei una seconda pagina che includa i secondi 20 records e cosi via.

ho provato e studiato vari post.
ma non sono reiuscito.
potrestri aiutarmi??

grazie

[ober]

Originariamente inviato da digitalgfx
ti spiego questo codice prende i records dal database li vusilizza a video e conta quante volte il file viene scaricato.
pero' ho molti file e quindi si crea un elenco lunghissimo.

vorrei paginarli in modo che per es. al 20 file del database si crei una seconda pagina che includa i secondi 20 records e cosi via.

ho provato e studiato vari post.
ma non sono reiuscito.
potrestri aiutarmi??

grazie

Ti Faccio un esempio al volo:

Dim Conn
    Conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database.mdb")

Dim SQL
    SQL = "SELECT * FROM Categorie"

Dim RS
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = 20

RS.Open SQL, Conn, 1, 3

Dim I

For I = 1 to RS.PageSize
  If Not RS.WOF then
    Response.Write RS("Prodotto")
  Else
  End If
  RS.MoveNext
Next

Spero che tu abbia capito il funzionamento...

Altra cosa...

RS.AbsolutePage = Nr. Pagina Corrente
RS.PageCount = Nr. Totale Pagine
RS.RecordCount = Nr. Totale Records

[digitalgfx]

si ho capito il funzionamento ma quando inserisco questo codice modificandolo nel codice mio mi crea errore. sicuramente sbaglio ad adattare il codice alla pagina.

[digitalgfx]

ti posto il codice con un inserimento di paginazione che ho provato ad esefuire ma che mi da errore.

puoi dirmi dove sbaglio?


<%
Dim Path
'Percorso del database
Path="mdb-database/"
%>
<script language="JavaScript1.2">
{
function download(loc) {

window.open(loc,'Video','width=400,height=100');

}
}
</script>
<%
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1

' STRINGA SQL
strRicerca = Request("ricerca")


'apri recordset
' paginazione
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
if Not rs.EOF then
'mostra record
rs.MoveNext
end if
Next
End if



Dim ConnDown
Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"download.mdb")
Dim SQLDown,RECDown
SQLDown="select * from DOWNLOAD order by descrizione" '%" & strRicerca & "%'"
Set RECDown=ConnDown.Execute(SQLDown)



%>
<table width="538" border="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111">
<%
While Not RECDown.EOF
%>
<tr>
<td width="532" colspan="2"><hr color="#C0C0C0" size="1"></td>
</tr>
<tr>
<td width="426"><a class="menu" href="javascript:download('popdown.asp?cod=<%=RECD own("COD")%>&path=<%=path%>');">[img]images/<%=RECDown([/img]" />
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FF0000">File: <%=RECDown("NOME")%>
</font></a>
<font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="2">Autore: <%=RECDown("Autore")%>
Descrizione: <%=RECDown("Descrizione")%>
Dimensione: <%=RECDown("Dimensione")%></font>

</td>
<td width="100">
<div align="right"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif" size="2">Scaricato n°:<%=RECDown("HIT")%></font></div>
</td>
</tr>
<%
RECDown.MoveNext
WEnd
RECDown.Close
ConnDown.Close
Set RECDown = Nothing
Set ConnDown = Nothing
%>
<tr>
<td width="426"></td>
<td width="100">

</td>
</tr>
</table>



<p class="presentazione1"></p>
<p align="center">
</td>
</tr>
</table>


<table border="0" width="100%" id="AutoNumber4">
<tr>
<td width="100%">
</td>
</tr>
</table>

</TD>
</tr>
</table>
</div>

<%
Response.Write "

Pagine: "
For pag=1 to rs.PageCount
Response.Write "<A href='pagina.asp?page=" & pag
Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"%>
</body>

[ober]

Ma dov'è che apri il recordset?

[ober]

Altra cosa... quando posti del codice, mettilo...

QUI

...altrimenti non si capisce niente...

[digitalgfx]

ok ma non ho capito dove sbaglio mi puoi indicare l'errore e come correggerlo?

[ober]

Originariamente inviato da digitalgfx
ok ma non ho capito dove sbaglio mi puoi indicare l'errore e come correggerlo?

Diciamo che questa pagina è mooolto incasinata, comunque:

1) Apri la connessione a database
2) Specifichi la query SQL
3) Apri il recordset
4) Stampi i record a schermo

...la sequenza deve essere questa...