inserire pulsanti pagina successiva e pagina precedente

[Lino80]

come fare?

End If

else
			
				If (QSCategoria = "") Then
					SQL = " SELECT * FROM Prodotti WHERE SCategoria = "& [QSSCategoria] &" AND Cancellato = False ORDER BY ID DESC "
					RS.Open SQL, Conn, 1
				End If
	
				If (QSCategoria <> "") Then
					SQL = " SELECT * FROM Prodotti WHERE Categoria = "& [QSCategoria] &" AND Cancellato = False ORDER BY ID DESC"
					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
%>

[Lino80]

come in questo esempio: http://www.ironico.it/filmati.asp?pa...3&Ordinamento=

grazie

[Lino80]

up

[Lino80]

uppettone

[Lino80]

uppettissimo!!!

[Mems]

End If

else
			
				If (QSCategoria = "") Then
					SQL = " SELECT * FROM Prodotti WHERE SCategoria = "& [QSSCategoria] &" AND Cancellato = False ORDER BY ID DESC "
					RS.Open SQL, Conn, 1
				End If
	
				If (QSCategoria <> "") Then
					SQL = " SELECT * FROM Prodotti WHERE Categoria = "& [QSCategoria] &" AND Cancellato = False ORDER BY ID DESC"
					RS.Open SQL, Conn, 1
				End If
			End If

			If Not RS.EoF Then 
				RS.MoveFirst
				RS.AbsolutePage = QSPg

			Precedente = "Precedente"
                        Successiva = "Successiva"

                               If QSPg <> 1 Then
					Footer = "" & PrimaPagina & " "
                                        Footer = Footer & "" & Precedente & " "
				Else
					Footer = PrimaPagina & " "
                                        Footer = Footer & Precedente
				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 & "" & Successiva & " "
					Footer = Footer & "" & UltimaPagina & ""
				Else
					[b]Footer = Footer & Successiva & " " & UltimaPagina
				End If

				For I = 1 To RS.PageSize
					If RS.EOF Then Exit For
%>

[Lino80]

grazie

[Mems]

Originariamente inviato da Lino80
grazie

Prego...