<% timeout(1) set con = server.createobject("ADODB.Connection") con.open Application("CString") Set UploadProgress = Server.CreateObject("Persits.UploadProgress") PID = "PID=" & UploadProgress.CreateProgressID() barref = "../UploadMonitor/FRAMEBAR.ASP?to=10&"& PID %> Website Administration <% if request("id") <> empty and IsNumeric(request("id")) then strSQL = "SELECT PageID, Heading, FileName, FileSize FROM CMS_Page WHERE PageID = "& request("id") set rsNews = con.execute(strSQL) if not rsNews.EOF then rsNews.movefirst i_PageID = rsNews("PageID") s_Heading = rsNews("Heading") s_FileName = rsNews("FileName") s_FileSize = rsNews("FileSize") %>"> "> <% end if set rsNews = Nothing end if %>
Edit Document Or File
Title:
Current file:

<%=Server.HTMLEncode(s_FileName)%>    [ <%=s_FileSize%> bytes ]

Upload new file:

<% Set UploadProgress = Nothing con.close set con = nothing %>