<% response.buffer = true %> <% Timeout(1) %> <% Set Upload = Server.CreateObject("Persits.Upload") Upload.OverWriteFiles = False Upload.ProgressID = Request.QueryString("PID") '----------------------------------------------------------------- ' Capture uploaded file. Save returns the number of files uploaded '----------------------------------------------------------------- intCount = Upload.Save(server.mappath("../../Uploads")) set con = server.createobject("ADODB.Connection") con.open Application("CString") set rsLibrary = server.createobject("ADODB.Recordset") rsLibrary.open "SELECT * FROM Library WHERE Lib_FileID = " & Upload.Form("id"), con, 1, 3 if rsLibrary.EOF then if intCount > 0 then Set objFile = Upload.Files(1) objFile.Delete Set objFile = Nothing end if else rsLibrary.MoveFirst rsLibrary("L_SubcategoryID") = Upload.Form("SubcategoryID") rsLibrary("Description") = Upload.Form("Description") if intCount > 0 then Set objFile = Upload.Files(1) rsLibrary("FileName") = objFile.FileName rsLibrary("FileType") = objFile.Ext DeleteFile Server.MapPath("../../Uploads/" & Upload.Form("CurrentFile")) Set objFile = Nothing end if rsLibrary.Update() end if rsLibrary.close set rsLibrary = nothing con.close set con = nothing response.redirect "default.asp?intPage=" & Upload.Form("intPage") & "&buster=" & server.URLEncode(now) %>