codice:
<head>
</head>
	<body>
	
<%
	Response.Buffer = True
	Response.Expires = 0
	SetLocale(1040)
	root = "/cartella"
	
	if Request.Form("chiave")<>"" then
		Chiave = Request.Form("chiave")
	else
		Chiave = Request.querystring("chiave")
	end if
	
	Set FSO = Server.CreateObject("scripting.filesystemobject")
	Set Listato = Server.CreateObject("adodb.recordset")
	
	Listato.Fields.Append "id", 3
	Listato.Fields.Append "nome", 129, 200
	Listato.Fields.Append "dimensione", 3
	Listato.Fields.Append "data", 7
	
	Listato.Open

	Set Cartella = FSO.GetFolder(Server.MapPath(root))

	For Each File In Cartella.Files
	If File.DateCreated < date then 
		Ext = Right(File.Name,3)
		If Ext = "zip" OR Ext = "exe" OR Ext = "rar" OR Ext = "txt" Then
			If UCase(Left(File.Name, Len(Chiave))) = UCase(Chiave) Then
				I = I +1
				Listato.AddNew
				Listato("Id") = I
				Listato("Nome") = File.Name
				Listato("Dimensione") = File.Size / 1024
				Listato("Data") = FormatDateTime(File.DateCreated,2)
			End If
		End If
		End If
	Next

	Set Cartella = Nothing
	If Listato.EOF = False Then
		Listato.Sort = "nome"
		Listato.MoveFirst

Function Spazio(stringa)
Spazio = Replace(stringa, "_", " ")
End Function

%>		
<div align="center">
  <center>		<table cellpadding="3" cellspacing="1" bgcolor="#000000" width="600">
			<tr>
				<th width="5%">
				</th>
				<th width="55%">
                    <font face="Calligraphic" size="3" color="#FFFFFF">
					Nome</font>
				</th>
				<th width="20%">
                    <font face="Calligraphic" size="3" color="#FFFFFF">
					Dimensione</font>
				</th>
				<th width="20%">
                    <font face="Calligraphic" size="3" color="#FFFFFF">
					Data</font>
				</th>
			</tr>
<%
		For I = 1 To Listato.RecordCount

%>			<tr>
				<td>
					<%=I%>
				</td>
				<td style="text-align:left;">
					&amp;chiave=<%=Chiave%>"><font color="#000000"><%=Spazio(Listato("Nome"))%></font>
				</td>
				<td>
                    <font face="Verdana" size="1">
					<%=FormatNumber(Listato("Dimensione"),0)%> Kb</font>
				</td>
				<td>
                    <font face="Verdana" size="1">
					<%=Listato("Data")%>
                    </font>
				</td>
			</tr>
<%
			Listato.MoveNext
		Next
%>		</table>
  </center>
</div>
    <p align="center">
<%
	End If
	Listato.Close
	Set Listato = Nothing
	Set FSO = Nothing

%>	
<font color="#000000" size="3">Indietro</font>
</body>
</html>
questo script mi visualizza OGGI i files inseriti OGGI in una cartella.
dovrei modificarlo affinché i files inseriti OGGI si vedano DOMANI, di conseguenza OGGI si vedranno i files inseriti IERI.

chi mi modifica il codice???
grazie.