sort e visualizzazione devi farli fuori dal primo for/next:
codice:
for each x in sf.files
    extfile = left(split(x.Name,".pdf")(0),14)

    custRs.AddNew
    custRs("nomes") = MID(x.name,41,6)
    custRs("data") = x.DateCreated     
next 

custRs.Update

custRs.Sort = "nomes Asc"

custRs.MoveFirst()

Do While Not custRs.EOF

    Response.Write (custRs(0) & "
")

custRs.MoveNext()
Loop
http://www.aspitalia.com/script/393/...rdset-ADO.aspx

Anche se a mio avviso in questo script mancava l'update.