<% @ EnableSessionState = False Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Rich Text Editor(TM) '** http://www.richtexteditor.org '** '** Copyright (C)2001-2014 Web Wiz Ltd. All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM WEB WIZ LTD. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN WEB WIZ LTD. IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwiz.co.uk/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz Ltd, Unit B10, 9 Nimrod Way, East Dorset Trade Park, Ferndown, Dorset, BH21 7UH, England '** http://www.webwiz.co.uk '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** Response.AddHeader "pragma","cache" Response.AddHeader "cache-control","public" Response.CacheControl = "Public" Response.Expires = -1 Dim strPID Dim objUploadProgress Dim strProgressBar Dim strProgressBarFormat Dim intRefeshTime 'Read in the PID strPID = Request.QueryString("PID") intRefeshTime = Request.QueryString("to") 'Make sure that we have a PID If strPID <> "" Then 'Progress Bar format (see http://www.aspupload.com/manual_progress.html for different format options) strProgressBarFormat = "%T%P " & strTxtOfFilesUploadedToRemoteServer & "%t%B0%T " & strTxtEstimatedTimeLeft & ": %d %R (%U of %V " & strTxtCopied & ") %l " & strTxtTransferRate & ": %d %S/Sec %t" 'Create upload progress object Set objUploadProgress = Server.CreateObject("Persits.UploadProgress") 'Progress bar strProgressBar = objUploadProgress.FormatProgress(strPID, intRefeshTime, "#00007F", strProgressBarFormat) 'Clean up Set objUploadProgress = Nothing End If 'If progress bar is empty then upload complete or timedout If strProgressBar = "" Then %> Upload Finished <% 'Not finished yet Else %> Uploading Files... <% = strProgressBar %> <% End If %>