vil ikke vise den nyeste fil
Har denne hjemmesidewww.ejerlauget-kornumgaard.dk
i min tabel "Aktuelt referat" skal den nyeste upload fil stå.
men som man kan se, er det ikke den nyeste pdf som står der, skulle være den som hedder referat270213.pdf, jeg har prøvet at uploade referat270213.pdf her i dag, men den vil ikke komme frem som det nyeste.
Nogle som kan hjælpe mig, please
<!DOCTYPE html>
<HTML lang="da">
<HEAD>
<META charset="utf-8" />
<META name="keywords" content="" />
<META name="description" content="" />
<title>Ejerlauget Kornumgaard</title>
<link rel="stylesheet" href="css/ek.css" type="text/css"/>
</head>
<body>
<table>
<%
Dim FSO, F, Filer, fil
Dim kolonner
kolonner = 1
Dim i, fundet, filnavn, fildato, filrettet
i = 0
fundet=0
filnavn=""
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(Server.Mappath("pdf"))
Set Filer = F.Files
For Each fil In Filer
Select Case lcase(FSO.GetExtensionName(fil))
' Tilladte filtyper...
Case "asp", "txt", "shtml", "html", "pdf"
If fundet=0 then
filnavn=fil.Name
fildato=fil.DateCreated
filrettet=fil.DateLastModified
else
if fildato < fil.DateCreated then
filnavn=fil.Name
fildato=fil.DateCreated
filrettet=fil.DateLastModified
end if
end if
fundet=1
Case else
End Select
Next
If filnavn <> "" then
response.write "<tr>"
response.write "<td><a href=""pdf/" & filnavn & """ title=""Sidst ændret: " & filrettet & ", oprettet: " & fildato & """>" & filnavn & "</a></td>"
response.write "</tr>"
else
response.write "<tr><td>Ingen fil fundet</td></tr>"
end if
set FSO=nothing
%>
</table>
</body>
</html>
