ordinare lista cartelle con recordset disconnesso

[yro]

risolto inserendo il valore 7 (Rs.Fields.Append "data", 7) e cambiando stringa dove cè sort (rs.Sort = "data desc")

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

for each folder in objfolder.subfolders
fn = folder.name
fc= folder.DateCreated

	rs.addnew
	rs("nome")=fn
	rs("data")=fc
	rs.update
next

rs.Sort =  "data desc"