<% 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() %> >
Result:
class="subhead"> <%= upMsg %>

<% if upIndicator then %> <% else %> <% end if %>