<% timeout(1) Set UploadProgress = Server.CreateObject("Persits.UploadProgress") PID = "PID=" & UploadProgress.CreateProgressID() barref = "../UploadMonitor/FRAMEBAR.ASP?to=10&"& PID strSQL = "SELECT PageID, Heading, UploadDate, FileSize,ImageDesc FROM CMS_Page WHERE FileName IS NOT NULL AND MemberID = "& request("MemberID") &" ORDER BY Heading" set rsPage = server.createobject("ADODB.Recordset") rsPage.open strSQL, Application("CString"), 3, 1 %> Website Administration

Upload A File to <%=request("FieldName")%> of <%=request("ProjectName")%>

Title :

Upload File :

">

Document Maintenance
<%if rsPage.EOF then%>

There are currently no documents!

<% else rsPage.PageSize = 15 intPageCount = rsPage.PageCount if request("intPage") <> empty and IsNumeric(request("intPage")) then intPage = CInt(request("intPage")) else intPage = 1 end if if intPage > intPageCount then intPage = intPageCount elseif intPage < 1 then intPage = 1 end if rsPage.AbsolutePage = intPage if intPagecount > 1 then %> <%if CDbl(intPage) > 1 then%> <%else%> <%end if%> <%if CDbl(intPage) <> intPagecount then%> <%else%> <%end if%>
Previous <% for i=1 to intPagecount if i = CDbl(intPage) then %> <% else%> <% end if next %>

Pages:

<%=i%>

<%=i%>

 Next
<%end if%>
<% counterx=0 for i = 1 to rsPage.PageSize i_PageID = rsPage("PageID") s_Heading = rsPage("Heading") s_UploadDate = rsPage("UploadDate") s_FileSize = rsPage("FileSize") z_ZipSize = rsPage("ImageDesc") %> <%rsPage.movenext%> <%if rsPage.EOF then exit for%> <%Next%>
 

Description

Upload Date

Compressed Size

UnCompressed Size
&intPage=<%=Request("intPage")%>','_self');"> Delete

<%=s_Heading%>

<%=Day(s_UploadDate) &" "& MonthName(Month(s_UploadDate)) &" "& Year(s_UploadDate)%>

<%=z_ZipSize%> bytes

<%=s_FileSize%> bytes
<%end if%>
<% rsPage.close set rsPage = nothing %>