paginazione con i numeri

[djjunior]

Cari amici,
a questo script che elenca file in fso ho impostato la funzione avanti-indietro al suo posto volevo una paginazione con numero di pagine tipo" 1-2-3-4-5 avanti> ".
Come posso modificarlo? Grazie 1000

perpag=10

offset=request.QueryString("offset")
if offset="" then
offset=1
end if

tot=0
cicli=0
maxtemp=(perpag*offset)-perpag
perpagtemp=perpag*offset

dim fs,fo,x,nome,extfile,sf,folder
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("d:\inetpub\webs\miositoit\public\clienti\pdf\")
for each folder in fo.SubFolders
set sf = fs.GetFolder("d:\inetpub\webs\miositoit\public\clienti\pdf\"&folder.Name)

for each x in sf.files
tot=tot+1
Next

for each x in sf.files

extfile = x.Name

if cicli >= maxtemp and cicli < perpagtemp then
%>
STAMPA RISULTATI
<%
end if
		cicli=cicli+1

avanti=offset+1
indietro=offset-1

next
Next
	
if indietro < 1 then
indietro=1
end if

set sf=nothing
set fo=nothing
set fs=nothing
%>

	<p align="center"><font size="2" color="#FFFFFF"><%if offset>1 then%><font color="#FFFFFF">&lt;Indietro</font><%end if%><%if (offset*perpag) < tot then%> -  <a href="?offset=<%=avanti%>">
			<font color="#FFFFFF">Avanti&gt;</font></a><%end if%></font>

[djjunior]

Ho provato così, la numerazione sotto ok, ma li stampa tutti invece di quelli impostati tramite il parametro filesPerPage = 10, potete aiutarmi per capire dove sbaglio???
Grazie

page = request.queryString("page")
if len(page) > 0 then 
	page = cLng(page)
else
	page = 1
end if

dim filesList()
filesPerPage = 10
cnt = 0

dim fs,fo,x,nome,extfile,sf,folder
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("d:\inetpub\webs\miositoit\public\clienti\pdf\")

for each folder in fo.SubFolders
set sf = fs.GetFolder("d:\inetpub\webs\miositoit\public\clienti\pdf\"&folder.Name)

for each x in sf.files
extfile = x.Name

			reDim preserve filesList(cnt)
			filesList(cnt) = x.Name
			cnt = cnt + 1	
		
			totalFiles = uBound(filesList) + 1
			totalPages = int(totalFiles / filesPerPage)
			temp = totalPages * filesPerPage
			
			if (totalFiles - temp) > 0 then totalPages = totalPages + 1
			i = (page * filesPerPage) - filesPerPage 
%>
STAMPA RISULTATI
<%
	next
next
for p = 1 to totalPages
		if p = page then
			response.write p & " "
		else
			response.write "http://<font face=&#39;arial&#39; size=&#39;2&#39; c...& p & "</font> "
		end if
	next

set sf=nothing
set fo=nothing
set fs=nothing

[djjunior]

nessun aiuto???
Grazie

[saucer]

scusa hai messo :

if (totalFiles - temp) > 0 then 
totalPages = totalPages + 1

aggiungi

ELSE
'STAMPA RISULTATI
END IF

e vedi che risolvi.

[djjunior]

grazie per la risposta saucer,
ho provato ma ho questo errore proprio sull'else

Microsoft VBScript compilation error '800a03fc'

Expected 'Next'

/pagina.asp, line 81

else
^

Grazie
G.

[saucer]

dopo il "then" a riga 76 ( credo ), dai un "a capo" in modo che il VbScript non interpreti quell'if come singolo comando...

purtroppo la paginazione del codice non è proprio il massimo ( forse colpa del forum... )

[djjunior]

fatto ma me ne stampa solo 6 e cambiando pagina sono sempre gli stessi...
grazie per l'aiuto.

[saucer]

allora hai come variabile :

filesPerPage = 10

al posto di quella condizione che ti ho detto prima, dovresti metterci una condizione :

if ( cnt < ( filesPerPage*page) ) then
' Non mostrare i file
Else
' Mostra i file
End if

Naturalmente se hai 6 files e la variabile "filesperPage" è 10, vedrai sempre gli stessi...

Comunque non ho letto interamente il codice ( quindi potrebbero esserci altri errori ), ma la condizione per mostrare a video o meno i files è nel codice postato qui.

[djjunior]

grazie per la tua pazienza..
nulla anche impostando la condizione che mi hai dato (al posto di quella presente) mi stampa a video sempre tutti, però la numerazione delle pagina è corretta, come lo era prima.
Se hai qualche secondo di tempo, puoi darci un'occhiata a tutto il codice?
Sicuramente ci sarà qualche altro errore.
Grazie per la disponibilità
G.

[cavicchiandrea]

Prova con recordset "disconnesso" fai una ricerca qui sul forum per trovare aiuti se ne già parlato altre volte.