problema impaginazione multipla

[digitalgfx]

salve ragazzi vi posto il codice di una mia pagina asp e vi spiego il problema.

con questa pagina estraggo i relativi valori dai relativi campi e li visualizzo a video.

il problema e' questo:

non riesco a realizzare una procedura che permetta di visualizzare i primi 40 records e che poi crei una seconda pagina in cui visualizza i 40 successivi.

cosi come la faccio io i records sono tutti uno sotto l'altro, e quindi la pagina e' molto lunga.

potete aiutarmi? grazie




<%
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="400"><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="126">
<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
%>

[digitalgfx]

nessuno sa aiutarmi?

[saucer]

cerca sul forum la parola "paginazione" e vedrai tanti bei risultati.

Quello che ci hai mostrato, e' una query che prende tutti i valori e li restituisce a video in un grande elenco e quindi non c'e' proprio il minimo segno di una paginazione.

Se non riesci col forum di Html.it ti suggerisco Google.

E' un argomento molto comune

[digitalgfx]

ho fatto un po di ricerche e trovato varie soluzioni vi posto una di esse che pero' unita al mio codice postato sopra mi da errore mi dite dove sbaglio?
grazie


codice di paginazione



<% Dim DBConn
Set DBConn=Server.CreateObject("ADODB.Connection")
DBConn.Open "download"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
strSQL = "SELECT * FROM download"
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = page
If objRS.Eof=True or objRS.Bof=True then
Response.Write "

Nessun risultato trovato</P>"
Else
Response.Write ("<center><table border=1><tr>
<th>Nome Prodotto</th><th>Tipo Prodotto</th>
<th>Colore</th></tr>")
For i=1 to RecordsPerPagina
if Not objRS.EOF then
Response.Write("<tr><td>“ & objRS("cod") & "</td>")
Response.Write("<td>" & objRS("nome") & "</td>")
Response.Write("<td>" & objRS("file") & "</td>")
Response.Write("<td>" & objRS("descrizione") & "</td>")
Response.Write("<td>" & objRS("hit") & "</td>")
Response.Write("<td>" & objRS("autore") & "</td>")
Response.Write("<td>" & objRS("immagine") & "</td>")
Response.Write("<td>" & objRS("dimensione") & "</td></tr>")



objRS.MoveNext
end if
Next
Response.Write ("</table></center>")
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
Response.Write "</P>"
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>

[digitalgfx]

sicuramente avro' fatto qualche cavolata ma e' la prima volta che provo ad impaginare.

vi posto il nuovo codice che non funciona mi dite dove sbaglio?

non tenete conto di quello di sopra. nel punto modifica paginazione ho inserito il codeice di paginazione che non va.



<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)


' modifica paginazione

set rs=server.CreateObject("ADODB.recordset")
rs.Open strSQL, objConn, 3,3

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

Response.Write "

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

%>
<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="400"><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="126">
<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="400"></td>
<td width="126">

</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>

</body>

</html>