NEWS

Pagina 1:

<% dbPath = server.mapPath("../database/WM1.mdb") dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath dim objConn set objConn = server.createObject("ADODB.Connection") objConn.open dbConnString strSql = "SELECT * FROM news ORDER BY ordine DESC" set rs = server.createObject("ADODB.Recordset") rs.open strSql, objConn, 1, 3 cont=0 num=4 if not rs.eof then do while not rs.eof if cont mod num = 0 and cont>1 then %>

Pagina <%=cont/num+1%>:

<% end if %>

<%=rs("data")%>
<%=rs("titolo")%>
<%=limitaCaratteri(replace(rs("testo"),vbcrlf," "), 100)%>	" style="color:#666; font-weight:bold">  LEGGI

<% cont=cont+1 rs.moveNext loop end if rs.close set rs = nothing cont=cont/num+1 %>