Filoweb.it

PAGINAZIONE MIA 10 risultati per apgina


FB TW G+ whatsapp RSS FEED
ASP
PAGINAZIONE MIA 10 risultati per apgina


   <% 
dim RecordsPerPagina 
RecordsPerPagina =10
dim page
page = Request(" page" )
if page=" "  then page=1

Dim Con 
Set Con = Server.CreateObject(" ADODB.Connection" )
con.Open " driver={Microsoft Access Driver (*.mdb)};dbq="  & server.mappath(" /quad/quadernino.mdb" )

Dim rs
Set rs = Server.CreateObject(" ADODB.Recordset" )
rs.Open " select * from script order by id 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 titolo
titolo=rs(" titolo" )
dim idp
idp=rs(" id" )
response.write(" <p align=center><a href=apri.asp?valore=" &idp&" >" &titolo&" </a></p>" )
        rs.MoveNext
     end if
  Next
End if
%>
</p>
<p align=" center" >
  <%
Response.Write " <P align=center><B>Pagine:</B> " 
For pag=1 to rs.PageCount
Response.Write " <A href=' quadernino2.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 %> 
FB TW G+ whatsapp RSS FEED

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 MIA 10 risultati per apgina. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it