Perchè se faccio una ricerca, ad esempio "a" sul campo "Titolo" e poi clicco sul "2" per vedere gli altri due records (visto che ne sono 4 in totale divisi in due pagine per lo script di pagionazione) non si vede nulla???
Ecco il link:
http://www.zerorecordstore.it/libri/index.asp
Se riuscite a risolvermi questo problam ho finito così non romperò più :P
GRAZIE A TUTTI!!!
All'interno 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">
<div align="center">
<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 Libri.</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">
<div align="center">
<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>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
<%If ipagecount <> 1 Then%><div align="center">
<center>
<table style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0" width="442">
<tr valign="middle">
<td width="442" 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+1 < 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" width="442"><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>
</div>
</center>
<%end if%>
<%
end if
objConn.Close
Set objConn = Nothing%>
<%End if%>
</TD>
</TR>
</TABLE>
</body>
</html>
ehm...non c'è più bisogno grazie ho risolto da solo.
Scusate per il disturbo grazie mille ancora
Non passavi le variabili titolo e autori all'altra pagina, vero?
E' nato www.lombardiamotori.it
www.universocase.it: il primo portale italiano di annunci immobiliari gratuiti e autogestiti!
Verissimo!
Ma non voleva nemmeno il "request.form" ma solo "request".
Perché? Chi ce lo spiega?
I valori passano nell'url quindi con il metodo get mentre con il request.form li aspetta provenientei da un form cn metodo post.
Con request recuperi sia valori passati cone il get che con il post, anche se non è carino per la leggibilità...
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
Che sc..o! è vero, non ci avevo minimamente pensato.
Grazie Roby, sei sempre grande.
Grazie Roby , sei sempre grande
Siamo alle solite...
E' nato www.lombardiamotori.it
www.universocase.it: il primo portale italiano di annunci immobiliari gratuiti e autogestiti!
Hai ragione Teorema55, Anche tu sei grande, anche tu avevi centrato il problema.
PfffOriginariamente inviato da teorema55
Siamo alle solite...
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
Permessi di invio
Rispondi quotando