Sub FrmElenco
‘ Prelievo da http il Numero di pagina
PageNo = GetHttpVariable("PageNo",1)
if (PageNo = 0 or isNull(PageNo) or isEmpty(PageNo)) then PageNo=PageNo+1
ArtXPag = 10
‘Conto il numero di articoli e metto il risultato in una variabile chiamata ‘“TotNumeroArticoli”.
sqlCount = "SELECT Count(idArticolo) AS NumArt "&_
" FROM Articoli "
Set rs = Conn.Execute(sqlCount)
TotNumeroArticoli = rs("NumArt")
rs.Close
Set rs = Nothing
%>
<h1>Elenco degli articoli Attivi</h1>
<table border="0">
<tr><td colspan="2"><a href="articoli.asp?a=2">Nuovo Articolo</a></td></tr>
<%
sql = "select top " & PageNo*ArtXPag &" * "&_
" FROM Articoli"
Set rs = Conn.Execute(sql)
if not rs.Eof then
rs.move(ArtXPag*(PageNo-1))
%><tr><td align="center"><strong>Titolo</strong></td><td align="center">&nbsp;</td><td>&nbsp;</td></tr><%
Do while rs.Eof = False
%><tr><td><li><%=rs("titolo")%></li>&nbsp;&nbsp;&nbsp;</td><td bgcolor="#ffffcc">&nbsp;&nbsp;
<a href="articoli.asp?a=3&id=<%=rs("idArticolo")%>">mod</a> - 
<a href="articoli.asp?a=7&id=<%=rs("idArticolo")%>">genera sul file[<%=rs("NomeFile")%>]</a> -
<a href="articoli.asp?a=8&id=<%=rs("idArticolo")%>" target="_Blank">Preview</a> - 
<a href="articoli.asp?a=6&id=<%=rs("idArticolo")%>">Cancella</a>
</td></tr><%
rs.MoveNext()
Loop
Else
%><tr><td>Nessun Articolo Attivo</td></tr><%
End if
%></table>
<br>

<%
if TotNumeroArticoli>0 then
%>
<table>
‘ Scrivo il numero degli articoli presenti.
<tr><td align="center"><strong>Numero Articoli in Archivio:</strong><em><%= TotNumeroArticoli %></em></td></tr>
<tr><td align="center"><%
‘Divido il Numero di articoli per il numero di record a pagina
‘ e ripongo il resto della divisione nella variabile “tmp”.
tmp = TotNumeroArticoli mod ArtXPag
LastPage = int(TotNumeroArticoli/ArtXPag)+1
‘ Se l’ultima pagina è superiore alla prima genera i link numerici relativi al numero di pagina
if LastPage>1 then
‘Faccio un iterazione che va da 1 sino al numero di pagina finale (contenuto nella variabile LastPage)
for i = 1 to LastPage
if (Cint(PageNo)=i) then
‘ se la pagina è la corrente non scrivere il link
response.write "<b>"& i &"</b> "
Else
‘Altrimenti scrivilo
response.write "<a href="&chr(34)&"articoli.asp?PageNo="&i&chr(34)&">"&i&"</a> "
End if
Next
End if
%></td></tr>
</table><%
End if
End Sub