<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%      set Obj = folders.ExtObject %>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>

        <script src="functions.js" type="text/javascript"> </script>

        <title><%=Obj.AppName%> <%=Obj.AppEdition%></title>
        <link rel="stylesheet" type="text/css" href="<%=Obj.UIColor%>.css" />

        <script type="text/javascript">
                tips = <%=Obj.TipsCount %>;
        </script>
</head>
<body>
<%      header = "header"
        if Obj.AppCompany <> "MetaProducts" then header="header-no-logo" %>

        <div id="<%=header%>">
                <%=Obj.AppName%><sup><%=Obj.AppEdition%></sup></div>
        <div id="menu">
                <a href="./" class="menu-home"></a>
                <a class="menu-tutorials" href="tutorials.htm"></a>
                <a class="menu-report" href="/report.csv"></a>
                <a class="menu-projects" href="projects.htm"></a>
                <a class="menu-new-project" href="wizard.htm"></a>
        </div>
        <div id="content">
                <div id="tips">
                        <div id="nav">
                                <a href="javascript:nextTip(0)" class="prev"></a><a href="javascript:nextTip(1)"
                                        class="next"></a>
                        </div>
                        <h2>
                                Did you know...</h2>
                        <div id="tip" class="tips-text">
                        </div>
                </div>
                <div id="text">
                        <!--Projects heading-->
                        <h2>
                                New project created</h2>
                        <%
                                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)
                        %>
                        <div id="footer">
                        </div>
                </div>
                <div style="clear: both">
                </div>
        </div>

        <script type="text/javascript"">nextTip(0);</script>

</body>
</html>
