Thumbs 1.0 - ordinare per data e cambiare nome

[aliblu]

Riguardo una modifica ad un file per avere l'ordine per data....

ho provato ma....me li ordina sempre per nome....
qualcuno puo indicarmi dove e come fare la modifica?
il file upload è il seguente...
------------------------

<table border="0" width="550" cellspacing="0" cellpadding="0" bgcolor="#6699CC"> 
   <tr> 
      <td width="20">[img]images/angolosx.gif[/img]</td> 
      <td width="510" align="center"><font size="2" face="Tahoma" color="#F7F7F7">byluciani-thumbs 1.0</font></td> 
      <td width="20" align="right">[img]images/angolodx.gif[/img]</td> 
   </tr> 
</table> 
<table border="0" width="550" cellspacing="0" cellpadding="0" style="border: 1 solid #6699CC"> 
<form method="POST" enctype="multipart/form-data" action="do_upload.asp"> 
  <tr> 
    <td width="100%" align="center" bgcolor="#f7f7f7"> 
         <table border="0" width="530" cellspacing="0" cellpadding="0"> 
           <tr> 
             <td width="100%" colspan="3" align="center"> 
               <font size="2" color="#000080">SCRIPT SPERIMENTALE
(ogni suggerimento è gradito)
<p align="justify"> 
               Si possono uploadare solo immagini di tipo ".gif", ".jpg" e ".bmp" non superiori a 100Kb per un totale di 2 immagini alla volta. Inoltre verranno recuperati anche gli ulteriori dati inseriti nel form stesso. Il tutto è stato realizzato in puro ASP/VBScript (senza l'uso di componenti aggiuntivi)</p></font></td> 
           </tr> 
           <tr> 
             <td width="80" align="center"></td> 
             <td width="180" align="center"></td> 
             <td width="270" align="center" valign="top" rowspan="9"> 
            <table border="0" width="240" cellspacing="0" cellpadding="0" style="border: 1 solid #6699CC">  
              <tr> 
                <td width="240" align="center" bgcolor="#f7f7f7"> 
                  <table width="230" cellpadding="0" cellspacing="0"> 
<% 
set custRs = Server.CreateObject("ADODB.Recordset") 
custRs.Fields.Append "nome", 200, 300 ' adVarChar 
custRs.Fields.Append "dimensione", 2, 4 ' smallint 
custRs.Fields.Append "data", 7 ' Date 
custRs.Open 

' popolamento 
Set FileObject = Server.CreateObject("Scripting.FileSystemObject") 

Set f = FileObject.GetFolder(strPath) 

For Each f1 in f.Files 
  custRs.AddNew 
  custRs("nome") = f1.name 
  custRs("data") = f1.DateCreated 
Next 

Set f = Nothing 
Set FileObject = Nothing 

custRs.Sort = "data DESC" 

If Not custRS.EOF AND Not custRS.BOF Then 
nomefile = custRs("nome") 

Set FileObject = Server.CreateObject("Scripting.FileSystemObject") 
Set f = FileObject.getfile(StrPath&"\"&nomefile) 
he = ImageHeight(StrPathShort & nomefile) 
wi = ImageWidth(StrPathShort & nomefile) 
resized = ImageResize(StrPathShort & nomefile, 80, 80, "center") 
Response.Write "<tr><td align=""center"">Ultima immagine inserita: " & f.DateCreated & "</td></tr>" 
Response.Write "<tr><td align=""center"">" & vbcrlf & "<table width=""100%""><tr><td align=""center""><table cellspacing=""0"" cellpadding=""0"" style=""border: 1 solid #6699CC""><tr><td>" & resized & "</td></tr></table></td></tr><tr><td align=""center"">" & nomefile & "
" & wi & "x" & he & "-" & f.size & "byte</td></tr></table></td></tr>" & vbcrlf 
Set f = Nothing 
Set FileObject = Nothing 
Else 
%> 
                    <tr><td align="center">Ultima immagine inserita</td></tr> 
                    <tr><td align="center"></td></tr> 
                    <tr><td align="center">Non ci sono immagini</td></tr> 
                    <tr><td align="center"></td></tr>  
<% 
End If 
%> 
                  </table> 
                </td> 
              </tr> 
            </table> 
             </td> 
           </tr>                   
           <tr> 
             <td width="80" align="center"></td> 
             <td width="180" align="center"></td> 
           </tr>                   
           <tr> 
             <td width="80" align="center"></td> 
             <td width="180" align="center"></td> 
           </tr>                   
           <tr> 
             <td width="80" align="right"><font size="2" color="#000080">Nome:</font></td> 
             <td width="180"><input type="text" name="nome" size="20" maxlength="20"></td> 
           </tr> 
           <tr> 
             <td width="80" align="center"></td> 
             <td width="180" align="center"></td> 
           </tr>                   
           <tr> 
             <td width="80" align="right"><font size="2" color="#000080">Cognome:</font></td> 
             <td width="180"><input type="text" name="cognome" size="20" maxlength="20"></td> 
           </tr> 
           <tr> 
             <td width="80" align="center"></td> 
             <td width="180" align="center"></td> 
           </tr>                   
           <tr> 
             <td width="80" align="right"><font size="2" color="#000080">Sesso:</font></td>                  
             <td width="180"><input type="radio" name="sesso" value="0" checked><font size="2" color="#000080">Maschio</font> 
             <input type="radio" name="sesso" value="1"><font size="2" color="#000080">Donna</font> 
             </td> 
           </tr> 
           <tr> 
             <td width="80" align="center"></td> 
             <td width="180" align="center"></td> 
           </tr>                                  
           <tr> 
             <td width="80" align="right"><font size="2" color="#000080">*File 1:</font></td> 
             <td width="450" colspan="2"><input type="file" name="blob1" size="40"></td> 
           </tr> 
           <tr> 
             <td width="80" align="center"></td> 
             <td width="450" colspan="2" align="center"></td> 
           </tr>             
           <tr> 
             <td width="80" align="right"><font size="2" color="#000080">*File 2:</font></td> 
             <td width="450" colspan="2"><input type="file" name="blob2" size="40"></td> 
           </tr>                  
           <tr> 
             <td width="80" align="right"></td> 
             <td width="450" colspan="2"><font size="1" color="#000080">(*) Ammessi: .jpg, .gif, .bmp - Max 100Kb l'uno</font></td> 
           </tr>                  
           <tr> 
             <td width="100%" colspan="3" align="center">
<input type="submit" name="enter" value=" Invio ">
</td> 
           </tr> 
         </table>    
    </td> 
  </tr> 
</form> 
</table> 

  
<% 
Dim objFSO, objFolder, objFile 

Set objFSO = server.createobject("scripting.filesystemobject") 
Set objFolder = objFSO.getfolder(strpath) 

fileMAX = 8 
intTotalFiles = objFolder.Files.Count 
If objFolder.Files.Count MOD fileMAX = 0 Then 
  intTotalPages = Int(objFolder.Files.Count/fileMAX) 
Else 
  intTotalPages = Int(objFolder.Files.Count/fileMAX)+1 
End If 
%> 
<table border="0" width="550" cellspacing="0" cellpadding="0" bgcolor="#6699CC"> 
   <tr> 
      <td width="20">[img]images/angolosx.gif[/img]</td> 
      <td width="510" align="center"><font size="2" face="Tahoma" color="#F7F7F7">Archivio (Immagini totali: <%=intTotalFiles%>)</font></td> 
      <td width="20" align="right">[img]images/angolodx.gif[/img]</td> 
   </tr> 
</table> 
<table border="0" width="550" cellspacing="0" cellpadding="0" bgcolor="#f7f7f7" style="border: 1 solid #6699CC"> 
  <tr> 
    <td> 
      <table width="540" cellspacing="0" cellpadding="0"> 
<% 
If intTotalFiles > 0 Then 
  col = 0 
  imagecounter = 1 
  
  If Request.QueryString("page").Count > 0 Then 
    intPageNum = CInt(Request.QueryString("page")) 
  Else 
    intPageNum = 1 
  End If 
  
  
  For Each objFile in objFolder.Files 
  
    'Response.Write imagecounter & "-" & (intPageNum*4)-3 & "-" & (intPageNum*4) &"
" 
    
    If (imagecounter >= (intPageNum*fileMAX)-(fileMAX-1)) And (imagecounter <= (intPageNum*fileMAX)) Then 
      col = col + 1 
      If col = 1 Then Response.Write "<tr>" & vbcrlf 
      he = ImageHeight(StrPathShort & objfile.name) 
      wi = ImageWidth(StrPathShort & objfile.name) 
      resized = ImageResize(StrPathShort & objfile.name, 100, 100, "center") 
      Response.Write "<td align=""center"" width=""135"">" & vbcrlf & "<table width=""100%""><tr><td align=""center"" height=""110""><table cellspacing=""0"" cellpadding=""0"" style=""border: 1 solid #6699CC""><tr><td>" & resized & "</td></tr></table></td></tr><tr><td align=""center"">" & objfile.name & "
" & wi & "x" & he & "
" & objfile.size & "byte
" & objFile.DateCreated & "</td></tr></table>
" & vbcrlf & "</td>" & vbcrlf 
      If col = 4 Then 
        Response.Write "</tr>" & vbcrlf 
        col = 0 
      End If 
      'If col > 4 Then col = 1 
    End If 
    
    imagecounter = imagecounter + 1 
    'If imagecounter > fileMAX Then Exit For 
  Next 
  
  If col > 0 AND col < 4 Then 
    For colonne = col+1 To 4 
      Response.Write "<td width=""135""></td>" & vbcrlf 
    Next 
    Response.Write "</tr>" & vbcrlf 
  End If 

Else 
%> 
        <tr><td align="center"></td></tr> 
        <tr><td align="center">Non ci sono immagini</td></tr> 
        <tr><td align="center"></td></tr>        
<% 
End If 
%> 
      </table> 
    </td> 
  </tr> 
  <tr> 
    <td align=center> 
      <table width="80%" cellspacing="0" cellpadding="0"> 
        <tr><td colspan="3" align="center"><font face=Tahoma size=2 color="#000080">Pagina <%=intPageNum%> di <%=intTotalPages%></font></td></tr> 
        <tr><td colspan="3" align="center"></td></tr> 
        <tr><td width="33%"> 
<% 
        If intPageNum > 1 Then 
        Response.Write("« Precedente ") 
        End If 
%> 
        </td> 
        <form method="get" action="default.asp" name="paginazione"> 
        <td width="34%" align="center"><font face=Tahoma size=2 color="#000080"> 
        Vai a pagina </font><select name="page" onchange="javascript:paginazione.submit()"> 
<% 
        For ll = 1 to intTotalPages 
%> 
        <option value="<%=ll%>"<%If ll=intPageNum Then Response.Write " selected"%>><%=ll%></option> 
<% 
        Next 
%> 
        </select> 
        </td> 
        </form> 
        <td width="33%" align="right"> 
<% 
        If intPageNum < intTotalPages Then 
        Response.Write(" Seguente »") 
        End If 
%> 
        </td></tr> 
      </table> 
    
 
    </td> 
  </tr> 
</table> 
<% 
set objfolder = Nothing 
set objfso = nothing 
%>

da parte dell'autore.....
il file da modificare è upload.asp

il codice è impostato per leggere direttamente la cartella contenente le immagini con il filesystemobject e di conseguenza le recuperi ordinate per nome

altrimenti devi caricare le informazioni recuperate con il fso in un recordset con questo codice
................

<% 
set custRs = Server.CreateObject("ADODB.Recordset") 
custRs.Fields.Append "nome", 200, 300 ' adVarChar 
custRs.Fields.Append "dimensione", 2, 4 ' smallint 
custRs.Fields.Append "data", 7 ' Date 
custRs.Open 

' popolamento 
Set FileObject = Server.CreateObject("Scripting.FileSystemObject") 

StrPath = Server.MapPath("\public\upload") 

Set f = FileObject.GetFolder(strPath) 

For Each f1 in f.Files 
custRs.AddNew 
custRs("nome") = f1.name 
custRs("data") = f1.DateCreated 
Next 

Set f = Nothing 
Set FileObject = Nothing 
%>

e ordinarle a piacere con

<% 
custRs.Sort = "data DESC" 
%>

ma non so come assemblare la modifica....mi viene sempre fornito l'ordine per nome e non per data....
Qualcuno pratico di asp puo aiutarmi riportando il file con la modifica inserita?
Grazie
...attendo