<% Server.ScriptTimeout = 1000 response.buffer = true response.cachecontrol = "no-cache" 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 '----------------------------------------------------------------- Count = Upload.Save(server.mappath("../../Uploads")) strRedirect = Upload.Form("FrontEnd") If Count = 0 Then Response.write(""& VBCRLF) Response.write(""& VBCRLF) Response.End Else '------------------------------------------------- ' Obtain File object representing uploaded file '------------------------------------------------- Set File = Upload.Files(1) set con = server.createobject("ADODB.Connection") con.open Application("CString") set rsPage = server.createobject("ADODB.Recordset") rsPage.open "SELECT * FROM CMS_Page where 1 = 2", con, 1, 3 rsPage.AddNew() rsPage("Hide") = 0 rsPage("Hits") = 0 strHeading = Upload.Form("Heading") rsPage("Heading") = strHeading rsPage("FileName") = File.FileName rsPage("FileSize") = File.Size if Upload.Form("MemberID") <> empty then rsPage("MemberID") = Upload.Form("MemberID") end if rsPage("UploadDate") = Now() rsPage.Update() rsPage.Close() set rsPage = Nothing con.Close() set con = Nothing set File = nothing End If intField = Upload.Form("FieldID") intProjectID = Upload.Form("ProjectID") ProjName = Upload.Form("ProjName") FieldName = Upload.Form("FieldName") intProjectFieldID = Upload.Form("ProjectFieldID") response.redirect("Member_Document.asp?MemberID=" & Upload.Form("MemberID")&"&buster="& server.URLEncode(now)) Set Upload = nothing %>