paginazione non corretta

iako77 · 30 Nov 2007

Ciao, volevo sapere se qualcuno è in grado di correggermi l'errore di paginazione che sto trovando: ho utilizzato uno script che avevo già adottato per altre pagine ma qui la complessità è più alta:
il risultato che ottengo dopo aver specificato che voglio 5 record per pagina è che l'index mi riporta tutti i record(!) ma il pagecount riportatato alla fine conta giusto, infatti per un totale di 20 record mi mostra 4 pagine. Quando vado alla pagina successiva mi viene sempre mostrato l'elenco completo ma scompaiono i prime 5 record della prima pagina e così via in terza e quarta.
Probabilmente è un errore di posizionamento dello script: vi posto il codice se qualcuno è in rado di aiutarmi....

<%

settore=replace(Request.querystring("settore"),"'","''")
ragionesociale=replace(Request.querystring("ragionesociale"),"'","''")
fornitore=replace(Request.querystring("fornitore"),"'","''")
codicenordiconad=replace(Request.querystring("codicenordiconad"),"'","''")
tipo_servizio=replace(Request.querystring("tipo_servizio"),"'","''")
if ragionesociale = "" then ragionesociale = Null end if
if fornitore = "" then fornitore = Null end if
if ragionesociale = "tutti" then ragionesociale = Null end if
'if fornitore = "tutti" then fornitore = Null end if
if settore = "" then settore = Null end if
if settore = "tutti" then settore = Null end if
if codicenordiconad = "" then codicenordiconad = Null end if
'if codicenordiconad = "tutti" then codicenordiconad = Null end if
if tipo_servizio = "" then tipo_servizio = Null end if
if tipo_servizio = "tutti" then tipo_servizio = Null end if

Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("fornitori.mdb")

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Gestione Fornitori Nordiconad HACCP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><br>
<p><font color="#FF0000" size="5" face="Verdana, Arial, Helvetica, sans-serif"><strong>Gestione
Fornitori Nordiconad HACCP</strong></font></p>
<form action="" method="get" enctype="multipart/form-data" name="form1">
<div align="left">
<table width="100%" border="2" cellspacing="1" cellpadding="1" bgcolor="#FED95A" bordercolor="#FFFFFF">
<tr>
<td height="44" colspan="4"><font color="#FFFFFF" size="4" face="Verdana, Arial, Helvetica, sans-serif"><strong><img src="file:///D|/Documenti/img/loghiconad/Image1conad.jpg" width="44" height="44">FILTRI
DI RICERCA:</strong></font></td>
</tr>
<tr>
<td width="32%">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">Fornitore</font><font face="Verdana, Arial, Helvetica, sans-serif"><strong>
<input name="fornitore" type="text" id="fornitore" size="40" maxlength="40">
</strong></font></strong></font></div></td>
<td colspan="2">
<div align="left">
<p><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Indirizzo<br>
</font><font face="Verdana, Arial, Helvetica, sans-serif">
<input name="ragionesociale" type="text" id="ragionesociale" size="50" maxlength="50">
</font></strong></p>
</div></td>
<td><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">settore
<font size="1">(GV,SL,OF,CARNI,SURG)</font> </font></strong><font face="Verdana, Arial, Helvetica, sans-serif">
</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<select name="settore" id="settore">
<option value=""> </option>
<option value="Generi Vari">GV</option>
<option value="Rifatturazione">RIF</option>
<option value="Salumi e Latticini">SL</option>
<option value="Ortofrutta">OF</option>
<option value="Carni">CARNI</option>
<option value="Surgelati">SURG</option>
</select>
</font></strong></strong></td>
</tr>
<tr>
<td height="44" colspan="2">
<div align="left"></div>
<div align="left"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Codice
Nordiconad</font></strong>
<input name="codicenordiconad" type="text" id="codicenordiconad" size="15" maxlength="15">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>EX:
XXXXXX</strong></font></div></td>
<td width="36%"><div align="left"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Tipo
Servizio<font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">(Mag,Rif,Misto)</font> <strong>
<select name="tipo_servizio" id="tipo_servizio">
<option value=""> </option>
<option value="Magazzino">MAG</option>
<option value="Rifatturazione">RIF</option>
<option value="Misto">M/R</option>
</select>
</font></font></strong></div></td>
<td width="17%"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif">
<input type="submit" name="Submit" value="Avvia la Ricerca">
</font></div></td>
</tr>
</table>
</div>
</form>

<%
if codicenordiconad <> "" then
SQL="SELECT * FROM Tabella1 WHERE codicenordiconad = '"&codicenordiconad&"'"
else
SQL="SELECT * FROM Tabella1 WHERE fornitore like '%"&fornitore&"%' and ragionesociale like '%"&ragionesociale&"%' and codicenordiconad like '%"&codicenordiconad&"%' and settore like '%"&settore&"%' and tipo_servizio like '%"&tipo_servizio&"%'"
end if
Set rec = Server.CreateObject("ADODB.Recordset")

rec.Open sql, conn, 3, 3

RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
' STRINGA SQL
strRicerca = Request("ricerca")
'apri recordset
If rec.Eof=True or rec.Bof=True then
Response.Write "<P>Nessun risultato trovato</P>"
Else

' paginazione
rec.PageSize = RecordsPerPagina
rec.AbsolutePage = Page

' blocco codice RecordsPerPagina

For i=1 to 5
if Not rec.EOF then
%>

<table width="100%" border="2" cellpadding="1" cellspacing="1" bordercolor="#FF6600">
<tr bgcolor="#F9BE46">
<td width="30%"> <div align="center"><font color="#333333"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Fornitore</font></strong></font></div></td>
<td width="26%" ><div align="center"><font color="#333333"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Indirizzo</font></strong></font></div></td>
<td width="7%" > <div align="center"><font color="#333333"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Settore</font></strong></font></div></td>
<td width="12%"> <div align="center"><font color="#333333"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">cod.
Nordiconad </font></strong></font></div></td>
<td width="9%"><div align="center"><strong><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">tipo
<br>
servizio</font></strong></div></td>
<td width="16%"><div align="center"><font color="#333333"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">telefono
</font></strong></font></div></td>
</tr>
<%
Do Until rec.EOF
%>
<tr bgcolor="#FFCC66">
<td><font color="#000000" size="2" face="Georgia, Times New Roman, Times, serif"><a href="Allegati/<%=rec("fornitore")%>.pdf" target="_blank"><%=rec("fornitore")%></a></font></td>
<td><div align="left"><font size="2" face="Georgia, Times New Roman, Times, serif"><font color="#000000"><%=rec("ragionesociale")%></font></font></div></td>
<td> <div align="left"><font color="#000000" size="2" face="Georgia, Times New Roman, Times, serif"><%=rec("settore")%>
</font></div></td>
<td> <div align="left"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rec("codicenordiconad")%></font></div></td>
<td><div align="left"><font color="#000000" size="1"face="Verdana, Arial, Helvetica, sans-serif"><%=rec("tipo_servizio")%></font></div></td>
<td><div align="left"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rec("telefono")%></font></div></td>
</tr>
<%
rec.MoveNext
Loop
%>
</table>
<%
end if
Next
End if
%>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Pagina
Attuale: <%= page %> </strong></font><br>
<%

' blocco codice
Response.Write "<B>Pagine:</B> "
For pag=1 to rec.PageCount
Response.Write "<A href='index3.asp?page=" & pag &"'>"

'Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
Response.Write "<hr color=#0000CC>"
rec.Close
set rec = Nothing

%>
</table>
</body>
</html>

Autore	Titolo	Forum	Risposte	Data
	Pagina di ricerca: la paginazione non funziona	WordPress	0	30 Apr 2014
I	Errore 80040220 nella newsletter con paginazione	Classic ASP	0	21 Giu 2020
	Paginazione Tabella Bootstrap	Javascript	2	9 Dic 2019
B	[Java] Paginazione in risposta HTTP	Java	0	14 Mar 2019
L	[PHP] paginazione con classi vendor	PHP	2	1 Giu 2018
K	[PHP] Paginazione Wordpress: passare variabile	PHP	6	1 Mag 2018
A	[PHP] If e Else paginazione ok ci sono risultati no ma avanti lo stesso	PHP	15	21 Apr 2018
	[PHP] paginazione con ajax	PHP	1	26 Feb 2018
O	paginazione php mysql	PHP	10	26 Nov 2017
A	[PHP] limitare counter paginazione	PHP	7	25 Ago 2017
V	[ASP] paginazione-risultati-query-grandi-dimensioni	Classic ASP	8	19 Ago 2017
A	[PHP] Problema paginazione motore di ricerca	PHP	48	24 Giu 2017
A	[PHP] inserire paginazione su script php/mysql	PHP	6	11 Lug 2016
	Paginazione jQuery - PHP	jQuery	2	25 Giu 2016
	[PHP] Paginazione dati estratti da una query con più condizioni	PHP	17	23 Giu 2016
X	come modificare paginazione del tutorial	PHP	0	12 Ago 2015
	Problema con bootstrap, saltata tutta la paginazione in IE8	HTML e CSS	1	27 Giu 2015
F	paginazione record di una query	Classic ASP	5	28 Mag 2015
	ASP Easy-News paginazione	Classic ASP	2	15 Mag 2015
G	Problema di Indice e Paginazione	PHP	5	14 Mag 2015
L	articolo: Paginazione dei dati presenti in un file di testo - informazioni	PHP	2	10 Mag 2015
M	Paginazione di risultati query mysql	PHP	2	22 Apr 2015
D	Paginazione dati PDO	PHP	8	22 Mar 2015
	Help paginazione	PHP	10	22 Gen 2015
M	Problema su numerazione paginazione php	PHP	6	13 Dic 2014
D	[risolto] Problemi di paginazione dei risultati con una determinata query	Classic ASP	4	28 Nov 2014
L	paginazione testo senza troncare le parole	PHP	3	13 Ott 2014
L	testare una paginazione "Creazione di 1000 dati random in una tabella"	PHP	7	6 Ott 2014
L	problema paginazione con valori -1 -2 -3 -4	PHP	0	24 Giu 2014
N	Paginazione con invio modulo	PHP	0	22 Giu 2014
L	Paginazione file di testo	PHP	3	20 Giu 2014
N	Script paginazione	PHP	0	9 Giu 2014
N	Paginazione	PHP	2	1 Mag 2014
	Evitare Meta Tag duplicati su paginazione php	PHP	2	18 Apr 2014
	Paginazione file txt con PHP?	PHP	1	10 Apr 2014
	PHP e Paginazione Jquey	PHP	2	14 Feb 2014
H	[RISOLTO] paginazione PHP + mysql	PHP	15	22 Gen 2014
M	Problema Paginazione con Mod_rewrite .htaccess	PHP	0	2 Dic 2013
J	Paginazione PHP in jQuery UI Tabs	jQuery	13	26 Nov 2013
	interazione PHP Access con paginazione	PHP	7	27 Ago 2013
W	Problema eliminazione ultimo record da ultima pagina di crud con paginazione	PHP	2	20 Ago 2013
L	Paginazione con pdo.	PHP	8	11 Lug 2013
G	Paginazione php utilizzando le api di careerjet	PHP	0	29 Mag 2013
G	Paginazione php utilizzando le api di careerjet	WordPress	1	29 Mag 2013
S	paginazione	PHP	2	28 Apr 2013
L	Paginazione file evitare di inserire questi \ o altro nella get	PHP	1	15 Apr 2013
K	problemi con paginazione tabella	PHP	7	3 Apr 2013
L	Creare paginazione numerica	PHP	3	29 Gen 2013
L	Problema paginazione che ripete i dati doppi	PHP	1	29 Nov 2012
L	Paginazione elenco File da una cartella	PHP	11	23 Ott 2012

Cerca

Cerca

paginazione non corretta

iako77

Nuovo Utente

Discussioni simili