Filoweb.it

Paginazione righe e colonne mia


FB TW G+ 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 G+ 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 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 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