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)
%>