Ho provato ma non mi fa andare a capo...Per rispondere a supergeniux il forum non è mio..solo che quello che l'ha fatto si è dimenticato di mettere il codice per andare a capo...azz...
Per il contatore di messaggi...ti metto tutto il codice
codice:
<%@LANGUAGE = JScript%>
<%
var Cn = new ActiveXObject("ADODB.Connection");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("mdb-database/forum.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 = 25;
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:visited {text-decoration: none; color: "#E1138C" }
A:hover {text-decoration: none; color: "#000000" }
A:link {text-decoration: none; color: "#E1138C" }
A:active {text-decoration: none; color: "#000000" }
A:hover { TEXT-DECORATION: blink}
}
</style>
</head>
<body scroll="Yes">
<body background="http://www.soniczine.it/nuovo/bkg.jpg" topmargin="15" leftmargin="15">
<table align="center" width="732" cellpadding="1" cellspacing="0">
<tr>
<td colspan="4" align="center" style="color: #FF0000;">
Forum di discussione
Inserisci un nuovo messaggio
</td>
</tr>
<tr bgcolor="#FF0000" style="color: #FFFFFF;">
<td width="15" style="border: Solid 1px #000000;" align="center">*</td>
<td width="487" 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="200" align="center" style="border: Solid 1px #000000;">Autore</td>
</tr>
<%
var n = 0;
while (!MostraMessaggi.EOF && i < 30) {
if (n%2 == 1) {
%>
<tr bgcolor="#EEEEEE">
<td style="border-bottom: Solid 1px #CCCCCC;" align="center">
</td>
<td style="border-bottom: Solid 1px #CCCCCC;">"><%=Server.HTMLEncode(MostraMessaggi("titolo"))%></td>
<td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("risposte"))%></td>
<td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("nome"))%></td>
</tr>
<%
} else {
%>
<tr bgcolor="#FFFFFF">
<td style="border-bottom: Solid 1px #CCCCCC;" align="center">
</td>
<td style="border-bottom: Solid 1px #CCCCCC;">"><%=Server.HTMLEncode(MostraMessaggi("titolo"))%></td>
<td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("risposte"))%></td>
<td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("nome"))%></td>
</tr>
<%
}
n++;
i++;
MostraMessaggi.MoveNext();
}
%>
</table>
<table align="center" width="732" cellpadding="1" cellspacing="0">
<tr>
<td width="366"><%if (pag > 1) {%>Precedenti<%} else {%>Precedenti<%}%></td>
<td width="366" align="right"><%if (!MostraMessaggi.EOF) {%>Successivi<%} else {%>Successivi<%}%></td>
</tr>
</table>
<div align="center">Ci sono <%=ContaDiscussioni("id")%> discussioni presenti</div>
</body>
</html>
<%Cn.Close()%>