Archivio News
<%
'numero di news per pagina
iPageSize = 15
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
if Request.QueryString("order") = "" Then
strOrder = "id"
Else
strOrderBy = Request.QueryString("order")
End If
'percorso databases
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/news.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RS = Server.CreateObject("ADODB.Recordset")
'fa la richiesta al database
sql = "SELECT * FROM News ORDER BY " & strOrderBy & " DESC;"
RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize
RS.CacheSize = iPageSize
iPageCount = RS.PageCount
If iPageCurrent >iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
'nessuna nuova news inserita , in questo caso viene visualizzato un messaggio che informa che niente è presente
If iPageCount = 0 Then
%><hr>
nessuna news presente
<hr>
<%
Else
RS.AbsolutePage = iPageCurrent
iRecordsShown = 0
'se invece sono presenti news
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
Do While iRecordsShown <iPageSize And Not RS.EOF
%>
<tr>
<td width="2%">></td>
<td width="98%">
"><%=RS("Titolo")%>di
<%=RS("Autore")%> - <%=RS("Data")%></td>
</tr>
<%
'completa la visualizzazione dei titoli delle news e chiude la connessione al db
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>
</table>
<%
End If
RS.Close
Set RS = Nothing
Conn.Close
%>
<center>
<%
'mostra il numero delle pagine in questo caso qui ci sono solo 15 news per pagina
For x=1 to iPageCount
%>
[
<%=x%>]
<%
next
%>