I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
Maiden2
Maiden2
il 30 marzo 2004 alle 09:00
88 messaggi dal 24 giugno 2003
Buon giorno a tutti
allora un problema che ho in questo momento riguarda la paginazione non trovo niente a riguardo .... se non uno script che non mi funziona per via di alcuni oggetti che non vengono riconosciuti.... .absolutepage etc etc etc qualcuno di voi mi sa indicare un buon script e facile a riguardo ?
RispondiQuoting
xceres
xceres
il 30 marzo 2004 alle 10:25
68 messaggi dal 23 marzo 2004

Prova questo:

<%
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
' STRINGA SQL
strRicerca = Request("ricerca")
SQL = "SELECT * FROM Ricerca WHERE Descrizione LIKE '%" & strRicerca & "%'"
'apri recordset
' paginazione
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
'mostra record
rs.MoveNext
end if
Next
End if
%>
Infine, per aggiungere una barra di navigazione tra le pagine con risultati:
<%
Response.Write "<P><B>Pagine:</B> "
For pag=1 to rs.PageCount
Response.Write "<A href='pagina.asp?page=" & pag
Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
%>
RispondiQuoting
Maiden2
Maiden2
il 30 marzo 2004 alle 10:39
88 messaggi dal 24 giugno 2003
eccomi nuovamente....
il problema che mi da ora è questo:
Tipo di errore:
ADODB.Recordset (0x800A0E78)
L'operazione non è consentita se l'oggetto è chiuso.
/olbia3/oggetti/messaggi.asp, line 39
questa è la parte di codice incriminata la linea 39 corrisponde a:
Rs2.AbsolutePage = page

Dim Conn2
Set Conn2=Server.CreateObject("ADODB.Connection")
Conn2.Open " Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& Server.MapPath(""&datab&"")
Dim Rs2
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.Open " SELECT * FROM messaggi WHERE user_nick='"&nick&"'" , Conn2 ,3
Rs2.PageSize = RecordsPerPagina
Rs2.AbsolutePage = page
If rs2.Eof=True or rs.Bof=True then



-----------------------------------------
RispondiQuoting
seoman
seoman
il 30 marzo 2004 alle 11:21
2.584 messaggi dal 14 maggio 2001
Puoi cambiare il valore di AbsolutePage solo se non sei a fine recordset (cioè hai almeno un record)
RispondiQuoting
Maiden2
Maiden2
il 30 marzo 2004 alle 11:25
88 messaggi dal 24 giugno 2003
ok sono riuscito a far andare questo script però c'è un problema che non riesco a capire..... allora anzike quella query dello script ho usato la mia
--------------------------------------------------------------------------------------------
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.Open " SELECT * FROM messaggi WHERE user_nick='"&nick&"'" , Conn2 ,3
-------------------------------------------------------------------------------------------
Però quando vado a pescare la prima pagina ... mi legge tutti i record
dopo di ke inizia a scalare ....
del tipo in recordperpagina metto 2 e la prima pagina li visualizza tutti
la seconda ne visualizza 7 anzike 12 la terza 6 e l'ultima 2
qualcuno mi sa spiegare?
RispondiQuoting
seoman
seoman
il 30 marzo 2004 alle 11:53
2.584 messaggi dal 14 maggio 2001
Prova a postare il codice...
probabilmente modifiche il numero di record per pagina "PageSize"
RispondiQuoting
Maiden2
Maiden2
il 30 marzo 2004 alle 11:56
88 messaggi dal 24 giugno 2003
eccoti il codice
<%
RecordsPerPagina = 3
page = Request("page")
if page="" then page=1

Dim Conn2
Set Conn2=Server.CreateObject("ADODB.Connection")
Conn2.Open " Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& Server.MapPath(""&datab&"")
Dim Rs2
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.Open " SELECT * FROM messaggi WHERE user_nick='"&nick&"'" , Conn2 ,3
Rs2.PageSize = RecordsPerPagina
Rs2.AbsolutePage = page
If Rs2.Eof=True or Rs2.Bof=True then
niente = "<P>Nessun risultato trovato</P>"
Else
For i=1 to RecordsPerPagina
if Not Rs2.EOF then
%>
RispondiQuoting
Maiden2
Maiden2
il 30 marzo 2004 alle 14:57
88 messaggi dal 24 giugno 2003
vi pregooooooooo aiutatemiiiiiiiiiiiii!!!
RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.