Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916

    ordninare lasta cartelle con recordset disconnesso

    come da titolo... devo ordinare le cartelle per data di creazione
    ma non mi funziona:

    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
    fc= folder.DateCreated
    
    	rs.addnew
    	rs("nome")=fn
    	rs("data")=fc
    	rs.update
    Rs.Sort = "Cdate (data) desc"

    ADODB.Recordset error '800a0bb9'

    Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

    venduto.asp, line 34


    Rs.Sort = "Cdate (data) desc"

    consigli?
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  2. #2
    prova innanzitutto a togliere lo spazio tra cdate e (data)

  3. #3
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    Originariamente inviato da optime
    prova innanzitutto a togliere lo spazio tra cdate e (data)
    ciao!!!


    ADODB.Recordset error '800a0cc1'

    Item cannot be found in the collection corresponding to the requested name or ordinal.

    venduto.asp, line 36
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  4. #4
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    risolto inserendo il valore 7 (Rs.Fields.Append "data", 7) e cambiando stringa dove cè sort (rs.Sort = "data desc")



    codice:
    <%
    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"
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.