Paginazione con le frecce

[freizer]

Ciao ragazzi vi posto di seguito il codice che uso per fare la paginazione su un sito che sto cercando di gestire.
tramite questo codice, visualizzo un determinato numero di articoli (prelevti da un database) per ogni pagina e in basso faccio uscire la paginazione numerica per la navigazione.
Funziona tutto perfettamente ma vorrei aggiungere le frecce "<" e ">" per andare avanti e indietro oltre ai numeri di pagina.
qualcuno può darmi una mano?

<%
					page = Request("Page")
					if page = "" then page = 1 else page = Cint(page)
					Set rs = Server.CreateObject("ADODB.Recordset") 
					record_per_pagina = num_righe_view_record * 2
					if id_cat = 0 then
						strsql = "SELECT TOP " & record_per_pagina & " * FROM articoli, categorie WHERE articoli.id_cat = categorie.id_cat AND categorie.sezione = 'bagno'"
					else
						if id_rif = 0 then
							strsql = "SELECT * FROM articoli, categorie where articoli.id_cat = categorie.id_cat AND (articoli.id_cat = " & id_cat
							sql_2 = "SELECT id_cat FROM categorie WHERE id_rif = " & id_cat
							set rsCat2 = Conn.Execute(sql_2)
							while not rsCat2.eof
								strsql = strsql & " OR articoli.id_cat = " & rsCat2("id_cat")
								rsCat2.movenext
							wend
							strsql = strsql & ")"
							rsCat2.close
						else
							strsql = "SELECT articoli.*, categorie.cat_img FROM articoli, categorie where articoli.id_cat = categorie.id_cat AND articoli.id_cat = " & id_cat	
						end if
					end if
					
					rs.open strsql, Conn, 1 
					
					if not rs.eof then
						rs.PageSize = record_per_pagina 
						rs.AbsolutePage = page
					end if
					
					if rs.eof then
						response.write "<span style=""padding-left:20px;"" class=""titolo_categorie"">In allestimento</span>"
					else
						if rs.PageCount > 1 then
							paginazione = "<div style=""text-align:right;margin-bottom:4px;"">"
							For pag=1 to rs.PageCount
								if Cint(pag) <> Cint(page) then
									paginazione = paginazione & "" & pag & ""
								else
									paginazione = paginazione & "<span style=""font-weight:bold;padding:2px;"">" & pag & "</span>"
								end if
							Next
							paginazione = paginazione & "</div>"
						end if
						for i = 1 to 2
							%>

[Mems]

Per il link precedente:
se il valore pagina è maggiore di 1 allora metti lo stesso collegamento che metti sui numeretti con la differenza che il valore di pagina da passare sarà pagina (corrente) - 1
Per il link successivo:
se il valore di pagina è inferiore al totale delle pagine allora metti lo stesso collegamento come sopra con la differenza che il valore di pagina da passare sarà pagina (corrente) + 1

[freizer]

integrandolo nel codice mio come sarebbe?

Questo codice l'ho ereditato e non so metterci le mani

[Mems]

<%
					page = Request("Page")
					if page = "" then page = 1 else page = Cint(page)
					Set rs = Server.CreateObject("ADODB.Recordset") 
					record_per_pagina = num_righe_view_record * 2
					if id_cat = 0 then
						strsql = "SELECT TOP " & record_per_pagina & " * FROM articoli, categorie WHERE articoli.id_cat = categorie.id_cat AND categorie.sezione = 'bagno'"
					else
						if id_rif = 0 then
							strsql = "SELECT * FROM articoli, categorie where articoli.id_cat = categorie.id_cat AND (articoli.id_cat = " & id_cat
							sql_2 = "SELECT id_cat FROM categorie WHERE id_rif = " & id_cat
							set rsCat2 = Conn.Execute(sql_2)
							while not rsCat2.eof
								strsql = strsql & " OR articoli.id_cat = " & rsCat2("id_cat")
								rsCat2.movenext
							wend
							strsql = strsql & ")"
							rsCat2.close
						else
							strsql = "SELECT articoli.*, categorie.cat_img FROM articoli, categorie where articoli.id_cat = categorie.id_cat AND articoli.id_cat = " & id_cat	
						end if
					end if
					
					rs.open strsql, Conn, 1 
					
					if not rs.eof then
						rs.PageSize = record_per_pagina 
						rs.AbsolutePage = page
					end if
					
					if rs.eof then
						response.write "<span style=""padding-left:20px;"" class=""titolo_categorie"">In allestimento</span>"
					else
						if rs.PageCount > 1 then
							paginazione = "<div style=""text-align:right;margin-bottom:4px;"">"
							if page > 1 then
								paginazione = paginazione & "<< "
							end if
							For pag=1 to rs.PageCount
								if Cint(pag) <> Cint(page) then
									paginazione = paginazione & "" & pag & " "
								else
									paginazione = paginazione & "<span style=""font-weight:bold;padding:2px;"">" & pag & "</span> "
								end if
							Next
							if page < rs.PageCount then
								paginazione = paginazione & ">> "
							end if
							paginazione = paginazione & "</div>"
						end if
						for i = 1 to 2
							%>

[freizer]

grazie tante, funziona benissimo

[carlinojr]

salve ragazzi, anche io avrei un problema simile a quello descritto sopra,
solo che il problema + grande sono io,
nel senso che non sono un grande esperto di codice asp,

in buona sostanza sto cercando di adattare al mio sito uno script gratuito che ho scaricato,

il problema sta nell'estrazione de i dati da una tabella,
se ci sono pochi nominativi non è un problema,
ma se ci sono molti nomi, a quel punto mi viene fuori una pagina lunga km,
per quanto mi riguarda possono andare bene le freccette avanti e indietro,
potrebbe andare meglio con i numeri di pagina,
in ogni caso propenderei per la soluzione più semplice.
se qualcuno è disposto ad aiutarmi,
non so se esiste una formula standard per fare cio oppure varia in base al codice,
non so se è necessario postare il codice della pagina,
se qualcuno mi da indicazioni mi regolo di conseguenza. un grazie anticipato a tutti.