query e paginazione

[edovox]

Ciao a tutti scusatemi se uso apro l'ennesimo topic sulla paginazione delle query

Tornando al problema al seguende indirizzo sono visibili le pagine in questione:

http://www.fare-pubblicita.it/scelta.asp

Dalla prima pagina "scelta" tramite una select creo una session
Nella seconda pagina recupero il valore della sessione ed eseguo la query di recupero dati da un db in acess a questo punto mi vengono mostrati i valori della query nella totalità dei valori.
Io devo assolutamente far si che i valori siano mostrati uno alla volta

Ho letto le discussioni sulla paginazione dei risultati sul forum ma non capisco, tipo quando viene citato recupero la pagina....
Che pagina????
Cordiali saluti
edovox

[Roby_72]

Scaricati la paginazione che trovi tra i miei script e studiatela.

Roby

[edovox]

Ciao Roby_72 io ho usato questo
<%
com = request("com")
Session("comune")= com

com=Session("comune")

'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 10

dim Conn5
set Conn5 = server.createobject ("Adodb.Connection")

dim rs5
set rs5=server.CreateObject("Adodb.recordset")
Conn5.ConnectionString="provider=Microsoft.jet.ole db.4.0;Data Source=" & Server.MapPath ("/mdb-database/fare.mdb")& ";"
Conn5.Open sql, Conn5,1,3
rs5.Source="select * from posizione WHERE comuni like '%"& com &"%' ;"

If page = "" then
page = (rs5.PageCount)
End if

'imposto la dimensione della pagina
Rs5.PageSize = perpage
' mi sposto all'ultima pagina
Rs5.AbsolutePage = page

'scrivo i link ai 10 record
For i = 1 to perpage
If Not Rs5.EOF then
if Rs5("id") < 10 then
Response.Write ("[0" & Rs5("id") & "'> ")
else
Response.Write ("[" & Rs5("id") & "'> ")
end if
Rs5.MoveNext
end if
next

'scrivo i numeri delle pagine
Response.Write "

Pagine: "

For pag= 1 to rs5.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='questapagina.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='questapagina.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next

Response.Write "</P>"

'chiudo la connessione
Rs5.Close
Set Rs5 = Nothing
%>
mi da errore dice che non è permessa l'operazione quando l'oggetto è chiuso

[Roby_72]

Usa il mio esempio inserendo solo il tuo db, la tua query e i nomi dei campi.
Il resto non toccarlo.

Roby

[edovox]

Ciao scusa ma qual'è il tuo esempio??

grazie

[Roby_72]

http://www.creamweb.it/script/mostra...t/?id_script=9

Roby