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
  %>