wrap a VBScript date function around the value you redering in the browser. EG:

dateValue(item.DateLastModified)

NOTE: If the date argument includes time information, DateValue doesn't return it. However, if date includes invalid time information (such as "89:98"), an error occurs.

Wind is your friend
Matt

I have a script in fso that searches multiple pdf's at the same time, its pretty fast comparing that only has 50 pdf's but i have another library that have over 3k pdf's.

This is the code that I'm using, is taking an average of 3-5 minutes to finish the search:

<% Server.ScriptTimeout = 100000000 %>
<%
'Search Text
Dim strtextToSearch
strtextToSearch = Request("TextToSearch")

'Now, we want to search all of the files
Dim fso

'Constant to read
Const ForReading = 1
Set fso = Server.CreateObject("Scripting.FileSystemObject")

'Specify the folder path to search.
Dim FolderToSearch
FolderToSearch = "C:\inetpub\mysite\myfiles\"

'Proceed if folder exists
if fso.FolderExists(FolderToSearch) then

Dim objFolder
Set objFolder = fso.GetFolder(FolderToSearch)

Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False

Dim FilesCounter
FilesCounter = 0 'Total files found

For Each objFile in objFolder.Files
Set objTextStream = fso.OpenTextFile(objFile.Path,ForReading)
'Read the content
strFileContents = objTextStream.ReadAll
If InStr(1,strFileContents,strtextToSearch,1) then
%>
<a href="http://mysite.com/myfiles/<%Response.Write objFile.Name%>" target="_blank">
<%
Response.Write objFile.Name & "</a><br>"
FilesCounter = FilesCounter + 1
End If
objTextStream.Close
Next

if FilesCounter = 0 then
Response.Write "Sorry, No matches found."
else
Response.Write "Total files found : " & FilesCounter
end if

'Destroy the objects
Set objTextStream = Nothing
Set objFolder = Nothing

else
Response.Write "Sorry, invalid folder name"
end if
Set fso = Nothing
%>

<form name="form1" method="post" action="backup.asp">
<table width="100%" border="0" cellpadding="2">
<tr>
<td class="smallspecialbold" nowrap>Select Download File</td>
<td width="100%">
<select name="downloadfile">
<%'Joel Martinez 2001
dim jm_fso, jm_file, jm_types, jm_path, jm_folder,jm_show,jm_i,jm_ext
jm_ext=true
jm_path = databasefolder
jm_types = split(replace("bmp,bak,mdb"," ",""),",")
Set jm_fso = Server.CreateObject("Scripting.FileSystemObject")
Set jm_folder = jm_fso.GetFolder(Server.MapPath(jm_path))

For Each jm_file in jm_folder.Files
jm_show=false
for jm_i=0 to ubound(jm_types,1)
If lcase(right(jm_file.name,3)) = jm_types(jm_i) then jm_show=true
next
If jm_show=true then
if jm_ext=true then
response.write "<option value="""& jm_path & jm_File.Name & """>" & jm_File.Name & "</option>" &vbcrlf
else
response.write "<option value="""& jm_path & jm_File.Name & """>" & mid(jm_File.Name,1,len(jm_File.Name)-4) & "</option>" &vbcrlf
end if
end if
next
set jm_file=nothing
set jm_folder = nothing
set jm_fso=nothing%>
</select>
</td>
</tr>
<tr>
<td>&nbsp;</td>
<td>
<input type="submit" class="button" name="Submit" value="Download Backup">
</td>
</tr>
</table>
</form>