<% set Obj = folders.ExtObject %> <%=Obj.AppName%> <%=Obj.AppEdition%> <% header = "header" if Obj.AppCompany <> "MetaProducts" then header="header-no-logo" %>

New project created

<% set folder = folders.FolderByIID(CLng(request("folder"))) set prj = folder.AddProject prj.URL = request("url") prj.Caption = request("caption") if request("levels") <> "on" then prj.Level = 1000001 else prj.level = CLng(request("level")) end if if request("filetype") = "skip" then prj.SetFFParameter 1, 0, (request("filter-graphics") = "on") prj.SetFFParameter 2, 0, (request("filter-audio") = "on") prj.SetFFParameter 3, 0, (request("filter-video") = "on") prj.SetFFParameter 4, 0, (request("filter-archive") = "on") end if if request("location") = "url" then prj.URLFilterServer = 1 prj.URLFilterDir = 1 end if if request("location") = "server" then prj.URLFilterServer = 1 prj.URLFilterDir = 0 end if if request("location") = "any" then prj.URLFilterServer = 0 prj.URLFilterDir = 0 else if request("load-images") = "on" then prj.SetFFParameter 1, 7, 3 else prj.SetFFParameter 1, 7, 0 prj.SetFFParameter 2, 7, 0 prj.SetFFParameter 3, 7, 0 end if end if ' if request("explore-dirs") = "on" then ' prj.ExploreDirs = true ' else ' prj.ExploreDirs = false ' end if response.redirect("project.htm?id=" & prj.iid) %>