soter efter dato og tidspunkt
jeg har en side der viser en masse billeder, men jeg vil gerne have den til at soterer dem efter den dato og tidspunkt de er blevet oprettet!scriptet er:
<%
if Request.Querystring("sub") = "" then
Response.Redirect "default.asp"
end if
ImageDir = "/fester/" & Request.Querystring("sub") ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
intPageSize = 16 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))
For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
Response.Write "<a href=""#"" onclick=""showLargeImage('img.asp?img=" & ImageDir & "stor/" & Image.Name & "')"">"
Response.Write "<img border='0' src='" & ImageDir & Image.Name & "'></a> "
End If
Next
strScriptName = Request.Servervariables("ScriptName")
Response.Write "<br>"
Response.Write "Gå til side "
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?page=" & i & "&sub=" & Request.Querystring("sub") & ">" & i & "</a> "
Next
Set objFS = Nothing
%>
