Mi hanno suggerito di creare un array ed incolonnarlo...
ma non cambia niente...

<%

dim categ
categ = Request.QueryString("categ")

sub heapfy(byref V,j,byval n)
k=j
if ((2*j+1)<=n) then
if (V(2*j+1)>V(k)) then
k=2*j+1
end if
end if
if ((2*j)<=n) then
if (V(2*j)>V(k)) then
k=2*j
end if
end if
if (k<>j) then
t=V(j)
V(j)=V(k)
V(k)=t
call heapfy(V,k,n)
end if
end sub

sub ordina(byref V)
n=ubound(V)
i=n\2
while (i>=0)
call heapfy(V,i,n)
i=i-1
wend
i=n
while (i>=1)
t=V(i)
V(i)=V(0)
V(0)=t
call heapfy(V,0,(i-1))
i=i-1
wend
end sub



response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' categoria dinamica con querystring
Set Cartella = objFSO.GetFolder(Server.mappath(".\public\fotoarchivio\"&categ&""))

For Each objItem In cartella.SubFolders

listacartelle=objItem.Name

a=array(listacartelle)

call ordina(a)

for i=0 to ubound(a)
Response.Write(a(i)&" ")

Next

Next

%>


Gab