impaginare dati

[pablomare]

Ciao, devo impaginare i risultati di una tabella.
Il codice seguente me li fa stampare.
Però se ne volessi 15 per pagina...?

CODICE----------------------------------------------------------------

<%
id = request("id")
Set Conn= Server.CreateObject("Adodb.connection")
Conn.Open "provider=microsoft.jet.oledb.4.0; data source="& Server.MapPath("asp/db/offerte.mdb")
sql =" select * from prodotti ORDER BY prezzo ASC "
set rs = conn.execute(sql)
%>
<%
While NOT rs.EOF
%>
<table width="560" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="5" ></td>
</tr>
<tr>
<td colspan="5" >[img]../img/icn/pixel.gif[/img] <%= rs("linea") %></td>
</tr>
<tr>
<td colspan="5" class="tdDottet"></td>
</tr>
<tr bgcolor="#f7f7f7" onMouseOver="style.backgroundColor='#ffffff'" onMouseout="style.backgroundColor=''">
<td width="1%" >[img]<%= rs([/img]" alt="" width="90" height="50" hspace="0" vspace="0" border="0" /></td>
<td width="98" class="tdOffer"><%= rs("prodotto") %></td>
<td width="150" valign="middle" class="tdOffer"><%= rs("descrizione") %></td>
<td width="57" valign="middle" class="tdOffer"><%= rs("durata") %></td>
<td width="95" valign="middle" class="tdOffer">
<div align="center">">€ <%= rs("prezzo") %>,00</div></td>
</tr>
<tr>
<td colspan="5" class="tdDottet"></td>
</tr>
<tr align="right">
<td colspan="5" class="tdOffer">">Dettaglio offerta[img]img/icn/arrow_go.gif[/img]</a></td>
</tr>
<tr align="right">
<td colspan="5" class="tdfiletto" ></td>
</tr>
</table>
<%
rs.MoveNext
Wend
%>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
----------------------------------------------------------

[maximum]

Cerca in questo forum "paginazione", troverai lo script che fa al caso tuo.

[pablomare]

Ciao, ho provato con questo codice,
ma qualcosa non funziona.


<%
iPageSize = 7

if request.QueryString("page") = "" then
iPageCurrent = 1
else
iPageCurrent = CInt(request.QueryString("page"))
end if

id = request("id")
SET rs = server.CreateObject("ADODB.Recordset")

Set Conn= Server.CreateObject("Adodb.connection")
Conn.Open "provider=microsoft.jet.oledb.4.0; data source="& Server.MapPath("db/offerte.mdb")
sql =" select * from prodotti ORDER BY prezzo ASC "
rs.open sql, conn, 3,3
rs.PageSize = iPageSize
rs.CacheSize = iPageSize
iPageCount = rs.PageCount
if iPageCurrent > iPageCount then iPageCurrent = iPageCount
if iPageCurrent < 1 then iPageCurrent = 1

if ipageCount <> 0 then %>

%>
<%
rs.AbsolutePage = iPageCurrent
iRecordsShown = 0 %>

<% ' se la variabile x è = alla pagina corrente:
for id = 1 to iPageCount
if iPageCurrent = id then %>

[ <%= id %> ]


<% else %>

<%= id %>
<%end if
next %>

<% do while iRecordsShown < iPageSize And Not rs.eof %>

<table width="560" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="5" ></td>
</tr>
<tr>
<td colspan="5" >[img]../img/icn/pixel.gif[/img] <%= rs("linea") %></td>
</tr>
<tr>
<td colspan="5" class="tdDottet"></td>
</tr>
<tr bgcolor="#f7f7f7" onMouseOver="style.backgroundColor='#ffffff'" onMouseout="style.backgroundColor=''">
<td width="1%" >[img]<%= rs([/img]" alt="" width="90" height="50" hspace="0" vspace="0" border="0" /></td>
<td width="98" class="tdOffer"><%= rs("prodotto") %></td>
<td width="150" valign="middle" class="tdOffer"><%= rs("descrizione") %></td>
<td width="57" valign="middle" class="tdOffer"><%= rs("durata") %></td>
<td width="95" valign="middle" class="tdOffer">
<div align="center">">€ <%= rs("prezzo") %>,00</div></td>
</tr>
<tr>
<td colspan="5" class="tdDottet"></td>
</tr>
<tr align="right">
<td colspan="5" class="tdOffer">">Dettaglio offerta[img]img/icn/arrow_go.gif[/img]</a></td>
</tr>
<tr align="right">
<td colspan="5" class="tdfiletto" ></td>
</tr>
</table>


<% iRecordsShown = iRecordsShown + 1
rs.MoveNext
loop


rs.Close
set rs = Nothing
conn.close
set conn = nothing
%>