<%
Dim sizeLimit, memori, deletefile, deletefilepath, maxSize, mode, goUpload:goUpload = true
Dim upMsg, upIndicator
memori = request.queryString("memori")
mode = request.queryString("mode")
deletefile = request.queryString("deletefile")
Server.ScriptTimeout = 600
if mode<>"edit" and len(memori)<>0 and len(deletefile)<>0 then
deletefilepath = server.mappath("upfiles/"&memori&"/"&deletefile)
end if
maxSize = cLng(session(dbName&"UpLoadSizeLimit"))
sizeLimit = 1024*maxSize
'nstart = timer
if goUpload then
Dim savedFile
savedFile = uploadroutine()
If savedFile = "too big" Then
upIndicator = false
upMsg = upFileTooLarge
Elseif savedFile = "" then
'call upResponseMsg(false,UploadErrorMessage)
upIndicator = false
upMsg = UploadErrorMessage
Else
Dim objFSO
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
with objFSO
if .fileexists(deletefilepath) then .DeleteFile deletefilepath, true
end with
set objFSO = nothing
'call upResponseMsg(true,upFileSuccessfulResp)
upIndicator = true
upMsg = upFileSuccessfulResp
End If
end if
'response.write (((request.totalbytes)/1024)&"KB ")
'response.write (timer-nstart)
%>
<%= OutputCSS() %>
>