paginazione di Roby_72

[yoyo87]

cosa c'è di sbagliato? non mi da nessun errore però e come se i link alla pagina successiva non funzinassi perchè appena mi collego alla pagina già vengono visualizzate il numero delle pagine (senza nessun risultato della ricerca visualizzato), poi appena effettuo la ricerca il link mi riporta alla pagina vuota. Spero di essermi spiegato se no: http://www.zerorecordstore.it/libri/index.asp

<% response.buffer=true %>
<% Server.ScriptTimeout = 300 %>


<%
iPageSize = 3 'NUMERO RECORD PER PAGINA

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

strSQL = "SELECT * FROM libri ORDER BY autori ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, 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
%>
<%

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



dbconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/Libri.mdb")
Set conn=Server.CreateObject ("ADODB.Connection")
conn.open dbConn


Set rstTitolo=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

rstTitolo.Open sql,conn,3,3
totrecord = rstTitolo.recordcount



%>
<div align="center">
<center>
<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") & rstTitolo("Autori") &"</font></td>"
Response.Write "<td bordercolor='#000080'><font size='1' face='Verdana'>" & objRS("Titolo") & rstTitolo("Titolo") &"</font></td>"
Response.Write "<td bordercolor='#000080'><font size='1' face='Verdana'>" & objRS("CasaEditrice") & rstTitolo("CasaEditrice") &"</font></td>"
Response.Write "<td bordercolor='#000080'><font size='1' face='Verdana'>" & objRS("Anno") & rstTitolo("Anno") &"</font></td>"
Response.Write "<td bordercolor='#000080'><font size='1' face='Verdana'>" & objRS("Prezzo") & rstTitolo("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%>
<%Do while not rstTitolo.EOF%> <%
rstTitolo.movenext
loop
%>

</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
<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%>
<%
objConn.Close
Set objConn = Nothing
rstTitolo.close
end if
set rstTitolo = Nothing%>
</TD>
</TR>
</TABLE>
</body>
</html>

[Roby_72]

Troppe connessioni e troppi recordset.
E' questo quello che a te interessa:

strSQL = "SELECT * FROM libri ORDER BY autori ASC" 
Set objRS = Server.CreateObject("ADODB.Recordset")

Gli altri messi dopo vanno prima.

Roby

[yoyo87]

quindi? dovrei cancellare le altre connessioni e modificare qualche stringa?

[Roby_72]

Prendi il mio esempio e modifica quello con logica però.
Io ho una sola connessione ed una sola query.
Quello devi avere anche tu...

Roby

[yoyo87]

Ho unito i due codici ed ora non mi danno più nessun errore. Però non funziona come dovrebbe.
Senza stare a spiegare scrivo il link alla pagina:
http://www.zerorecordstore.it/libri/index.asp

Se provi a cercare scrivendo anche "a" per il titolo, vengono visualizzati logicamente 2 risultati invece di 4, grazie credo alla stringa iPageSize = 2.
Però perchè sotto non c'è nessun numero e link delle pagine cosa che invece all'inizio compare????

Scrivo anche il codice:

<% 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>
<meta http-equiv="Content-Language" content="it">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title></title>
<link rel="stylesheet" href="manufacture.css" type="text/css">
<base target="_self">
</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 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">


<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>
<%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>
</div>
</td>
</tr>
</table>
</center>
</div>
<%
end if
objConn.Close
Set objConn = Nothing%>
</body>
</html>

[yoyo87]

AIUTOOOOOOOOOOOOO!!!!!

:master:

[michele.santoro]

Per vedere i num di pag e ilink a fondo pagina quando effettui la ricerca ([B])devi spostare l'ultima parte del codice che riguarda la paginazione così:

<% 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>
<meta http-equiv="Content-Language" content="it">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title></title>
<link rel="stylesheet" href="manufacture.css" type="text/css">
<base target="_self">
</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+1%></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>