<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Copyright 2004 by Robert Aung. '' '' All rights reserved. No part of this work may be '' reproduced, stored, or transmitted in any form, '' without prior written permission. '' '' Neither this page, nor any part of it, may be '' modified, copied, distributed, displayed, reproduced, '' published, licensed, sold, placed on a web site, '' or used to create derivitive works without the '' express written consent of the author. Any use '' of this page is subject to the terms of a license '' agreement with the author. '' '' To obtain a license for this software, contact the '' author at robert.aung@verizon.net. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 %> iNEER - Admin File List

Admin File List


<% if request.form("pwd") = sitepwd or request.cookies("siteadmin") = "yes" then response.cookies("siteadmin") = "yes" dim days if request.form("days") = "" then days = 10 else if not isnumeric(request.form("days")) then days = 10 else days = request.form("days") end if end if %>
Show files uploaded in the past > days. 
<% dim cn, rs, cmd set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") set cmd = server.CreateObject("ADODB.Command") cn.ConnectionString = connectstring cn.Open dim message if cn.State = 1 then cmd.activeconnection = cn cmd.commandtext = _ "select file_upload_id, file_id, convert(varchar, upload_date, 120) dt, " & _ "filename, filesize, content_type, status, password, magic " & _ "from file_upload_general where datediff(d, upload_date, getdate()) < ? " & _ "order by file_id, upload_date asc" cmd(0) = days set rs.source = cmd rs.open %> <% if not (rs.eof and rs.bof) then while not rs.eof %> <% rs.movenext wend else %> <% end if %>
Sender Date Filename File Size Password Status Set Status Remove
&pwd=<%=rs("password")%>" target=_new><%=rs("file_id")%> <%=rs("dt")%> <%=rs("filename")%> <%=rs("filesize")%> <%=rs("password")%> &magic=<%=rs("magic")%>>Change <%=rs("status")%> &status=Pending&magic=<%=rs("magic")%>>Pend &status=Approved&magic=<%=rs("magic")%>>Appr &status=Rejected&magic=<%=rs("magic")%>>Rej &magic=<%=rs("magic")%>">remove
No files found

Return to upload page <% else response.write "There was an error connecting to the database server." end if else %>

Password:
<% end if %>