16 messaggi dal 18 maggio 2001
Innanzitutto posto il codice, e poi spiego:

telefono=Request.Form("telefono")
testo=Request.Form("testo")
controllo=Request.Form("controllo")

if telefono<>"" then
stringa = stringa & "telefono='" & telefono & "';"
end if
if testo<>"" then
stringa = stringa & "testo1 like '%" & testo & "%';"
end if
if controllo<>"" then
stringa = stringa & "pagamento='" & controllo & "';"
end if

arrQuery=Split(stringa, ";")
e=ubound(arrQuery)
sql = "Select * from t_ann_new"
if e = 1 then
sql = sql & " where " & arrQuery(0)
else
if e > 1 then
sql = sql & " where " & arrQuery(0)
valore = request.form("R1")
If valore = "V1" then
condizione = " AND "
else
condizione = " OR "
end if
for i=1 to e-1
sql = sql & condizione & arrQuery(i) & " "
next
end if
end if
Response.write(sql)

Dim conn
Dim oRS
Set conn = Server.CreateObject("ADODB.Connection")
conn.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\db\mercatino.mdb"))
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.open sql, conn, 3, 3
RecordsPerPagina = 4
testo1 = ""
page = TRIM(Request.QueryString("page"))
If page="" Then
page = 1
Else
page = CInt(page)
End If

' paginazione
ors.PageSize = RecordsPerPagina
ors.AbsolutePage = page

If Ors.Eof=True or Ors.Bof=True then
Response.Write "<P>Nessun risultato trovato</P>"
Else
Response.write("<br>" &VbCrLf)
testo1 = Request.QueryString("testo1")
if testo1 = "" then
testo1 = testo
end if


For i=1 to RecordsPerPagina
Response.write ....
.....
Ors.movenext
.....
Next
If ( page > 1) Then
Response.write("<div style='position:absolute; left:5px'>")
Response.Write("<a href=""ricerca_annunci.asp?testo1=" & testo1 & "&page=" &page-1& """><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>Precedente</a>")
Response.write("</div>")
End If
If ( page < ors.PageCount ) Then
Response.write("<div style='position:absolute; left:500px'>")
Response.Write( "<a href=""ricerca_annunci.asp?testo1=" & testo1 & "&page=" &page+1& """><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>Successiva</a>")
Response.write("</div>")
End If
.end if
'Ors.close
conn.close
set Ors=nothing
set conn=nothing

%>


il problema è questo: mettiamo che la query sia che il campo TESTO1 contenga la parola CELL: quando visualizzo le pagine, sulla prima tutto bene, sulla seconda tutto bene, ma sulla terza e seguenti comincio a vedere che ci sono anche records che non contengono quella parola.
Di conseguenza penso che le prime due pagine vengano giuste per puro caso, e che o la costruzione della query è sbagliata, o sbaglio qualcos'altro.
Grazie della pazienza e dell'aiuto.


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.