:: FILOWEB.it: 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>