Dato sortering og alert box
HejJeg har fået god hjælp til at lave denne, nu mangler jeg bare lige to ting før den er helt perfekt. Sortering på dato, således at den nyeste står først og at der kommer en box op som spørger om man er sikker på at man vil slette. Koden ser sådan ud:
<%
vPath = "filer"
pPath = Server.MapPath( vPath )
Set fs = Server.CreateObject( "Scripting.FileSystemObject" )
Set myFolder = fs.GetFolder( pPath )
if Request.QueryString("slet") <> "" then
Response.Write("Du har nu slettet: " & Server.Mappath(Request.QueryString("slet")))
fs.DeleteFile(Server.Mappath(Request.QueryString("slet")))
end if
%>
<html>
<head>
<title>Fil Navn</title>
</head>
<body>
<table BORDER="1" bgcolor="#E6E6E6" cellspacing="0" cellpadding="10" bordercolor="#FFFFFF"
width="560">
<tr>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" colspan="5" width="538"><strong>filer. <br>
Klik på linket under navn for at åbne filen.</strong></td>
</tr>
<tr>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="106"><b>Dato:</b></td>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="93"><b>Navn:</b></td>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="67"><b>Type:</b></td>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="89"><b>Størrelse:</b></td>
<td bgcolor="#AFB9CA" bordercolor="#FFFFFF" width="95"><b>Slet filen </b></td>
</tr>
<% For Each thing in myFolder.Files %>
<tr>
<td WIDTH="106"> <%=thing.DateLastModified %></td>
<td WIDTH="93"> <a href="filer/<%=thing.Name%>" target="_blank"><%=thing.Name%></a></td>
<td WIDTH="67"> <%=thing.Type %></td>
<td WIDTH="89"> <%=thing.Size %> bytes</td>
<td WIDTH="95"> <a href="?slet=<% =vPath & "/"& thing.Name%>">Slet</a></td>
</tr>
<% Next %>
</table>
<p><br>
<%
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem
strPath = "filer/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%></p>
</body>
</html>
