allora, se ti serve sapere come ho costruito il database e il form che lo compila trovi il codice completo qui: http://forum.html.it/forum/showthre...26#post13178926. Evito di duplicare inutilmente informazioni.
Mentre la pagina che restituisce a video i valori interni al database è costruita da questo codice:
codice:<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <%@LANGUAGE = VBScript%> <% ' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE Dim sc, cn, rs, quanti, pag, contatore ' DEFINISCO LA STRINGA DI CONNESSIONE sc = "" sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq=" sc = sc & Server.MapPath("\cerca\mdb-database\pragma1.mdb") ' IMPOSTO LA CONNESSIONE EDIL RECORDSET Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") ' APRO LA CONNESSIONE COL DATABASE cn.Open sc ' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA quanti = 5 ' RECUPERO IL NUMERO DI PAGINA CORRENTE ' E CONTROLLO CHE NON SIA INFERIORE A 1 pag = Request.QueryString("pag") If IsNumeric(pag) = False Or pag < 1 Then pag = 1 ' IMPOSTO UN CONTATORE contatore = 0 %> <html xmlns="http://www.w3.org/1999/xhtml"> <head> (...) </head> <body> (...) <div id="content"> <h2>TITOLO</h2> <table align="center" width="500" border="0"> <% ' APRO IL RECORDSET rs.Open "SELECT * FROM ricerche ORDER BY data", cn, 1 ' EFFETTUO MATERIALMENTE LA PAGINAZIONE rs.PageSize = quanti rs.AbsolutePage = pag ' ESEGUO IL CICLO While rs.EOF = False And contatore < quanti %> <tr><td></td><tr> <tr><td> <hr width=100% size=1 color="silver"></td><tr> <tr><td></td><tr> <td>Titolo:<%=rs("titolo")%></td> <tr><td> Categoria:<%=rs("descrizione")%></td></tr> <tr><td>Data:<%=rs("data")%></td></tr> <tr><td><%=rs("pdf")%></td></tr> <tr><td>"> [img]../immagini/logo-PDF.jpg[/img] </td></tr> <tr><td></td><tr> <tr><td> <hr width=100% size=1 color="silver"></td><tr> <% rs.MoveNext ' INCREMENTO IL VALORE DEL CONTATORE contatore = contatore + 1 Wend %> </table> <p align="center"> <%If pag > 1 Then%> Indietro <%End If%> <% Dim x x = 1 For x = 1 To rs.PageCount If CInt(pag) <> x Then %> [<%=x%>] <% Else %> [<%=x%>] <% End If Next %> <%If rs.EOF = False Then%> Avanti <%End If%> </p> (...) </body> </html> <% rs.Close Set rs = Nothing cn.Close Set cn = Nothing %>

Rispondi quotando