13 messaggi dal 05 ottobre 2003
ciao raga, dopo una giornata ho scoperto il bug nel motore di ricerca
che sto costruendo.
effettuata la ricerca i records che devono essere visualizzati devono
essere 15,dopo di che viene fuori 1 2 (le pagine)
ora mi sono accorto che se scrivo questo tipo di codice:
-----
if request("trova") = "Cerca" then
ricerca = request("search")
categoria = request("categoria")
comune = request("comune")
provincia = request("provincia")
----
allora mi passa alla seconda pagina dove verranno visulaizzati il resto
dei records

se invece scrivo così(e questo è il codice che a me interessa)
----
if request("trova") = "Cerca" then
ricerca =replace (request.form("search"),"'","''")
categoria = replace (request.form("categoria"),"'","''")
comune = replace (request.form("comune"),"'","''")
provincia = replace (request.form("provincia"),"'","''")
-----
quando clicco sul 2 mi dà il msg "nessun risultato trovato"


per proseguire la ricerca nelle eventuli pagine successive ho scritto
questo codice:
------
<%
rs.movenext
end if
Next
For i = 1 To Rs.PageCount
If i = page Then
pagine=pagine&"<b>[" & i & "]</b>&nbsp;"
Else

pagine=pagine&"<a href='ricerca.asp?page="&i&"&search="&ricerca&"&categoria="&categoria&"&comune="&comune&"&provincia="&provincia&"&trova=Cerca'>" & i &"</a>&nbsp;"
End If
Next
pagine = "Pagine: "&pagine
response.write pagine
%>
-----
credo che la modifica vada fatta in quest'ultimo, mi dite come?

Modificato da osso il 31 gennaio 2004 14.58 -
11.886 messaggi dal 09 febbraio 2002
Contributi
Ciao,
posta il codice in cui valorizzi rs.AbsolutePage. Stai facendo così?

<%
rs.PageSize=15
if isNumeric(Request.QueryString("page")) then
rs.AbsolutePage= CInt(Request.QueryString("page"))
end if
%>

Leggi questo articolo sulla paginazione, forse può risolvere il tuo problema. ciao
http://www.aspitalia.com/liste/usag/script.aspx?ID=208

Enjoy learning and just keep making
13 messaggi dal 05 ottobre 2003
ecco qui il codice(è questo che dev'essere modificato?)

<%
RecordsPerPage = 10

page = request.querystring("page")

If Len(page) > 0 And IsNumeric(page) Then
page = CLng(page)
Else
Page = 1
End If

num = rs.RecordCount
Rs.PageSize = RecordsPerPage
Rs.AbsolutePage = Page

For x = 1 To RecordsPerPage
if not rs.eof then
%>
13 messaggi dal 05 ottobre 2003
ragà mi avete abbandonato?
Modificato da osso il 04 febbraio 2004 21.08 -
11.886 messaggi dal 09 febbraio 2002
Contributi
quest'utlimo codice sembra corretto, sei sicuro che passando di pagina in pagina non venga falsata la chiave di ricerca?
Fai un response.write della query sql. Cambiando pagina deve risultare che è sempre uguale.

Enjoy learning and just keep making

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.