Filoweb.it

    <%
  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 %>