Visualizzazione dei risultati da 1 a 3 su 3

Discussione: paginazione con limit

  1. #1
    Utente di HTML.it
    Registrato dal
    Feb 2003
    Messaggi
    215

    paginazione con limit

    Ciao a tutti..
    sono incasinato, stò passando da access a mysql e non riesco a venirne fuori con l'uso del limit nel mio script..

    ho fatto 2000 prove ma purtroppo ormai sono sfinito

    ho letto articoli e guide quà e là ma sta cosa del limit niente non mi esce..

    in pratica il codice di paginazione con absolute è questo (e anche parte dello script):
    codice:
    <%
    		If (QSSCATEGORIA = "") AND (QSCATEGORIA = "") AND (QSQuery = "") Then
    			Response.Redirect session("referer")
    		Else
    '---Stampo a vIDeo i prodotti delle categorie richieste
    			Set RS = Server.CreateObject("ADODB.RecordSet")
    			RS.PageSize = MaxprodottIPerPagina
    			
    			If QSQuery <> "" Then
    				QSQuery = Replace(QSQuery, "'", "''")
    				ArrQuery = Split(QSQuery, " ")
    				SQL = " SELECT * FROM prodotti WHERE "
    				For i = 0 to UBound(ArrQuery, 1)
    					SQL = SQL & "(PRODOTTO LIKE '%" & ArrQuery(i) & "%' OR PDESCRIZIONE LIKE '%" & ArrQuery(i) & "%' OR GDESCRIZIONE LIKE '%" & ArrQuery(i) & "%') AND "
    				Next
    				SQL = SQL & "CANCELLATO = 'N'"
    				RS.Open SQL, Conn, 1
    			Else
    				If (QSCATEGORIA = "") Then
    					SQL = " SELECT * FROM prodotti WHERE SCATEGORIA = "& [QSSCATEGORIA] &" AND (CANCELLATO = 'N') "
    
    					RS.Open SQL, Conn, 1
    				End If
    	
    				If (QSCATEGORIA <> "") Then
    					SQL = " SELECT * FROM prodotti WHERE CATEGORIA = "& [QSCATEGORIA] &" AND CANCELLATO = N "
    					RS.Open SQL, Conn, 1
    				End If
    			End If
    
    			If Not RS.EoF Then 
    				RS.MoveFirst
    				RS.AbsolutePage = QSPg
    
    				If QSPg <> 1 Then
    					Footer = "" & PrimaPagina & " "
    				Else
    					Footer = PrimaPagina & " "
    				End If
    
    				For I = 1 To RS.PageCount
    					If I = QSPg Then
    						Footer = Footer & I & " "
    					Else
    						Footer = Footer & ""& I &" "
    					End If
    				Next
    
    				If QSPg <> RS.PageCount Then
    					Footer = Footer & "" & UltimaPagina & ""
    				Else
    					Footer = Footer & UltimaPagina
    				End If
    
    				For I = 1 To RS.PageSize
    					If RS.EOF Then Exit For
    %>
    adesso il casino che non riesco a trovare una soluzione per stò benedetto limit..

    qualcuno mi delucidà

    poi se riesco e se è di brescia ha una sbronza pagata

    ciao

  2. #2

  3. #3
    Utente di HTML.it
    Registrato dal
    Feb 2003
    Messaggi
    215
    Originariamente inviato da 99eros9
    http://www.risorse.net/magazine/leggi.asp?id=104
    il problema che è la 300esima volta che tento di applicare ma sbaglio sempre tutto

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.