|
<%
Response.ExpiresAbsolute=Now() %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>SEMPLICE INTERROGAZIONE DI UNA Base DI DATI CON PAGINAZIONE</title> </head> <body> <% Select Case Request.QueryString("Direzione") Case "" Session("paginaCorrente") = 1 Case "Avanti" Session("paginaCorrente")= Session("paginaCorrente") + 1 Case "Indietro" Session("paginaCorrente")= Session("paginaCorrente") - 1 End Select Const adOpenKeyset = 1 Dim conn Dim rs Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "tutorial","","" sql = Select * FROM Libri rs.Open sql, conn, adOpenKeyset rs.PageSize = 1 rs.AbsolutePage = CLng(Session("PaginaCorrente")) %> <p><%= TornaRic %></p> <p>Questa e' la pagina <%=Session("paginaCorrente")%> di <%=rs.PageCount%></p> <table border="0" Width="100%" cellspacing="0" cellpadding="0"> <% Dim i For i = 1 To rs.PageSize %> <tr> <td Width="27%" bgcolor="#FF8040"><font face="arial" size="2">LIBRI</font></td> <td Width="73%" bgcolor="#FF8040"></td> </tr> <tr> <td Width="27%"><font face="arial" size="2">TITOLO:</font></td> <td Width="73%"><font SIZE="2" FACE="Arial" COLOR="#000000"><%= rs("titolo")%></font></td> </tr> <tr> <td Width="27%"><font face="arial" size="2">AUTORE:</font></td> <td Width="73%"><font SIZE="2" FACE="Arial" COLOR="#000000"><%= rs("Autore")%></font></td> </tr> <tr> <td Width="27%"><font face="arial" size="2">CASA EDITRICE:</font></td> <td Width="73%"><font SIZE="2" FACE="Arial" COLOR="#000000"><%= rs.Fields("Editore")%></font></td> </tr> <tr> <td Width="27%"><font face="arial" size="2">NOTE:</font></td> <td Width="73%"><font SIZE="2" FACE="Arial" COLOR="#000000"><%= rs("note") %></font></td> </tr> <% rs.MoveNext Next %> </table> <% If CLng(Session("PaginaCorrente")) < rs.PageCount Then %> <p><a href="paginazione1a.asp?Direzione=Avanti">Pagina successiva</a></p> <%End If%> <p><% If CLng(Session("PaginaCorrente")) > 1 Then %> </p> <p><a href="paginazione1a.asp?Direzione=Indietro">Pagina Precedente</a></p> <%End If%> </body> </html> |