Originariamente inviato da Santino83_02
quando clicca sul pulsante 2 non gli mandi nella nuova pagina le chiavi di ricerca per rifare la query (quelle che, in pratica, la prima intercetta dal form di ricerca)...

ti ho parlato in arabo e devo spiegare oppure hai capito?
Arabo

Ce la fai a farmi due righe cosi le provo

Ti riscrivo il codice

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


Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/Documenti.mdb")

Set Rs = Server.CreateObject("ADODB.Recordset")

dim stringaSQL
stringaSQL = "SELECT * FROM News "
stringaSQL = stringaSQL + "WHERE Marchio like '" & strMarchio & "%' "
stringaSQL = stringaSQL + "AND Modello like '" & strModello & "%' "
stringaSQL = stringaSQL + "AND Anno like '" & strAnno & "%' "
if strCarrozzeria <> "0" then stringaSQL = stringaSQL + "AND Carrozzeria = '" & strCarrozzeria & "' "
if strKm <> "0" then stringaSQL = stringaSQL + "AND (Km BETWEEN " & Kmmin & " AND " & Kmmax & ")"
if strCilindrata <> "0" then stringaSQL = stringaSQL + "AND Cilindrata = '" & strCilindrata & "' "
if strAlimentazione <> "0" then stringaSQL = stringaSQL + "AND Alimentazione = '" & strAlimentazione & "' "
if strPrezzo <> "0" then stringaSQL = stringaSQL + "AND (Prezzo BETWEEN " & Prezzomin & " AND " & Prezzomax & ")"
if strConcessionaria <> "0" then stringaSQL = stringaSQL + "AND Concessionaria = '" & strConcessionaria & "' "


Rs.Open stringaSQL, MyConn , 3,3


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

'imposto la dimensione della pagina
Rs.PageSize = perpage
' mi sposto all'ultima pagina
Rs.AbsolutePage = page
..................
For i = 1 to perpage
If Not Rs.EOF then
codice per visualizzare i record
Rs.MoveNext
end if
next
..................

Response.Write "

Pagine: "

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

Response.Write "</P>"


Fammi sapere

Ciao e grazieeeeee