Filoweb.it

Paginazione righe e colonne mia


FB TW whatsapp RSS FEED News letter
ASP
Paginazione righe e colonne mia


<%

on error resume next

dim contiamo

dim riga

dim RecordsPerPagina

RecordsPerPagina =9

dim page

page = Request(" page" )

if page=" " then page=1

riga =1

contiamo=1

Dim Con

Set Con = Server.CreateObject(" ADODB.Connection" )

con.Open " driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(" /lisa2/db/db.mdb" ) %>



<table border=" 0" cellpadding=" 2" cellspacing=" 2" align=" center" >

<tr>



<% Dim rs

Set rs = Server.CreateObject(" ADODB.Recordset" )

rs.Open " select * from works ORDER BY elenco DESC" , con ,1,3

rs.PageSize = RecordsPerPagina

rs.AbsolutePage = page

If rs.Eof=True or rs.Bof=True then

Response.Write " <P>Nessun risultato trovato</P>"

Else

For i=1 to RecordsPerPagina

if Not rs.EOF then

dim fileda

fileda=rs(" immagine" )

dim dimensioni

dimensioni=rs(" dimensioni" )

dim titol

titol=rs(" titolo" )

dim idpa

idpa=rs(" id" )

response.write(" <td align=center>" )

response.write(" <a href=/lisa2/deploy/" & fileda & " rel=lightbox[roadtrip]><img src=/lisa2/deploy/" & fileda & " style=height:100px;/></a><br/><span class=titolic><font size=2><b>" & titol &" </b></font><br/>" & dimensioni & " </span>" )

response.write(" </td>" )

if contiamo=3 then response.write(" <tr>" )

rs.MoveNext

contiamo=contiamo+1

if contiamo=4 then contiamo=1



end if

Next

End if



%>

<p align=" center" >

<%

Response.Write " <P align=center><B>Pagine:</B> "

For pag=1 to rs.PageCount

Response.Write " <A href=' nworks2.asp?page=" & pag

Response.Write " &" & Server.UrlEncode(strRicerca)

Response.write " ' >"

Response.Write pag

Response.Write " </A> "

Next

Response.Write " </P>"

%>

<% RS.Close

Set RS = Nothing

con.Close

Set con=Nothing %>

</tr>

</table>
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 righe e colonne mia. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it