<%@LANGUAGE = JScript%> <% // Apro la connessione verso il database var Cn = new ActiveXObject("ADODB.Connection"); var Sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("guestbook.mdb"); Cn.Open(Sc); // Recupero i dati dalla tabella via Sql var Sql = "SELECT * FROM messaggi ORDER BY id DESC"; // Utilizzo l'oggetto recordset per generare la paginazione var Mostra = new ActiveXObject("ADODB.Recordset"); Mostra.Open(Sql,Cn,1); // Setto una variabile di tipo QueryString per muovermi nella stessa pagina // e mostrare a video messaggi diversi var pag = parseInt(Request.QueryString("id")); // Mi assicuro che il valore passato nella QueryString sia numerico if (isNaN(pag) || pag < 1) pag = 1; // Finchè non finisce il file continuo il conteggio ed imposto // a 10 il numero di record che voglio vengano estratti if (!Mostra.EOF) { Mostra.PageSize = 10; Mostra.AbsolutePage = pag; } // A questo scopo mi serve un contatore che imposto a zero (0) ed incrementerò in seguito var i = 0; %>

Firma il mio Guestbook

I campi contrassegnati da * sono obbligatori

Nickname *
Email
Homepage
Città *
Oggetto *
Messaggio *

<%while((!Mostra.EOF) && (i<10)){%>

Messaggio di <%=Mostra("nickname")%> (da <%=Mostra("citta")%>)	<%if((Mostra("email") == "") \|\| (Mostra("email") == "undefined")){%> <%}%> <%else {%> "> <%}%> <%if((Mostra("homepage") == "") \|\| (Mostra("homepage") == "undefined")){%> <%}%> <%else {%> " target="_blank"> <%}%>
<%=Mostra("oggetto")%> <%=Mostra("messaggio")%> Pubblicato in data <%=Mostra("data")%>

<% i++; Mostra.MoveNext(); } %>

<%if (pag > 1) {%>« Precedenti<%}%> <%else {%>« Precedenti<%}%>

<%if (!Mostra.EOF) {%>Successivi »<%}%> <%else {%>Successivi »<%}%>

<%Cn.Close()%>