:: FILOWEB.it: PAGINAZIONE mia I

 
		  <%

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