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
codice:
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>