Sortering i array

måske ikke verdens kønneste: (er iøvrigt ikke testet for fejl)

<%
ShowSub = request("ShowSub")
ShowPic = request("ShowPic")
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
object-counter = 0
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
object-counter = object-counter + 1
End if
Next
dim objectarray(object-counter)

arrtext = ""
arrcount = 1
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
arrtext = arrtext & "<option "
If ShowSub=Folder.Name Then
arrtext = arrtext &  "selected "
End if
arrtext = arrtext & "value='" & CurFile & "?ShowSub="
arrtext = arrtext & (Replace(Folder.Name, " ", "%20"))
arrtext = arrtext &  "'>"
arrtext = arrtext & (Folder.Name & "</option>")
If ShowSub <= " " Then
ShowSub = Folder.Name
End if
End if
objectarray(arrcount) = arrtext
arrcount = arrcount + 1
Next
Set objFSO = Nothing
dim ordering
ordering = "asc" ' her skal det nok være en request("ordering") som enten kan være asc eller desc

if ordering = "asc" then
for a = 1 to Ubound(objectarray)
response.write objectarray(a) &"<br>"
next
else
while object-counter > 0
response.write objectarray(object-counter) &"<br>"
object-counter = object-counter - 1
wend

%>

ja der manglede selvf. en end if til sidst:

if ordering = "asc" then
for a = 1 to Ubound(objectarray)
response.write objectarray(a) &"<br>"
next
else
while object-counter > 0
response.write objectarray(object-counter) &"<br>"
object-counter = object-counter - 1
wend
end if
%>

og en anden fejl med arrtext, så jeg poster lige det hele igen:


<%
ShowSub = request("ShowSub")
ShowPic = request("ShowPic")
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
object-counter = 0
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
object-counter = object-counter + 1
End if
Next
dim objectarray(object-counter)


arrcount = 1
For each Folder in objFolder.SubFolders
arrtext = ""
If Left(Folder.Name,1)<>"_" Then
arrtext = arrtext & "<option "
If ShowSub=Folder.Name Then
arrtext = arrtext &  "selected "
End if
arrtext = arrtext & "value='" & CurFile & "?ShowSub="
arrtext = arrtext & (Replace(Folder.Name, " ", "%20"))
arrtext = arrtext &  "'>"
arrtext = arrtext & (Folder.Name & "</option>")
If ShowSub <= " " Then
ShowSub = Folder.Name
End if
End if
objectarray(arrcount) = arrtext
arrcount = arrcount + 1
Next
Set objFSO = Nothing
dim ordering
ordering = "asc" ' her skal det nok være en request("ordering") som enten kan være asc eller desc

if ordering = "asc" then
for a = 1 to Ubound(objectarray)
response.write objectarray(a) &"<br>"
next
else
while object-counter > 0
response.write objectarray(object-counter) &"<br>"
object-counter = object-counter - 1
wend
end if
%>

Jeg er sq ikke så hård i det der. Hvad hvis jeg vil have den desc istedet?

det er denne linie

ordering = "asc" ' her skal det nok være en request("ordering") som enten kan være asc eller desc

som kan lyde
ordering = request("ordering") ' hvis du sender en parameter med der hedder ordering=asc , kommer de asc, ellers kommer de desc.
den kan du så enten sende fra en selectboks eller hvad du nu syntes

Men du har kun lavet eksemplet, når ordering="asc"...

nej, den er også som desc det kommer i:

if ordering = "asc" then 'her er det asc
for a = 1 to Ubound(objectarray)
response.write objectarray(a) &"<br>"
next
else ' her er det desc
while object-counter > 0
response.write objectarray(object-counter) &"<br>"
object-counter = object-counter - 1
wend
end if