Risultati database con FrontPage - cambio pagina

**mastrocd** · 04-03-2007, 05:05

Ciao a tutti, sono entrat da pochissimo nel mondo dei database e ho un piccolo problemino che però infastidisce molto.
Sul mio sito ho crato un'unica pagina in asp per visualizzare, determinati dati presenti sul database e, non conoscendo a fondo i database e l'asp mi sono fatto aiutare da FrontPage e ne ho successivamente modificato il codice in base alle mi esigenze (modifiche che riguardano esclusivamente l'impaginazione ma non il codice).
Ora richiamando la pagina con un link tipo

test.asp?prodotto=ferro

i risultati vengono visualizzati in modo corretto e correttamente divisi in più pagine, vado alla pagina 2 e ancora tutto Ok, successivamente richimao il link

test.asp?prodotto=legno

i risultati sono ancora corretti ma partono dalla pagina in cui ero precedentemente cioè la 2, naturalmente posso tornare alla 1 o andare avanti ma io vorrei che i risultati della nuova ricerca partissero dalla prima pagina.
Come è possibile risolvere il problema?
Spero che lo sia ed eventualmente è possibile sostituire l'avanzamento delle pagine fatte con form FORM con semplici collegamenti html.
Spero mi possiate aiutare grazie.
Eventualmente potreste consigliarmi un'altra strada, o qualche script ben spiegato da seguire per ottenere gli stessi risultati utilizzando altri metodi senza ricorrere a FrontPage (che uso solo ed esclusivamente per la ricerca su database)?
Grazie a tutti

**Mems** · 04-03-2007, 11:25

Guarda, in questo forum ci sono migliaia di esempi.
Basta che fai una ricerca usando la parola "paginazione".

**mastrocd** · 04-03-2007, 16:55

Avevo già fatto una ricerca ma in ogni script qualcosa mancava, quello più adatto alla situa zione sembrava essere questo:
http://www.aspcenter.net/articoli/142.asp
ma qui si pone un altro problema, lo script visualizza tutti i record del DB mentre io ho bisigno che vengano visualizzati solo alcuni record utilizzando un link tipo

test.asp?prodotto=ferro

senza quindi creare per ogni "ricerca" una pagina diversa.

**mastrocd** · 04-03-2007, 18:45

Bene ben ci siamo quasi, ho trovato uno script ottimo grazie al forum, ma ho bisogno di un aiutino, lo script è questo:

<%@ Language=VBScript %>
<% response.buffer=true %>
<% Server.ScriptTimeout = 300 %>

<html>
<head>
<title>Creamweb.it - Paginazione</title>
</head>
<BODY>
Paginazione dei risultati di una query

<%
IdCategoria = trim(request.querystring("IdCategoria"))
iPageSize = 5 'NUMERO RECORD PER PAGINA

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

strSQL = "SELECT * FROM tbl_Prodotti WHERE IdCategoria="& IdCategoria&""
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

reccount = objRS.recordcount
iPageCount = objRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write "Non sono stati trovati prodotti"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<%
'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
Response.Write "

" & objRS("nome") & " | "
Response.Write "" & objRS("titolo_categoria") & " | "
Response.Write "" & objRS("prezzo") & "</p>"
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>

<%End if%>

<%If ipagecount <> 1 Then%>

<%end if%>
<%
objConn.Close
Set objConn = Nothing
%>

</body>
</html>

Tratto da Creamweb.it
Così composto lo script funziona alla grande, l'unica cosa di cui ora ho bisogno è creare una query dinamica in base a :
titolo_categoria = '::titolo_categoria::' OR cat_secondaria = '::cat_secondaria::' OR note = '::note::'
il tutto da richiamare tramite un smplice link html tipo : test.asp?note=novita .
Ho provato a modificare il codice con la query

WHERE IdCategoria="& IdCategoria&"

che pur non servendomi funziona perfettamente, ma se sostituisco IDCategoria con il parametro titolo_categoria tutto smette di funzionare e mi è poi impossibile combinare più criteri, spero mi possiate aiutare.

Grazie 1000

**mastrocd** · 05-03-2007, 03:02

Scusate se vi ho fatto perdere tempo a leggere ma credo di aver risolto tutto eccco il codice definitivo:

<%@ Language=VBScript %>
<% response.buffer=true %>
<% Server.ScriptTimeout = 300 %>

<html>
<head>
<title>Creamweb.it - Paginazione</title>
</head>
<BODY>
Paginazione dei risultati di una query

<%
titolo_categoria = trim(request.querystring("titolo_categoria"))
cat_secondaria = trim(request.querystring("cat_secondaria"))
note = trim(request.querystring("note"))
id = trim(request.querystring("id"))
iPageSize = 8 'NUMERO RECORD PER PAGINA

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

strSQL = "SELECT * FROM tbl_Prodotti WHERE titolo_categoria = '"& titolo_categoria &"' OR cat_secondaria = '"& cat_secondaria &"' OR note = '"& note &"'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

reccount = objRS.recordcount
iPageCount = objRS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write "Non sono stati trovati prodotti"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<%
'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
Response.Write "

" & objRS("nome") & " | "
Response.Write "" & objRS("titolo_categoria") & " | "
Response.Write "" & objRS("prezzo") & "</p>"
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>

<%End if%>

<%If ipagecount <> 1 Then%>

<%end if%>
<%
objConn.Close
Set objConn = Nothing
%>

</body>
</html>

**mastrocd** · 05-03-2007, 05:15

Azz pensavo di avere finito ma........................
c'è un minuscolo problema, il prezzo non mi viene visualizzato con i doppio decimale, qualche suggerimento?

Discussione: Risultati database con FrontPage - cambio pagina

Strumenti discussione

Ricerca discussione

Visualizza

Risultati database con FrontPage - cambio pagina

Prezzo....

Permessi di invio