<% response.buffer = true %> <% Set Upload = Server.CreateObject("Persits.Upload") Upload.ProgressID = Request.QueryString("PID") '----------------------------------------------------------------- ' Capture uploaded file. Save returns the number of files uploaded '----------------------------------------------------------------- Count = Upload.Save(server.mappath("../../Uploads/temp")) set con = server.createobject("ADODB.Connection") con.open Application("CString") set rsPage = server.createobject("ADODB.Recordset") rsPage.open "SELECT * FROM CMS_Page WHERE PageID = "& Upload.Form("id"), con, 1, 3 if not rsPage.EOF then rsPage.MoveFirst() rsPage("Heading") = Upload.Form("Heading") If Count > 0 Then Set File = Upload.Files(1) strCurrentFile = rsPage("FileName") strOldName = File.FileName strExt = File.Ext if LCase(strCurrentFile) = LCase(strOldName) then File.SaveAs server.mappath("../../Uploads/"& strOldName) else DeleteFile server.mappath("../../Uploads/"& strCurrentFile) strSQL = "SELECT COUNT(*) AS 'TheCount' FROM CMS_Page WHERE FileName = '"& Replace(strOldName, "'", "''") &"'" set rsCheck = con.execute(strSQL) rsCheck.MoveFirst() if CInt(rsCheck("TheCount")) > 0 then Randomize str1 = CStr(Int((9 * Rnd) + 1)) str2 = CStr(Int((9 * Rnd) + 1)) str3 = CStr(Int((9 * Rnd) + 1)) File.SaveAs server.mappath("../../Uploads/"& Left(strOldName, Len(strOldName) - 4) & str1 & str2 & str3 & strExt) else File.SaveAs server.mappath("../../Uploads/"& strOldName) end if set rsCheck = Nothing end if DeleteFile server.mappath("../../Uploads/temp/"& strOldName) rsPage("FileName") = File.FileName rsPage("FileSize") = File.Size rsPage("UploadDate") = Now() end if rsPage.Update() end if rsPage.Close() set rsPage = Nothing con.Close() set con = Nothing intPage = Upload.Form("intPage") Set Upload = nothing response.redirect("Document.asp?intPage="& intPage &"&buster="& server.URLEncode(now)) %>