Recordset disconnesso e ordinamento cartelle

[fabiodm75]

Ciao a tutti,
ho fatto una ricerca nel forum ho trovato qualcosa ma non sono riuscito a risolvere... praticamente devo ordinare le cartelle per nome nella select, ok lo fa ma solo in ordine crescente... ecco vorrei ordinarle in ordine descrescente... ho quindi agiunto un recordset disconnesso ma non ho risolto nulla (evidentemente sbaglio qualcosa... :master: ).

  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
  
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Fields.Append "nome",200,255
Rs.Open

  For each Folder in objFolder.SubFolders
  fn = Folder.Name
  
      rs.addnew
    rs("nome")=fn
    rs.update
     Rs.sort="nome desc"
     
      If Left(rs("nome"),1)<>"_" Then
          Response.write "<option "
          If ShowSub=rs("nome") Then
              Response.Write "selected "
          End if
          Response.Write"value='" & CurFile & "?ShowSub="
          Response.Write(Replace(rs("nome"), " ", " "))
          response.write "'>"
          Response.Write(rs("nome") & "</option>")
          If ShowSub <= " " Then
            ShowSub = rs("nome")
        End if
      End if

  Next 
  Set objFSO = Nothing
  %> 

[optime]

devi fare due cicli for...next: uno di caricamento, l'altro di stampa. tra i due metti la rs.sort

[fabiodm75]

Ho fatto così, ottengo l'ordinamento ma ripete sempre e solo una cartella...

es. ho CART1 - CART2 - CART3

invce di fare questo:
CART1
CART2
CART3

fa questo:
CART1
CART1
CART1

Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Fields.Append "nome",200,255
Rs.Open

For each Folder in objFolder.SubFolders
  fn = Folder.Name
  
      rs.addnew
    rs("nome")=fn
    rs.update
Next
     Rs.sort="nome desc"
For each Folder in objFolder.SubFolders     
      If Left(rs("nome"),1)<>"_" Then
          Response.write "<option "
          If ShowSub=rs("nome") Then
              Response.Write "selected "
          End if
          Response.Write"value='" & CurFile & "?ShowSub="
          Response.Write(Replace(rs("nome"), " ", " "))
          response.write "'>"
          Response.Write(rs("nome") & "</option>")
          If ShowSub <= " " Then
            ShowSub = rs("nome")
        End if
      End if
Next 

[optime]

il secondo giro è sul recordset

rs.sort ...

rs.movefirst

do while not rs.eof
..... stampa
rs.movenext
loop

[fabiodm75]

uhmm scusa però ci sono quasi...

For each Folder in objFolder.SubFolders
  fn = Folder.Name
  
      rs.addnew
    rs("nome")=fn
    rs.update
Next
     Rs.sort="nome desc"
     rs.movefirst
do while not rs.eof     
For each Folder in objFolder.SubFolders     
      If Left(rs("nome"),1)<>"_" Then
          Response.write "<option "
          If ShowSub=rs("nome") Then
              Response.Write "selected "
          End if
          Response.Write"value='" & CurFile & "?ShowSub="
          Response.Write(Replace(rs("nome"), " ", " "))
          response.write "'>"
          Response.Write(rs("nome") & "</option>")
          If ShowSub <= " " Then
            ShowSub = rs("nome")
        End if
      End if
Next 
rs.movenext
loop 

ho aggiunto come hai detto te... (ho almeno come credevo di aver capito)

ottengo questo:

CART1
CART1
CART1
CART2
CART2
CART2
CART3
CART3

praticamente l'ordinamento funziona ma ripete le cartelle N volte per il numero delle cartalle... cioè di mattina posso anche capire lo sbaglio ma alle 19 non riesco proprio ad individuare l'errore...

[optime]

aho, ma sei de coccio togli la seconda for each folder..

[fabiodm75]

Originariamente inviato da optime
aho, ma sei de coccio togli la seconda for each folder..

è che sò cotto non è che lo faccio apposta ... comunque ora funziona tutto

Grazie