<%
Dim sc, cn, rs, quanti, pag, contatore
Dim Con
Set Con = Server.CreateObject(" ADODB.Connection" )
con.Open " driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(" /quadernino/quadernino.mdb" )
' ---------------------------------------
' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA
quanti = 5
' RECUPERO IL NUMERO DI PAGINA CORRENTE
' E CONTROLLO CHE NON SIA INFERIORE A 1
pag = Request.QueryString(" pag" )
If IsNumeric(pag) = False Or pag < 1 Then pag = 1
' IMPOSTO UN CONTATORE
contatore = 0
' -------------------------------------------
Dim rss
Set rss = Server.CreateObject(" ADODB.Recordset" )
rss.Open " select * from script order by id desc" , con ,1,3
rss.PageSize = quanti
rss.AbsolutePage = pag
%>
</font></p>
<%response.write(" <table border=0 align=center cellpadding=0 cellspacing=0>" )%></th>
</tr>
<tr>
<td ><span class=" style48" >TIPO</span></td>
<td ><span class=" style48" >TITOLO</span></td>
<td><span class=" style48" > </span></td>
<td align=" center" ><span class=" style48" >COMMENTI</span></td>
</tr>
<tr>
<td ></td>
<td ></td>
<td ></td>
<% Do while NOT RSs.EOF and contatore < quanti %>
<%Dim id
id=rss(" id" )
Dim titolo
titolo=rss(" tipo" )
dim autore
autore=rss(" titolo" )
' dim quando
' quando=rss(" data" )
' dim commenti
' commenti=rss(" commenti" )
%>
</tr>
<tr>
<td valign=" top" ><%response.write(" <a href=leggis.asp?idd=" )%>
<%response.write(id)%>
<%response.write(" >" )%>
<%response.write(" LEGGI" )%>
<%response.write(" </a>" )%></td>
<td valign=" top" >
<%response.write(" <a href=leggis.asp?idd=" )%>
<%response.write(id)%>
<%response.write(" >" )%>
<span style=" text-transform: capitalize" >
<%response.write(titolo)%></span>
<%response.write(" </a>" )%> </td>
<td valign=" top" ><%response.write(" <a href=leggis.asp?idd=" )%>
<%response.write(id)%>
<%response.write(" >" )%>
<%response.write(autore)%>
<%response.write(" </a>" )%></td>
<td align=" center" valign=" top" ><%response.write(" <a href=leggis.asp?idd=" )%>
<%response.write(id)%>
<%response.write(" >" )%>
<% response.write(" <strong>LEGGI</strong>" )%> <%response.write(" </a>" )%> </td>
</tr>
<%
contatore = contatore + 1
RSs.MoveNext
Loop %>
<% RSs.Close
Set RSs = Nothing
con.Close
Set con=Nothing %>