36 messaggi dal 08 marzo 2004
Benissimo, ora la pagina impostata a 2 records per pagina mi mostra effettivamente il record 1 e il 2

Il problema ora è nel menu di navigazione.....

si genera automaticamente e passa il valore alla variabile 2 se è la pagina 2, 3 se è la pagina 3.....

purtroppo qualsiasi pagina io apra mi visualizza il record 1 e il 2.... sempre quelli.

----------------------------------------------------------------------
ecco il codice script del menu di navigazione
----------------------------------------------------------------------

<center>
<font face="Verdana" size="2">
<B>Pagine:</B></font>
<%

For pag=1 to rs.PageCount

Response.Write "<A href='caricatori_usati.asp?page=" & pag
Response.write "'>"

Response.Write pag

Response.Write "</A> "

Next

%>

----------------
FINE
----------------

Ho notato che come querystring passa il valore page=" & pag

il mio dubbio è, come fa la query select a filtrare i dati in base a questo valore?

Secondo me l'ultimo errore sta proprio nella query.....

Eccola

sql = "SELECT * FROM usato;"


Infatti non ha nessun filtro


Come devo fare? Sempre sia questo l'errore da me individuato
36 messaggi dal 08 marzo 2004
a
Modificato da massimo_casellato il 23 aprile 2004 10.49 -
3.122 messaggi dal 16 maggio 2002
La query va benissimo.
Il menu di navigazione delle pagine lo puoi scrivere così (l'ho già integrato nel resto):
rs.PageSize = RecordPerPagina
TotPagine = rs.PageCount
if TotPagine = 0 then
' nessun record
else

page = Request("page")
if not IsNumeric(page) then
page = 1
else
page = CInt(page)
if page<=0 then page=1
end if
if page>TotPagine then page=1

rs.AbsolutePage = page

for i=1 to TotPagine
if page<>i then Response.Write "<a href=""" & Request.ServerVariables("URL") & "?page=" & i & """>"
Response.Write i
if page<>i then Response.Write "</a>"
Response.Write "&nbsp;"
next

i=1
while(i<=RecordPerPagina and not rs.eof)

'visualizzo varie tabelle con le informazioni dei prodotti e la foto, tante tabelle quante sono i record presenti nel database

rs.MoveNext
i = i+1
wend

end if

Dovrebbe andare

The day Microsoft makes something that doesn't suck
is probably the day they start making vacuum cleaners.

Get caught!
Get caught again!
36 messaggi dal 08 marzo 2004
Rayonr SEI SEMPRE IL MIGLIORE

Funziona tutto alla grande.


Grazieeeeeeeeeeeeeeeeeeeeeee

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.