<% 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")) If Count = 0 Then set Upload = Nothing Response.write(""& VBCRLF) Response.write(""& VBCRLF) Response.End end if Set File = Upload.Files(1) strOldName = File.FileName strExt = File.Ext set con = server.createobject("ADODB.Connection") con.open Application("CString") 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 DeleteFile server.mappath("../../Uploads/temp/"& strOldName) set rsPage = server.createobject("ADODB.Recordset") rsPage.open "SELECT * FROM CMS_Page", con, 1, 3 rsPage.AddNew() if session("ActiveProject") = -99 or session("ActiveProject") = "" then else rsPage("ProjectID") = session("ActiveProject") end if rsPage("Hide") = 0 rsPage("Hits") = 0 rsPage("Heading") = Upload.Form("Heading") rsPage("FileName") = File.FileName rsPage("FileSize") = File.Size rsPage("UploadDate") = Now() rsPage.Update() rsPage.Close() set rsPage = Nothing con.Close() set con = Nothing Set Upload = nothing response.redirect("Document.asp?buster="& server.URLEncode(now)) %>