recordset disconnesso problematico

[yro]

ciao, è la prima volta che provo un recordset disconnesso e non mi funziona
ecco il codice:

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

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

	rs.addnew
	rs("nome")=fn
	rs("data")=objfolder.DateCreated
	rs.update
Rs.Sort = "data"
%>
<input type="radio" name="quando" value="<%=rs("nome")%>"><%=rs("nome")%>

<%next%>

dovrebbe ordinarmi le cartelle per ordine di creazione, invece mi da tutte le cartelle con lo stesso nome...

dove sbaglio?

grazie!