codice:
<%@LANGUAGE = JScript%>

<%
	var Cn = new ActiveXObject("ADODB.Connection");
	Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("../mdb-database/pb.mdb"));
	var Sql = "SELECT * FROM messaggi WHERE titolo <> '' ORDER BY modificato DESC";
	var MostraMessaggi = new ActiveXObject("ADODB.Recordset");
		MostraMessaggi.Open(Sql,Cn,1);
	var pag = parseInt(Request.QueryString("id"));
		if (isNaN(pag) || pag < 1) pag = 1;
		if (!MostraMessaggi.EOF) {
			MostraMessaggi.PageSize = 20;
			MostraMessaggi.AbsolutePage = pag;
		}
	var i = 0;
	var ContaDiscussioni = Cn.Execute("SELECT COUNT(*) AS id FROM messaggi WHERE titolo <> '' AND id = id");
%>
<html>
 <head>
  <title>Forum :: Homepage</title>
  <style type="text/css">
   body { margin: 0px, 0px, 0px, 0px; }
   div, td, input, textarea { font-size: 10px; font-family: Verdana; }
   a { color: #00155E; text-decoration: None; }
   a:hover { color: #FFFFFF; text-decoration: Underline; }
  </style>
   <style type="text/css">
<!--
body {
	background-color: #FFC339;
}
.Stile2 {color: #9E6000}
.Stile1 {color: #00155E}
-->
   </style>
 </head>
<body scroll="Yes">

<table width="450" align="center" cellpadding="1" cellspacing="0" bgcolor="#FFC339">
 <tr>
   <td colspan="3" align="center" style="color: #FF0000;">
    <b class="Stile2">Piccolobill Forum[/b]

    

    Inserisci un nuovo messaggio

    
   </td>
 </tr>
 <tr bgcolor="#9E6000" style="color: #FFFFFF;">
   <td width="300" style="border: Solid 1px #000000;">Discussione</td>
   <td width="30" align="center" style="border-top: Solid 1px #000000; border-bottom: Solid 1px #000000;">Risp.</td>
   <td width="120" align="center" style="border: Solid 1px #000000;">Autore</td>
 </tr>
 <%
 var n = 0;
 while (!MostraMessaggi.EOF && i < 20) {
 if (n%2 == 1) {
 %>
 <tr bgcolor=" #EEEEEE">
   <td style="border-bottom: Solid 1px #CCCCCC;"><span class="Stile1">&#187; " class="Stile1"><%=Server.HTMLEncode(MostraMessaggi("titolo"))%></span></td>
   <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><span class="Stile1"><%=Server.HTMLEncode(MostraMessaggi("risposte"))%></span></td>
   <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><span class="Stile1"><%=Server.HTMLEncode(MostraMessaggi("nome"))%></span></td>
 </tr>
 <%
 } else {
 %>
 <tr bgcolor="#FFC339">
   <td style="border-bottom: Solid 1px #CCCCCC;"><span class="Stile1">&#187; "><%=Server.HTMLEncode(MostraMessaggi("titolo"))%></span></td>
   <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><span class="Stile1"><%=Server.HTMLEncode(MostraMessaggi("risposte"))%></span></td>
   <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><span class="Stile1"><%=Server.HTMLEncode(MostraMessaggi("nome"))%></span></td>
 </tr>
 <%
 }
 n++;
 i++;
 MostraMessaggi.MoveNext();
 }
 %>
</table>




<table align="center" width="450" cellpadding="1" cellspacing="0">
 <tr>
   <td width="225"><span class="Stile1"><%if (pag > 1) {%>Precedenti<%} else {%>Precedenti<%}%>
   </span></td>
   <td width="225" align="right"><%if (!MostraMessaggi.EOF) {%>Successivi<%} else {%>Successivi<%}%></td>
 </tr>
</table>




<div align="center" class="Stile1">Ci sono <%=ContaDiscussioni("id")%> discussioni presenti</div>

</body>
</html>
<%Cn.Close()%>