Problema paginazione [Script Roby_72]

**yoyo87** · 26-02-2005, 19:05

Dopo esser riuscito ad unire due codice (lo script e la un ricerca su un database) risolvendo tutti i vari errori. C'è un problema. E' come se i due codici non collaborassero, cioè già appena si carica la pagina si vede il numero delle pagine con il relativo link, poi se faccio una ricerca con, ad esempio "a" nel titolo compaiono giustamente 2 record invece di 4 (grazie ad una stringa del codice) ma in basso non ci sono i link alle pagine.

Ecco il link alla pagina:
http://www.zerorecordstore.it/libri/index.asp

**yoyo87** · 26-02-2005, 19:05

Ecco qui il codice della pagina:
<% response.buffer=true %>
<% Server.ScriptTimeout = 300 %>

<%
Autori = trim(request.form("Autori"))
Autori = replace(Autori, "'", "''")
Titolo = trim(request.form("Titolo"))
Titolo = replace(Titolo, "'", "''")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/libri.mdb")

Set objRS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM libri"
if Titolo<>"" or Autori<>"" then
sql=sql& " where "
end if

if Autori<>"" then
sql=sql& "Autori like '%" & Autori & "%'"
end if

if Autori<>"" and Titolo<>"" then
sql=sql & " and "
end if

if Titolo<>"" then
sql=sql& "Titolo like '%" & Titolo & "%'"
end if

%><html>
<head>
</head>
<body link="#000000" vlink="#000000" alink="#000000" bgcolor="#83A5D2">
<center>
<%
iPageSize = 2 'NUMERO RECORD PER PAGINA

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open SQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

reccount = objRS.recordcount
iPageCount = objRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write "

<table><td><font face='verdana' size='2' color='#000000'>Non sono stati trovati giocatori.</td></table></p>"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="399" id="AutoNumber3" height="205">
<tr>
<td width="455" height="34" bgcolor="#000080" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="119%">
<tr>
<td width="100%">
<p align="center"><font face="Arial" color="#FFFFFF">Biblioteca
dell'Istituto</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="455" height="19" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="127%">
<tr>
<td width="100%">
<p align="center"><font face="Verdana" style="font-size: 3pt">

</font><font face="Verdana" size="2" color="#000080">Controlla se nella
nostra biblioteca c'è il libro che ti serve!

per l'elenco completo
<a target="_self" href="admin/elenco%20completo.asp"><font color="#FFFFFF">
clic qui</font></a>

</font><font face="Verdana" size="1">[i]La ricerca va effettuata per
nome dell'autore, per titolo dell'opera

(o parte del titolo) o per entrambi.
(maiuscole e minuscole sono indifferenti)</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="455" height="152" align="center">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="510" id="AutoNumber4">
<tr>
<td width="542">
<form method="POST" action="index.asp" language="JavaScript" name="FrontPage_Form1">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="542" id="AutoNumber1">
<tr>
<td width="209">
<p align="right"><font face="Verdana" size="1" color="#000080">Nome Autore</font></td>
<td width="333">
<input type="text" name="Autori" size="20" value="<%=Autori%>" class="formstyle" style="border: 1px solid #000080; "></td>
</tr>

<tr>
<td width="209">
<p align="right"><font face="Verdana" size="1" color="#000080">Titolo</font></td>
<td width="333">
<input name="Titolo" size="20" value="<%=Titolo%>" class="formstyle" style="border: 1px solid #000080; "><input type="submit" value="Cerca >>" name="cercaAutori" class="formstyle" style="border: 1px solid #808080; background-color: #000080; color:#FFFFFF; font-family:verdana; height:20"></td>
</tr>

</table>
</form>

<hr color="#000080">
<center>
<%if Autori <> "" or Titolo<>"" then%>
<table border="1" cellspacing="0" style="border-collapse: collapse" width="101%" id="AutoNumber2" align="left" cellpadding="2" bgcolor="#000080" bordercolor="#C0C0C0">
<tr>
<td width="10%" align="left" style="border-style:solid; border-width:1; background-color: #000080; " bordercolor="#C0C0C0">

<font face="Verdana" size="1" color="#FFFFFF">Autore</font></td>
<td width="22%" align="center" style="border-style:solid; border-width:1; background-color: #000080; " bordercolor="#C0C0C0">

<font face="Verdana" size="1" color="#FFFFFF">Titolo</font></td>
<td width="3%" align="center" style="border-style:solid; border-width:1; background-color: #000080; " bordercolor="#C0C0C0">

<font face="Verdana" size="1" color="#FFFFFF">Casa Editrice</font></td>
<td width="4%" align="center" style="border-style:solid; border-width:1; background-color: #000080; " bordercolor="#C0C0C0">

<font face="Verdana" size="1" color="#FFFFFF">Anno</font></td>
<td width="10%" align="center" style="border-style:solid; border-width:1; background-color: #000080; " bordercolor="#C0C0C0">

<font face="Verdana" size="1" color="#FFFFFF">Prezzo</font></td>
<td width="64%" align="center" style="border-style:solid; border-width:1; background-color: #000080; " bordercolor="#C0C0C0">

<font face="Verdana" size="1" color="#FFFFFF">Disponibilità</font></td>
</tr>
<%
'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
Dim Rig, bg
Rig = Rig + 1
If Rig Mod 2 = 0 then
bg = "#FFFFFF"
Else
bg = "#ccccff"
End if
Response.Write "<tr bgcolor = " & bg & "><td bordercolor='#000080'><font size='1' face='Verdana'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
Response.Write "<td bordercolor='#000080'><font size='1' face='Verdana'>" & objRS("Autori") & "</font></td>"
Response.Write "<td bordercolor='#000080'><font size='1' face='Verdana'>" & objRS("Titolo") & "</font></td>"
Response.Write "<td bordercolor='#000080'><font size='1' face='Verdana'>" & objRS("CasaEditrice") & "</font></td>"
Response.Write "<td bordercolor='#000080'><font size='1' face='Verdana'>" & objRS("Anno") & "</font></td>"
Response.Write "<td bordercolor='#000080'><font size='1' face='Verdana'>" & objRS("Prezzo") & "</font></td>"
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>
</table>
<%End if%>

<%If ipagecount <> 1 Then%><table>
<tr valign="middle">
<td width="50%" align="center" valign="middle"><font face="verdana" size="1" color="#000000">
[
<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
[img]/paginazione/images/first.gif[/img]
<%end if%>
<%if iPageCurrent > 1 then%>
[img]/paginazione/images/pre.gif[/img]
<%end if%>
<%if iPageCount > 2 then
if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
else
da_pag = 1
fino_a_pag = iPageCount
end if%>
<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"><%=i%></font>
<%else%>
<%=i%>
<%end if%>
<%next%>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
[img]/paginazione/images/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%>
[img]/paginazione/images/last.gif[/img]
<%end if%>
]
</font></td>
</tr>
<tr>
<td colspan="2" align="center"><font face="verdana" size="1" color="#000000">
<center>
Pagina
<font color="#FF0000"><%=iPageCurrent%></font>
di
<font color="#FF0000"><%=iPageCount%></font>
</center>
</font></td>
</tr>
</table>
</center>
<%end if%>
</TD>
</TR>
</TABLE>
</center>
</div>
</td>
</tr>
</table>
</center>
<%
end if
objConn.Close
Set objConn = Nothing%>
</body>
</html>

Discussione: Problema paginazione [Script Roby_72]

Strumenti discussione

Ricerca discussione

Visualizza

Problema paginazione [Script Roby_72]

mi ero scordato...

Permessi di invio