Website Administration

<% response.cachecontrol = "no-cache" %> <% timeout(1) set con = server.createobject("ADODB.Connection") con.open Application("CString") pageID = request.querystring("pageID") if pageID = empty then pageID = 0 end if NewsID = request.querystring("newsID") ptype = request.querystring("ptype") if request.querystring("Posted") = "Y" then 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("..\..\Page_Images")) if Upload.Form("CurrentFile") <> empty then '------------------------------------------------------- ' UPDATE needs to take place ... '------------------------------------------------------- strSQL = "SELECT Description FROM Page_Images WHERE NewsID = "& NewsID &" AND Directory_File = '"& Replace(Upload.Form("CurrentFile"), "'", "''") &"'" set rsAddNew = server.createobject("ADODB.Recordset") rsAddNew.open strSQL, con, 1, 2 rsAddNew.movefirst rsAddNew("Description") = Upload.Form("description") rsAddNew.Update rsAddNew.close set rsAddNew = Nothing elseif Count > 0 then Set File = Upload.Files(1) If File.ImageType <> "JPG" Then '---------------------------------------------------------- ' Remove the file from the folder root ... '---------------------------------------------------------- DeleteFile server.mappath("..\..\Page_Images\") & "\" & File.FileName %> <% Set File = Nothing Set Upload = Nothing con.Close() set con = Nothing response.end end if '--------------------------------------------------------------- ' CREATE new entry ... ' but first check if the entry exists ... '--------------------------------------------------------------- strSQL = "SELECT Directory_File FROM Page_Images WHERE NewsID = "& NewsID &" AND Directory_File = '"& File.FileName &"'" set rsCheckE = con.execute(strSQL) if not rsCheckE.EOF then %> <% response.end end if set rsAddNew = server.createobject("ADODB.Recordset") rsAddNew.open "SELECT * FROM Page_Images", con, 1, 2 rsAddNew.AddNew() set Filesys = server.createobject("Scripting.FileSystemObject") newfolderpath = server.mappath("..\..\Page_Images\Thumbs") If Not Filesys.FolderExists(newfolderpath) Then Set newfolder = Filesys.CreateFolder(newfolderpath) End If newfolderpath = server.mappath("..\..\Page_Images\Big") If Not Filesys.FolderExists(newfolderpath) Then Set newfolder = Filesys.CreateFolder(newfolderpath) End If set Filesys = nothing SaveImageNormal File.Path, server.mappath("..\..\Page_Images\Big\"& File.FileName), 700 SaveImageNormal File.Path, server.mappath("..\..\Page_Images\Thumbs\"& File.FileName), 150 SaveImageTopBottom File.Path, server.mappath("..\..\Page_Images\Thumbs"), File.FileName rsAddNew("PageID") = pageID rsAddNew("PageType") = ptype rsAddNew("Directory_File") = File.FileName if session("ActiveProject") = -99 or session("ActiveProject") = "" then else rsAddNew("ProjectID") = session("ActiveProject") end if rsAddNew("NewsID") = newsID rsAddNew("Description") = Upload.Form("description") rsAddNew.Update() rsAddNew.close set rsAddNew = nothing end if Session("Page_ImagesUpdate") = "TRUE" Session("ServerName") = LCase(request.servervariables("HTTP_HOST")) con.Close() set con = Nothing response.redirect("photos_news.asp?ptype="& ptype &"&pageID="& pageID &"&newsID="&NewsID&"&dir="& server.URLEncode(request.querystring("dir")) &"&intPage="& Upload.Form("intPage") &"&buster="& server.URLEncode(now)) end if Set UploadProgress = Server.CreateObject("Persits.UploadProgress") PID = "PID=" & UploadProgress.CreateProgressID() barref = "../UploadMonitor/FRAMEBAR.ASP?to=10&"& PID strSQL = "SELECT * FROM Page_Images WHERE NewsID = "& NewsID set rsPhotos = server.createobject("ADODB.Recordset") rsPhotos.open strSQL, con, 3, 1 %> Website Administration &pageID=<%=server.URLEncode(request("pageID"))%>&<%=PID%>&Posted=Y&dir=<%=server.URLEncode(request("dir"))%>" enctype="multipart/form-data">"> ">

News Images

Image (Jpeg):
Description:

Images

<%if rsPhotos.EOF then%>

There are no images.

<%else%> <% rsPhotos.PageSize = 5 intPageCount = rsPhotos.PageCount if request("intPage") <> empty and IsNumeric(request("intPage")) then intPage = CInt(request("intPage")) else intPage = 1 end if if intPage > intPageCount then intPage = intPageCount elseif intPage < 1 then intPage = 1 end if rsPhotos.AbsolutePage = intPage %> <%if intPagecount > 1 then%> <%if CDbl(intPage) > 1 then%> <%else%> <%end if%> <%if CDbl(intPage) <> intPagecount then%> <%else%> <%end if%>

&intPage=<%=(intPage - 1)%>','_self');" class="icon">Previous

<% for i=1 to intPagecount if i = CDbl(intPage) then %> <% else%> <% end if next %>

Pages:

<%=i%>

&intPage=<%=i%>','_self');">

<%=i%>

&intPage=<%=(intPage + 1)%>','_self');" class="icon"> Next

<%end if%> <% counterx=0 for i = 1 to rsPhotos.PageSize s_Directory_File = rsPhotos("Directory_File") s_Description = rsPhotos("Description") %> <%rsPhotos.MoveNext%> <%if rsPhotos.EOF then exit for%> <%Next%> "> ">

&intPage=<%=request("intPage")%>&buster=<%=server.URLEncode(now)%>','right');">

<%=s_Directory_File%> ~ <%=server.HTMLEncode(s_Description)%>

<%end if%>

<% rsPhotos.close set rsPhotos = nothing Set UploadProgress = Nothing con.close set con = nothing %>