Filoweb.it

PAGINAZIONE MIA 10 risultati per apgina


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