Jag har ett system som ser vilka filer som ligger i rooten där denna fil ligger. Men när dom listas så kommer den fil jag nyligen laddat upp längst ner. Jag vill att den ska hamna längst upp på sidan och sedan neråt. Går detta att fixa skulle jag bli tacksam...
<%
If request("mapp") = "" then
Root = Server.mappath(".")
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(root)
for each x in fo.SubFolders
Response.write "<tr><td><b><a href=""filerna.asp?mapp="& x.Name &""">"& x.Name &"</a></b></td>"
Response.write "<td>"& Round(x.size/1024,2) &" kb</td>"
Response.write "<td>"& FormatDateTime(x.DateCreated,2) &", "& FormatDateTime(x.DateCreated,4) &"</td>"
next
set fo=nothing
set fs=nothing
Set fil = Server.CreateObject("Scripting.FileSystemObject")
Set mapp = fil.getFolder(Root)
For Each x In mapp.files
Response.write "\<tr\>\<td\>\<a href="& x.name &"\>"& x.name &"\</a\>\</td\>"
Response.write "\<td\>"& Round(x.size/1024,1) &" kb\</td\>"
Response.write "\<td\>"& FormatDateTime(x.DateCreated,2) &", "& FormatDateTime(x.DateCreated,4) &"\</td\>\</tr\>"
Next
Set fil = nothing
Set mapp = nothing
Else
'Fixxar mappen
tidigare = Request("mapp")
Root = Server.Mappath(tidigare)
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(root)
for each x in fo.SubFolders
Response.write "<tr><td><b><a href=""filerna.asp?mapp="& tidigare &"/"& x.Name &""">"& x.Name &"</a></b></td>"
Response.write "<td>"& Round(x.size/1024,2) &" kb</td>"
Response.write "<td>"& FormatDateTime(x.DateCreated,2) &", "& FormatDateTime(x.DateCreated,4) &"</td>"
next
set fo=nothing
'Fixxar filer
mapp = request("mapp")
Mappen = Server.MapPath(mapp)
Set fil = Server.CreateObject("Scripting.FileSystemObject")
Set mapp = fil.getFolder(Mappen)
For Each x In mapp.files %\>
\<tr\>\<td\>\<a href="\<%=request("mapp") %\>/\<%=x.name %\>"\>\<%=x.Name %\>\</a\>\</td\>
\<% Response.write "\<td\>"& Round(x.size/1024,2) &" kb\</td\>"
Response.write "\<td\>"& FormatDateTime(x.DateCreated,2) &", "& FormatDateTime(x.DateCreated,4) &"\</td\>"
Next
Set fil = nothing
Set mapp = nothing
End if
%\>