<% 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 %> <% 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") %>

Edit This Document

"> "> "> Title : Current File : <%=Server.HTMLEncode(s_FileName)%>    [ <%=s_FileSize%> bytes ] Change Upload File :

<% end if set rsNews = Nothing end if %>

 

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