Filoweb.it

PAGINAZIONE mia I


FB TW whatsapp RSS FEED News letter
ASP
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 %>
FB TW whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito filoweb.it sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito filoweb.it.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP, Titolo:PAGINAZIONE mia I. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it