Salve amici di HTML.it vi chiedo un aiuto, io ho appena creato un sistema di commenti, ora vorrei aggiungerci l'impaginazione, cioè sotto l'articolo mi dovrebbero comparire solo gli ultimi 5 commenti il resto in altre pagine. Io ho un sito in asp con database vi mostro il codice che uso per i commenti:
<%
Sub Commenti(Pagina)
Dim data
data = Date()
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/mdb-database/database.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn
' estrai record
set rs = Conn.Execute("SELECT nome, commento, data FROM commenti WHERE Pagina = '" & Replace(pagina, "'", "''") & "'")
' non ci sono record
if rs.Eof then Response.Write("
<font color=#C40014>Nessun commento</p></font>")
' ciclo su tutti i record
do until rs.eof
Response.Write("
<font color=#C40014>Commento scritto da: </font>" & Server.HtmlEncode(rs("nome")) & " <span class=date><font color=#808080>- " & Server.HtmlEncode(rs("data")) & "</font></span>
")
Response.Write(Server.HtmlEncode(rs("commento")) & "</p>")
rs.moveNext
loop
%>
grazie per tutto
Rispondi quotando
