<%
' CONTROLLA SE SI E' IDENTIFICATI
IF session("amministratore")<>true then
Response.Redirect "index.asp"
End IF
%>
<html>
<head>
<title>GESTIONE NEWS</title>
</head>
<body>
<p align="left">
<font size="4" face="Verdana">> Gestione News!</font></p>
<%
' NUMERO DI NEWS PER PAGINA
iPageSize = 50
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If
' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.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 NEWS INSERITA -> VIENE VISUALIZZATO UN MESSAGGIO CHE INFORMA CHE NON E' PRESENTE
' NEMMENO UNA NEWS NEL DB
If iPageCount = 0 Then
%><hr>
<p align="center">
<font size="2" face="Verdana">Nessuna news presente!</font></p>
<hr>
<%
Else
RS.AbsolutePage = iPageCurrent
iRecordsShown = 0
' SE INVECE SONO PRESENTI NEWS
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
' VISUALIZZA I TITOLI DELLE NEWS
Do While iRecordsShown < iPageSize And Not RS.EOF
numero = numero + 1
%>
<tr>
<td width="7%"><font face="Verdana" size="2"><%=numero%>.</font></td>
<td width="172%"><font face="Verdana" size="2">
"><%=RS("Titolo")%>
di
<%=RS("autore")%> - <%=RS("data")%></font></td>
<td width="19%"><font face="Verdana" size="2">
">Cancella</font></td>
</tr>
<%
' COMPLETA LA VISUALIZZAZIONE DEI TITOLI DELLE NEWS E CHIUDE LA CONNESSIONE
' AL DATABASE
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>
</table>
<%
End If
RS.Close
Set RS = Nothing
Conn.Close
%><center>
<%
' MOSTRA IL NUMERO DELLE PAGINE
' DATO CHE VERRANNO MOSTRATI
' IN QUESTO ESEMPIO 50 NEWS PER PAGINA
For x=1 to iPageCount
%>
<font face="Verdana" size="2">[
<%=x%> ]</font>
<%
next
%>
</center>
<font face="Verdana" size="2"><a href="Aggiungi_news.asp">Aggiungi nuova
news</a></font></p>
</body>
</html>