Ciao
Volevo sapere un metodo alternativo a quello che conosco per creare una sequenza multipagina per un elenco(non so se si definisce cosi!!).
Cioè i tasti avanti e indietro oppure i numeri di pagina.
Il problema è questo dopo che imposto:
----------------------------------Pagina principale----------
dim totalerecord
dim totalepag
dim thispage
dim pcen, pg
thispage = request("pag")
cs = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/tingere.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open cs
sql =" SELECT * FROM colori WHERE id_tipo = 1 "
Set rs=server.CreateObject("adodb.recordset")
rs.Open sql, conn, 3, 3
if thispage = "" then
thispage = 1
end if
totalerecord=rs.RecordCount
if totalerecord<>0 then
pgn=5
rs.PageSize = pgn
totalepag=rs.PageCount
rs.AbsolutePage=thispage
pg=0
for pg=1 to totalepag
if pg=int(thispage) then
pcen = pcen&""&pg&" "
else
pcen = pcen & ""&pg&" "
end if
next
if thispage=1 then
psx = "<font face='Trebuchet MS' size='2' color='#5F8FAF'>[img]img/indietro_n.jpg[/img]</font>"
End If
If thispage>1 Then
psx = "[img]img/indietro.jpg[/img] "
end if
If Int(thispage) > Int(totalpage) Then
pdx = "<font face='Trebuchet MS' size='2' color='#5F8FAF'>[img]img/avanti_n.jpg[/img]</font>"
End If
if Int(thispage) < Int(totalepag) then
pdx = "[img]img/avanti.jpg[/img] "
end if
<table border="1" cellpadding="2" cellspacing="2" width="20%">
<tr>
<td colspan="7"></td>
</tr>
<%
While not rs.eof
%>
<tr>
<td class="bordo" bgcolor="<%=rs("colore")%>" colspan="7"><%=rs("codice")%></td>
</tr>
<%
rs.Movenext
Wend
%>
<tr>
<td colspan="20"></td>
</tr>
<tr>
<td colspan="6"><%=pcen%></td>
</tr>
<tr>
<td colspan="2"><%=psx%></td>
<td colspan="6"><%=pdx%></td>
</tr>
<tr>
<td colspan="20">[img]img/home_page_divx_28x2.jpg[/img]</td>
</tr>
</table>
</div>
<%
conn.close
set conn=nothing
End If
%>
Spiego io ho una tabella nel db chiamata colori, e vorrei visualizzare solo quelli del tipo 1, e farmene vedere solo 5 alla volta! ma ciò non succede, ossia mi visualizza tutti i record del tipo 1 e non 5, e per di più mi da i numeri di pagina come se i record viualizzati siano 5! ad esempio se ne imposto 10 mi visualizza sempre tutti ma mi dimunisce i numeri di pagina come se eeffettivamente ce ne fossero 10.
Spero, soprattutto di essere stato un tantino chiaro, e che qualcuno possa aiutarmi!!!!
Grazie CIAO
Rispondi quotando
