<% PageNo=Request.querystring("pagina") If PageNo="" Then PageNo=1 End If set conn=server.createobject("adodb.connection") conn.open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("/mdb-database/dbacnews.mdb") sql="select * from news order by data desc" set rs=server.createobject("adodb.recordset") rs.open sql, conn, 1, 3 if not rs.eof then rs.Pagesize=20 rs.AbsolutePage=PageNo end if %> <% if rs.eof = false then %> <% for x = 1 to 20 %> <% rs.movenext %> <% if rs.eof then exit for %> <% next %> <% end if %> <% rs.close conn.close set rs=nothing set conn=nothing %>
Archivio di tutti i Comunicati
<%=rs("data")%> - &sid=<%=session.sessionid%>" class=linkgnr><%=mid(rs("titolo"), 1, 68) & "..."%>
 
<% response.write "" response.write "
" If PageNo > 1 then response.write "" & "Pagina precedente" & "" Else response.write " " End If response.write "" If NOT RS.eof then response.write "" & "Prossima pagina" & "" Else response.write " " End If response.write "
"%>