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):
adesso il casino che non riesco a trovare una soluzione per stò benedetto limit..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 %>
qualcuno mi delucidà![]()
![]()
![]()
![]()
![]()
![]()
![]()
poi se riesco e se è di brescia ha una sbronza pagata![]()
ciao

Rispondi quotando