<%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%% Purpose:      This lists all custom sub-directories and images (in those directories) as links on an index page.
    ' %%% Author:       Dan Overlander
    ' %%% Date:         Dec 21, 2004
    ' %%% Revisions:
    ' %%% Comments:


    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%% Document Includes

%>   <!--#include file="./_inc/misc/global.asp"-->        <%    ' ASP settings
%>   <!--#include file="./_inc/connect/adovbs.asp"-->     <%    ' ADO variables
%>   <!--#include file="./_inc/variables.asp" -->         <%    ' website-specific variables
%>   <!--#include file="./_setup/settings.asp"-->                <%    ' Site Customization for Dummies
%>   <!--#include file="./_inc/asp/site_functions.asp"--> <%    ' contains all-purpose website functions
%>   <!--#include file="./_inc/custom_functions.asp"-->   <%    ' contains functions relating to this website specifically




    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%% Document variables

        if len(strMirrorDir) > 0 then Server.ScriptTimeout = 300
    
        dim blnFoundHTML
        dim blnFoundHTMLignore
        dim blnFoundHTMLexceptions
        dim intFoundFolderExceptions
        dim blnAllFilesExpired
        dim blnResetAllFilesExpired
        dim blnFoundORDERtxt
        dim blnListMEDIAtxt
        dim strFileContents
        dim strPath
        dim strSubPath
        dim objFSO
        dim objFolder
        dim objSubFolder
        dim objSubSubFolder
        dim objFile
        dim objSubSubFile
        dim booHR
        dim strName
        dim strSize
        dim intSize
        dim strDateModified
        dim strFileDateModified
        dim strExt
        dim strName2Remember
        dim strName2Display
        dim strExcludeBuffer
        dim strFileToCheck ' using this as a temporary holding variable
        dim strThat ' holding var
        dim intFolderIndex ' counting index of each folder name

        dim strDir
        dim strShowingDir

        dim blnLogoExists
            blnLogoExists = 0

        if len(request("strDir"))>0 then strDir = request("strDir") else strDir = "./"

        do until left(strDir, 3) <> "../"
            strDir = right(strDir, len(strDir)-3)
        loop
        if len(strDir) = 0 then strDir = "./"

        strDir = replace(strDir, "//", "/")
        strShowingDir = strDir

        dim strWH    ' just a holding variable for a link comment


        ' BEGIN these are all related to writing the pages to disk...
        dim strLM       ' ListMockups holding variable
        dim strDHname   ' holder variable for name of instance of popup
'        dim strWriteDH  ' holder variable for names of popups
        dim strWriteJS  ' holder variable for javascript popups (the write-to-disk command pops up windows for each file, to write EACH page to disk.  These windows close themselves.
        dim intJSeconds ' counting variable, so that all the javascript popups don't happen exactly at once.
            intJSeconds = 500 ' milliseconds
        dim intJDefaultSeconds
            intJDefaultSeconds = intJSeconds
        ' END these are all related to writing the pages to disk...

        dim strFormName

        dim intMacCharacters ' how many characters to scan for in a file name, to determine whether we should warn the power user if it's unsafe to save to Offline.
            intMacCharacters = 27
        dim strBrokeMacLimit
            strBrokeMacLimit = ""

        dim strFoundSpacesInName
            strFoundSpacesInName = ""

        dim booInvisible
            booInvisible = 0

        session("summary") = ""  ' session variable used for holding write-to-text summary/report.  Cleared every time you hit the default page.

        ' recordsets ---------------------------------------

        Set rstDefault = Server.CreateObject("ADODB.RecordSet")

        dim arrBadFiles(10000,3) ' stores the PATH+NAME of a bad file, destination path+name, and bad file name (only)
        dim intBadFile ' a count of how many bad files were found
            intBadFile = 0
            
        dim intFileTooBig
            intFileTooBig = 300000000 ' number of bytes as upper limit to mirror, when Mirroring files is turned on.

        dim objSub3Folder
        dim objSub4Folder
        dim objSub5Folder
        
        dim strFileLog
        



    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%% Document Routines

   
    

    ' create the output folder for saving to Offline, if need be:
    if booWriteHTM = 1 then
        on error resume next
        createFolder strPhysicalPath & strOfflineFolder
        createFolder strPhysicalPath & strOfflineFolder & "_setup\"
        createFolder strPhysicalPath & strOfflineFolder & "_inc\"
        createFolder strPhysicalPath & strOfflineFolder & "_inc\js\"
        createFolder strPhysicalPath & strOfflineFolder & "_inc\css\"
        createFolder strPhysicalPath & strOfflineFolder & "_inc\images\"
        createFolder strPhysicalPath & strOfflineFolder & "_inc\images\icons\"

        copyFile strPhysicalPath & "_setup\userdefined.css", strPhysicalPath & strOfflineFolder & "_setup\"
        copyFile strPhysicalPath & "_setup\logo.gif", strPhysicalPath & strOfflineFolder & "_setup\"
        copyFile strPhysicalPath & "_setup\title.gif", strPhysicalPath & strOfflineFolder & "_setup\"
        copyFile strPhysicalPath & "_inc\js\SWFObject.js", strPhysicalPath & strOfflineFolder & "_inc\js\"
        copyFile strPhysicalPath & "_inc\css\default.css", strPhysicalPath & strOfflineFolder & "_inc\css\"
        copyFile strPhysicalPath & "_inc\images\bullet.png", strPhysicalPath & strOfflineFolder & "_inc\images\"
        copyFile strPhysicalPath & "_inc\images\bullet_circle.png", strPhysicalPath & strOfflineFolder & "_inc\images\"
        copyFile strPhysicalPath & "_inc\images\bullet_heart.png", strPhysicalPath & strOfflineFolder & "_inc\images\"
        copyFile strPhysicalPath & "_inc\images\contact_information.png", strPhysicalPath & strOfflineFolder & "_inc\images\"
        copyFile strPhysicalPath & "_inc\images\swf.jpg", strPhysicalPath & strOfflineFolder & "_inc\images\"
        copyFile strPhysicalPath & "_inc\images\icons\folder.gif", strPhysicalPath & strOfflineFolder & "_inc\images\icons\"

        on error goto 0
    end if

    ' BEGIN check if settings are filled in
    if len(strPageTitle) = 0 or request("reset") = "true" then
        if request("reset") = "true" then
            response.redirect "_inc/define_settings.asp?reset=true"
        else
            response.redirect "_inc/define_settings.asp"
        end if
    end if
    ' END check if settings are filled in

    if request("method") = "logout" then
        session("strSiteUsername") = ""
        session("strSitePassword") = ""
        response.redirect strScriptName
    end if


    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



    function flushScreen(showThis)
        dim strFS
        
        strFS = right(showThis, len(showThis) - instrrev(showThis, "\"))
        
        rw "<div class='copying'>Please wait while synchronizing the file: <B>" & strFS & "</B></div>"
        response.flush

        
    end function


    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



    ' this function returns a string containing a TABLE which displays the contents of the directory supplied.
    ' SYNTAX: listMockups "./", "inc, jpg"
            ' note: the above syntax will exlude all ".inc" and '.jpg" files from display
    function listMockups(strDir, strExcludeFromList)

        on error resume next
        strThis = buildPathTo(strDir & "\exceptions.txt")
        strExcludeFromList = readText(strThis, "") & strExcludeFromList
        on error goto 0



        strExcludeBuffer = strExcludeFromList
        strPath = replace(strPath, "//", "/")
        if len(request("strDir")) > 0 then strSubPath = request("strDir") & "/" else strSubPath = ""
        strPath = Server.MapPath(strDir) ' Must be hard coded
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")



        ' BEGIN MIRROR FOLDER
        ' if necessary, check our mirror directory for new files to move inside the devsite.
        if len(strMirrorDir) > 0 and len(request("strDir")) = 0 then

            if booWriteHTM = 0 then            
                rw "<style media='all' type='text/css'>" & vblf
                rw "    .copying {" & vblf
                rw "        border-right:2px solid red; border-left:2px solid red; padding:0px 20px;}" & vblf
                rw "</style>" & vblf
            end if


            strMirrorDir = Server.MapPath(strMirrorDir)
            
            Set objFolder = objFSO.GetFolder(strMirrorDir)

            ' ROOT LEVEL FILES
            on error resume next
            createFolder strPhysicalPath & "!FTP\"
            on error goto 0

            for each objFile in objFolder.files
                getFileInformation(objFile)
                if not FileExists(strPhysicalPath & "!FTP\" & objFile.name) then
                    if instr(lcase(strBadExtensions), lcase(strExt)) = 0 or (isPowerUser() and request("allowCopy") = "true") then
                        if (intSize <= intFileTooBig) then 
                            strThis = strMirrorDir & "\" & objFile.name
                            strThat = strPhysicalPath & "!FTP\"
                            flushScreen(strThis)
                            copyFile strThis, strThat
                            strFileLog = strFileLog & "1: Copied " & strThis & " to " & strThat & vblf
                        else 
                            logBadFile strMirrorDir & "\" & objFile.name, strPhysicalPath & "!FTP\", "<a title='Size = " & strSize & "'>" & objFile.name & "</a>"
                        end if
                    else
                        logBadFile strMirrorDir & "\" & objFile.name, strPhysicalPath & "!FTP\", objFile.name
                    end if
                else
                    strThis = getFileDate(strPhysicalPath & "!FTP\" & objFile.name)

                    if DateDiff("S", cdate(strFileDateModified), strThis) < 0 or request("allowCopy") = "true" then
                        strThis = strMirrorDir & "\" & objFile.name
                        strThat = strPhysicalPath & "!FTP\"
                        flushScreen(strThis)
                        copyFile strThis, strThat
                        strFileLog = strFileLog & "2: Copied " & strThis & " to " & strThat & vblf
                    elseif DateDiff("S", cdate(strFileDateModified), strThis) = 0 then
                        ' files are the same; do nothing.
                    else
                        logBadFile strMirrorDir & "\" & objFile.name, strPhysicalPath & "!FTP\", objFile.name & "(Did not copy over newer file)"
                    end if
                end if
            next
            
            ' SUBLEVEL 1 FILES
            for each objSubFolder in objFolder.SubFolders
                if DateDiff("D", cdate(objSubFolder.DateLastModified), Now) < intDaysIgnoreMirror+1 then
                    on error resume next
                    createFolder strPhysicalPath & objSubFolder.name & "\"
                    on error goto 0

                    for each objFile in objSubFolder.files
                        getFileInformation(objFile)
                        if DateDiff("D", cdate(strFileDateModified), Now) < intDaysIgnoreMirror+1 then
                            if not FileExists(strPhysicalPath & "\" & objSubFolder.name & "\" & objFile.name) then
                                if instr(lcase(strBadExtensions), lcase(strExt)) = 0 or (isPowerUser() and request("allowCopy") = "true") then
                                    if (intSize <= intFileTooBig) then 
                                        strThis = strMirrorDir & "\" & objSubFolder.name & "\" & objFile.name
                                        strThat = strPhysicalPath & objSubFolder.name & "\"
                                        flushScreen(strThis)
                                        copyFile strThis, strThat
                                        strFileLog = strFileLog & "3: Copied " & strThis & " to " & strThat & vblf
                                    else 
                                        logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\", "<a title='Size = " & strSize & "'>" & objSubFolder.name & "\" & objFile.name & "</a>"
                                    end if
                                else
                                    logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\", objSubFolder.name & "\" & objFile.name
                                end if
                            else
                                strThis = getFileDate(strPhysicalPath & "\" & objSubFolder.name & "\" & objFile.name)
                            
                                if DateDiff("S", cdate(strFileDateModified), strThis) < 0 or request("allowCopy") = "true" then
                                    strThis = strMirrorDir & "\" & objSubFolder.name & "\" & objFile.name
                                    strThat = strPhysicalPath & objSubFolder.name & "\"
                                    flushScreen(strThis)
                                    copyFile strThis, strThat
                                    strFileLog = strFileLog & "4: Copied " & strThis & " to " & strThat & vblf
                                elseif DateDiff("S", cdate(strFileDateModified), strThis) = 0 then
                                    ' files are the same; do nothing.
                                else
                                    logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\", objSubFolder.name & "\" & objFile.name & "(Did not copy over newer file)"
                                end if
                            end if
                        end if
                    next


                    ' SUBLEVEL 2 FILES
                    for each objSubSubFolder in objSubFolder.SubFolders
                        on error resume next
                        createFolder strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\"
                        on error goto 0

                        for each objFile in objSubSubFolder.files
                            getFileInformation(objFile)
                            if DateDiff("D", cdate(strFileDateModified), Now) < intDaysIgnoreMirror+1 then
                                if not FileExists(strPhysicalPath & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name) then
                                    if instr(lcase(strBadExtensions), lcase(strExt)) = 0 or (isPowerUser() and request("allowCopy") = "true") then
                                        if (intSize <= intFileTooBig) then 
                                            strThis = strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name
                                            strThat = strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\"
                                            flushScreen(strThis)
                                            copyFile strThis, strThat
                                            strFileLog = strFileLog & "5: Copied " & strThis & " to " & strThat & vblf
                                        else 
                                            logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\", "<a title='Size = " & strSize & "'>" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name & "</a>"
                                        end if
                                    else
                                        logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\", objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name
                                    end if
                                else
                                    strThis = getFileDate(strPhysicalPath & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name)

                                    if DateDiff("S", cdate(strFileDateModified), strThis) < 0 or request("allowCopy") = "true" then
                                        strThis = strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name
                                        strThat = strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\"
                                        flushScreen(strThis)
                                        copyFile strThis, strThat
                                        strFileLog = strFileLog & "6: Copied " & strThis & " to " & strThat & vblf
                                    elseif DateDiff("S", cdate(strFileDateModified), strThis) = 0 then
                                        ' files are the same; do nothing.
                                    else
                                        logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\", objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name & "(Did not copy over newer file)"
                                    end if
                                end if
                            end if
                        next


                        ' SUBLEVEL 3 FILES
                        for each objSub3Folder in objSubSubFolder.SubFolders
                            on error resume next
                            createFolder strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\"
                            on error goto 0

                            for each objFile in objSub3Folder.files
                                getFileInformation(objFile)
                                if DateDiff("D", cdate(strFileDateModified), Now) < intDaysIgnoreMirror+1 then
                                    if not FileExists(strPhysicalPath & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name) then
                                        if instr(lcase(strBadExtensions), lcase(strExt)) = 0 or (isPowerUser() and request("allowCopy") = "true") then
                                            if (intSize <= intFileTooBig) then 
                                                strThis = strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name
                                                strThat = strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\"
                                                flushScreen(strThis)
                                                copyFile strThis, strThat
                                                strFileLog = strFileLog & "7: Copied " & strThis & " to " & strThat & vblf
                                            else 
                                                logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\", "<a title='Size = " & strSize & "'>" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name & "</a>"
                                            end if
                                        else
                                            logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\", objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name
                                        end if
                                    else
                                        strThis = getFileDate(strPhysicalPath & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name)

                                        if DateDiff("S", cdate(strFileDateModified), strThis) < 0 or request("allowCopy") = "true" then
                                            strThis = strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name
                                            strThat = strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\"
                                            flushScreen(strThis)
                                            copyFile strThis, strThat
                                            strFileLog = strFileLog & "8: Copied " & strThis & " to " & strThat & vblf
                                        elseif DateDiff("S", cdate(strFileDateModified), strThis) = 0 then
                                            ' files are the same; do nothing.
                                        else
                                            logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\", objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name & "(Did not copy over newer file)"
                                        end if
                                    end if
                                end if
                            next


                            ' SUBLEVEL 4 FILES
                            for each objSub4Folder in objSub3Folder.SubFolders
                                on error resume next
                                createFolder strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\"
                                on error goto 0

                                for each objFile in objSub4Folder.files
                                    getFileInformation(objFile)
                                    if DateDiff("D", cdate(strFileDateModified), Now) < intDaysIgnoreMirror+1 then
                                        if not FileExists(strPhysicalPath & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name) then
                                            if instr(lcase(strBadExtensions), lcase(strExt)) = 0 or (isPowerUser() and request("allowCopy") = "true") then
                                                if (intSize <= intFileTooBig) then 
                                                    strThis = strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name
                                                    strThat = strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\"
                                                    flushScreen(strThis)
                                                    copyFile strThis, strThat
                                                    strFileLog = strFileLog & "9: Copied " & strThis & " to " & strThat & vblf
                                                else 
                                                    logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\", "<a title='Size = " & strSize & "'>" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name & "</a>"
                                                end if
                                            else
                                                logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\", objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name
                                            end if
                                        else
                                            strThis = getFileDate(strPhysicalPath & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name)

                                            if DateDiff("S", cdate(strFileDateModified), strThis) < 0 or request("allowCopy") = "true" then
                                                strThis = strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name
                                                strThat = strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\"
                                                copyFile strThis = strThat
                                                strFileLog = strFileLog & "A: Copied " & strThis & " to " & strThat & vblf
                                            elseif DateDiff("S", cdate(strFileDateModified), strThis) = 0 then
                                                ' files are the same; do nothing.
                                            else
                                                logBadFile strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name, strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\", objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name & "(Did not copy over newer file)"
                                            end if
                                        end if
                                    end if
                                next


                                intI = 0
                                for each objSub5Folder in objSub4Folder.SubFolders
                                    intI = intI + 1
                                next

                                if intI > 0 then logBadFile "", "", objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & " had subfolders that were not copied."
                            next
                        next
                    next
                end if
            next
            


            Set objFolder = objFSO.GetFolder(strPhysicalPath)
            
            ' REMOVE TOP-LEVEL MISSING FOLDERS
            for each objSubFolder in objFolder.SubFolders
                if not(instr("!FTP/, _inc/, _setup/", objSubFolder.name) > 0) then
                    if not FolderExists(strMirrorDir & "\" & objSubFolder.name) then
                        strThis = strPhysicalPath & objSubFolder.name
                        DeleteFolder(strThis)
                        strFileLog = strFileLog & "1: Deleted " & strThis & vblf
                    end if
                end if
            next

            ' SUBLEVEL 1 FILES
            for each objSubFolder in objFolder.SubFolders
                if not(instr("!FTP/, _inc/, _setup/", objSubFolder.name) > 0) then
                    for each objFile in objSubFolder.files
                        getFileInformation(objFile)

                        if instr(lcase(strName), "!!top") = 0 and instr(lcase(strIgnoredExt), lcase(strExt)) = 0 and instr(lcase(strIgnoredFiles), lcase(strName)) = 0 and not FileExists(strMirrorDir & "\" & objSubFolder.name & "\" & objFile.name) then
                            strThis = strPhysicalPath & objSubFolder.name & "\" & objFile.name
                            DeleteFile strThis
                            strFileLog = strFileLog & "2: Deleted " & strThis & vblf
                        end if
                    next


                    ' SUBLEVEL 2 FILES
                    for each objSubSubFolder in objSubFolder.SubFolders
                        for each objFile in objSubSubFolder.files
                            getFileInformation(objFile)
                            if instr(lcase(strName), "!!top") = 0 and instr(lcase(strIgnoredExt), lcase(strExt)) = 0 and instr(lcase(strIgnoredFiles), lcase(strName)) = 0 and not FileExists(strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name) then
                                strThis = strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name
                                DeleteFile strThis
                                strFileLog = strFileLog & "3: Deleted " & strThis & vblf
                            end if
                        next


                        ' SUBLEVEL 3 FILES
                        for each objSub3Folder in objSubSubFolder.SubFolders
                            for each objFile in objSub3Folder.files
                                getFileInformation(objFile)
                                if instr(lcase(strName), "!!top") = 0 and instr(lcase(strIgnoredExt), lcase(strExt)) = 0 and instr(lcase(strIgnoredFiles), lcase(strName)) = 0 and not FileExists(strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name) then
                                    strThis = strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name
                                    DeleteFile strThis
                                    strFileLog = strFileLog & "4: Deleted " & strThis & vblf
                                end if
                            next


                            ' SUBLEVEL 4 FILES
                            for each objSub4Folder in objSub3Folder.SubFolders
                                for each objFile in objSub4Folder.files
                                    getFileInformation(objFile)
                                    if instr(lcase(strName), "!!top") = 0 and instr(lcase(strIgnoredExt), lcase(strExt)) = 0 and instr(lcase(strIgnoredFiles), lcase(strName)) = 0 and not FileExists(strMirrorDir & "\" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name) then
                                        strThis = strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name
                                        DeleteFile strThis
                                        strFileLog = strFileLog & "5: Deleted " & strThis & vblf
                                    end if
                                next
                            next
                        next
                    next
                elseif instr("!FTP/", objSubFolder.name) > 0 then
                    for each objFile in objSubFolder.files
                        getFileInformation(objFile)

                        if instr(lcase(strName), "!!top") = 0 and instr(lcase(strIgnoredExt), lcase(strExt)) = 0 and instr(lcase(strIgnoredFiles), lcase(strName)) = 0 and not FileExists(strMirrorDir & "\" & objFile.name) and not FileExists(strMirrorDir & "\!FTP\" & objFile.name) then
                            strThis = strPhysicalPath & objSubFolder.name & "\" & objFile.name
                            DeleteFile strThis
                            strFileLog = strFileLog & "6: Deleted " & strThis & vblf
                        end if
                    next
                end if
            next

            if len(strFileLog) > 0 then
                writeText strPhysicalPath & strLogFile, readText(strPhysicalPath & strLogFile, "") & date & " " & time & vblf & strFileLog
            end if

            if booWriteHTM = 0 then            
                rw "<style media='all' type='text/css'>" & vblf
                rw "    .copying {" & vblf
                rw "        display:none; }" & vblf
                rw "</style>" & vblf
            end if

        end if
        ' END MIRROR FOLDER



        Set objFolder = objFSO.GetFolder(strPath)
        For Each objFile In objFolder.Files
            getFileInformation(objFile)
        next
        if FileExists(strPhysicalPath & "_setup/logo.gif") then blnLogoExists = 1

        intFolderIndex = 0
        
        for each objSubFolder in objFolder.SubFolders
            intFolderIndex = intFolderIndex + 1


            strName = objSubFolder.Name
            strName2Remember = Server.URLEncode(strName)

            if instr(strName, " ") > 0 then strFoundSpacesInName = strFoundSpacesInName & strName & "/, <BR>"

            if objSubFolder.Size > 999 then strSize = int(objSubFolder.Size/1000) & "k" else strSize = objSubFolder.Size & "b"
            strDateModified = left(monthName(month(objSubFolder.DateLastModified)),3) & " " & day(objSubFolder.DateLastModified) & ", " & year(objSubFolder.DateLastModified)
            ' BEGIN check for custom date (custom_date.txt)
                strFileToCheck = strPhysicalPath & request("strDir") & strName2Remember & "\custom_date.txt"
                if fileExists(strFileToCheck) then
                    strDateModified = readText(strFileToCheck, "")
                    if len(strDateModified) > 0 then
                        on error resume next
                        strDateModified = cdate(strDateModified)
                        strDateModified = left(monthName(month(strDateModified)),3) & " " & day(strDateModified) & ", " & year(strDateModified)
                        on error goto 0
                    end if
                end if
            ' END check for custom date (custom_date.txt)

            strThis = ""
            strFileToCheck = strPhysicalPath & request("strDir") & URLDecode(strName2Remember) & "\makeprivate.txt"
            if fileExists(strFileToCheck) and booWriteHTM <> 1 then
                booInvisible = 1
            else
                booInvisible = 0
            end if

            if (len(strName) > 0 and instr(lcase(strExcludeFromList), lcase(strName) & "/") = 0) then
                if not(booInvisible = 1 and not isPowerUser()) then

                    strLM = strLM & "<div id='Folder" & intFolderIndex & "'> <!-- BEGIN Container Folder " & intFolderIndex & " -->" & vblf

                    if instr(lcase(strName), "hrule") > 0 then
                        strLM = strLM & strHR
                        strName = cleanHrule(strName)
                    end if

                    strName = replace(strName, "_", " ")
                    strName = hideFolderSortCharacter(strName)


                    strLM = strLM & "<b><a class='nonlink' title='" & strSize & "'>" & strName
                    if blnShowDate then strLM = strLM & " (" & strDateModified & ")"
    ' BEGIN PER-FOLDER POWER-USER OPTIONS
                    if isPowerUser() and booWriteHTM <> 1 then
                        strThis = ""
                        strFileToCheck = strPhysicalPath & request("strDir") & strName2Remember & "\background_color.txt"
                        if fileExists(strFileToCheck) then strThis = replace(rtrim(trim(readText(strFileToCheck, ""))), chr(10), "")

                        strThat = ""
                        strFileToCheck = strPhysicalPath & request("strDir") & strName2Remember & "\custom_date.txt"
                        if fileExists(strFileToCheck) then strThat = replace(rtrim(trim(readText(strFileToCheck, ""))), chr(10), "")

                        strFormName = strName2Remember
                        strFormName = hideFolderSortCharacter(strFormName)

                        strLM = strLM & "<a href='javascript:void(0);' onMouseOver=""toolTip('Click here to see options for this folder and it\'s files.', 200, 90)"" onMouseOut=""toolTip()"" onClick=""javascript:HideShow(document.getElementById('" & replace(strName2Remember, "'", "") & "'));""><img src='_inc/images/icons/context_menu.gif' border='0' align='absmiddle' hspace='6'></a>" & vblf
                        strLM = strLM & "<div id='" & replace(strName2Remember, "'", "") & "' style='display:none; border:1px solid black; padding:1px; width:300px;'>" & vblf
                        strLM = strLM & "    <table cellpadding=0 cellspacing=0 border=0>" & vblf
                        strLM = strLM & "        <tr>" & vblf
                        strLM = strLM & "            <td style='padding-right:5px;'>" & vblf
                        strLM = strLM &                 "<a href=""_inc/custom_order.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & """ onMouseOver=""toolTip('<B>Custom Order List</B><BR>Set custom order for files in this folder.', 250, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/rename.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM &                 "<a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=autographical"" onMouseOver=""toolTip('<B>Auto-graphical index</B><BR>Shows files in a table of thumbnails instead of by filename.', 250, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/camera.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM &                 "<a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=forPrint"" onMouseOver=""toolTip('<B>Print Index</B><BR>Creates a link for the client to show all of these files on one page for easier printing.', 200, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/print.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM &                 "<a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=renameFolder"" onMouseOver=""toolTip('<B>Horizontal Rule</B><BR>Place a horizontal rule above this folder.  You can customize the look of this rule on the Settings page.', 250, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/hr.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM &                 "<a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=moveupFolder"" onMouseOver=""toolTip('Move this folder <B>UP</B>. If the folder does not move, try clicking a few times, or move other folders up and down as well. Make sure you <B>log out of FTP</B>!)', 250, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/asc.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM &                 "<a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=movednFolder"" onMouseOver=""toolTip('Move this folder <B>DOWN</B>. If the folder does not move, try clicking a few times, or move other folders up and down as well. Make sure you <B>log out of FTP</B>!)', 250, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/desc.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM &                 "<a href=""_inc/create_spacers_etc.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & """ onMouseOver=""toolTip('<B>Edit List</B><BR>Add/remove spacers, horizontal lines, external links, and comments on files, etc.', 200, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/txt.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM &                 "<a href=""_inc/create_exceptions.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & """ onMouseOver=""toolTip('<B>Exceptions List</B><BR>Specify (by filename, directory name, or file extension) which items should <B>not</B> be shown.', 200, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/none.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM & "            <td style='padding-right:5px;'>" & vblf
                        strLM = strLM & "                <form onMouseOver=""toolTip('<B>Background Color</B><BR>Set a custom background color for all images and SWFs in this folder.<BR>USE HEX COLOR!', 200, 90)"" onMouseOut=""toolTip()"" name='form_" & strFormName & "' method='POST' action=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=colors"">" & vblf
                        strLM = strLM & "                     <input type='text' name='strNewColor' value='" & strThis & "' style='width:44; height:18; font-size:9px;' />" & vblf
                        strLM = strLM & "                     <input type='image' src=""_inc/images/icons/colors.gif"" border=""0"" align=""absmiddle"">" & vblf
                        strLM = strLM & "                </form>" & vblf
                        strLM = strLM & "            <td>" & vblf
                        strLM = strLM & "                <form onMouseOver=""toolTip('<B>Custom Date</B><BR>Set a new date for this folder.  You can turn dates off completely in the Settings page.', 200, 90)"" onMouseOut=""toolTip()"" name='form2_" & strFormName & "' method='POST' action=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=date"">" & vblf
                        strLM = strLM & "                     <input type='text' name='strNewDate' value='" & strThat & "' style='width:44; height:18; font-size:9px;' />" & vblf
                        strLM = strLM & "                     <input type='image' src=""_inc/images/icons/calendar.gif"" border=""0"" alt=""Set a new date for this folder."" align=""absmiddle"">" & vblf
                        strLM = strLM & "                </form>" & vblf
                        strLM = strLM & "        </tr>" & vblf
                        strLM = strLM & "   </table>" & vblf
                        strLM = strLM & "   <a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=makeprivate"" onMouseOver=""toolTip('<B>Hide Folder</B><BR>Toggle this folder\'s privacy (toggle visible to admins only)', 200, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/ex.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM & "   <a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=hideHTML"" onMouseOver=""toolTip('<B>HTML override</B><BR> Show only HTML files or show all files automatically<BR><BR><B>Do not use</B> with a custom-order list, or with an exceptions list.', 200, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/question.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM & "   <a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=allowUpload"" onMouseOver=""toolTip('<B>Allow Uploads</B><BR> Allow uploads for <i>this</i> folder only.  If you use the global setting in the Settings page, this is ignored.', 200, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/upload.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM & "   <a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=showalways"" onMouseOver=""toolTip('<B>Always Show Folder</B><BR> Force this folder to be always shown, even if all the files inside it have expired according to expiration date in the Settings page.<BR><BR>This does nothing if Expiration is turned off<br>(which it is, by default)', 300, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/lock_folder.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM & "   <a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=showfiles"" onMouseOver=""toolTip('<B>Always Show Files</B><BR> Force all files within this folder to be always shown, even if all the files inside it have expired according to expiration date in the Settings page. <BR><BR>Note, if you do not force the folder to always be shown, it will disappear from the list even if this is set.  For a fully, non-expiring folder with files, turn both options on.<BR><BR>This does nothing if Expiration is turned off<BR>(which it is, by default)', 300, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/lock.gif"" border=""0"" align=""absmiddle""></a>"
                        strLM = strLM & "</div>" & vblf
                    end if
    ' END PER-FOLDER POWER-USER OPTIONS
                    strLM = strLM & "</a></b>"

                    strThis = ""
                    strFileToCheck = strPhysicalPath & request("strDir") & URLDecode(strName2Remember) & "\forPrint.txt"

                    if fileExists(strFileToCheck) and booWriteHTM <> 1 then
                        strLM = strLM & "<a href=""_inc/listMedia.asp?report=" & request("report") & "&strDir=" & strDir & objSubFolder.name & "&forPrint=true"" onMouseOver=""toolTip('Click here to view all these documents in a printable list.', 200, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/print.gif"" border=""0"" align=""absmiddle""></a>"
                    end if

                    strThis = ""
                    strFileToCheck = strPhysicalPath & request("strDir") & URLDecode(strName2Remember) & "\makeprivate.txt"
                    if fileExists(strFileToCheck) and booWriteHTM <> 1 then
                        strLM = strLM & "<img onMouseOver=""toolTip('This folder is only visible to admins.', 200, 90)"" onMouseOut=""toolTip()"" src=""_inc/images/icons/ghost.gif"" border=""0"" align=""absmiddle"">"
                    end if

                    strThis = ""
                    strFileToCheck = strPhysicalPath & request("strDir") & URLDecode(strName2Remember) & "\hidehtml.txt"
                    if fileExists(strFileToCheck) and booWriteHTM <> 1 and isPowerUser() then
                        strLM = strLM & "<img onMouseOver=""toolTip('(ICON visible only to admins) The find-HTML feature is <B>OFF</B>; all files will show automatically in this folder.', 200, 90)"" onMouseOut=""toolTip()"" src=""_inc/images/icons/htm.gif"" border=""0"" align=""absmiddle"">"
                    end if

                    strThis = ""
                    strFileToCheck = strPhysicalPath & request("strDir") & URLDecode(strName2Remember) & "\showalways.txt"
                    if fileExists(strFileToCheck) and booWriteHTM <> 1 and isPowerUser() then
                        strLM = strLM & "<img onMouseOver=""toolTip('(ICON visible only to admins)<BR>This folder will always be shown, even if the files within it have expired.  This is primarily used in an FTP type of setup.', 200, 90)"" onMouseOut=""toolTip()"" src=""_inc/images/icons/lock_folder.gif"" border=""0"" align=""absmiddle"">"
                    end if

                    strThis = ""
                    strFileToCheck = strPhysicalPath & request("strDir") & URLDecode(strName2Remember) & "\showfiles.txt"
                    if fileExists(strFileToCheck) and booWriteHTM <> 1 and isPowerUser() then
                        strLM = strLM & "<img onMouseOver=""toolTip('(ICON visible only to admins)<BR>This files within this folder will always be shown, even when expired.  This is primarily used in an FTP type of setup.', 200, 90)"" onMouseOut=""toolTip()"" src=""_inc/images/icons/lock.gif"" border=""0"" align=""absmiddle"">"
                    end if


                    ' show file-upload link
                    strThis = ""
                    strFileToCheck = strPhysicalPath & request("strDir") & URLDecode(strName2Remember) & "\allowupload.txt"
                    if booWriteHTM <> 1 and (booAllowUploads = 1 or fileExists(strFileToCheck)) then 
                        strLM = strLM & "<a href='_inc/upload_file.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&void=false' onMouseOver=""toolTip('<B>File Upload</B><BR>Click here to upload files to this list.', 200, 90)"" onMouseOut=""toolTip()""><img src='_inc/images/icons/upload.gif' border='0' align='absmiddle' hspace='6'></a>" & vblf
                    end if

                    strLM = strLM & "<BR>"
                    


                    ' BEGIN SCAN
                    ' ------------ scan this folder to see if there is any HTML.  If so, only display the HTML links.
                    blnFoundHTML = 0
                    blnFoundHTMLignore = 0
                    blnFoundHTMLexceptions = 0
                    blnFoundORDERtxt = 0
                    blnListMEDIAtxt = 0
                    blnAllFilesExpired = 1
                    blnResetAllFilesExpired = 0
                    blnIgnoreFileExpiration = 0
                    For Each objFile In objSubFolder.Files
                        getFileInformation(objFile)
                        if DateOkay(strFileDateModified) then blnAllFilesExpired = 0
                        if instr("html", lcase(strExt)) > 0 or instr(".htm", lcase(strExt)) > 0 then blnFoundHTML = 1
                        if lcase(strName) = "exceptions.txt" then blnFoundHTMLexceptions = 1
                        if instr("file_order.txt", lcase(strName)) > 0 then blnFoundORDERtxt = 1
                        if instr("autographical.txt", lcase(strName)) > 0 then blnListMEDIAtxt = 1
                        if instr("hidehtml.txt", lcase(strName)) > 0 then blnFoundHTMLignore = 1
                        if instr("showalways.txt", lcase(strName)) > 0 then blnResetAllFilesExpired = 1
                        if instr("showfiles.txt", lcase(strName)) > 0 then blnIgnoreFileExpiration = 1
                        if len(strName) > intMacCharacters then strBrokeMacLimit = strBrokeMacLimit & strName & ", "
                        if instr(strName, " ") > 0 then strFoundSpacesInName = strFoundSpacesInName & strName & ", "
                    Next
                    for each objSubSubFolder in objSubFolder.SubFolders
                        if DateOkay(objSubSubFolder.DateLastModified) then blnAllFilesExpired = 0
                    next

                    if blnResetAllFilesExpired = 1 then blnAllFilesExpired = 0
                    if blnFoundHTMLignore = 1 then blnFoundHTML = 0
                    if blnAllFilesExpired = 1 and intHideDays > 0 then
                        if isPowerUser() then
                            strLM = strLM & vblf &  "<style>" & vblf & _
                                                    "   #Folder" & intFolderIndex & " {background:url('./_inc/images/expired.gif');}" & vblf & _
                                                    "</style>" & vblf
                        else
                            strLM = strLM & vblf &  "<style>" & vblf & _
                                                    "   #Folder" & intFolderIndex & " {display:none;}" & vblf & _
                                                    "</style>" & vblf
                        end if
                    end if
                    
                    ' END SCAN





                    if blnFoundHTMLexceptions = 1 then
                        strExcludeBuffer = strExcludeFromList

                        strThis = buildPathTo(request("strDir") & objSubFolder.Name & "\exceptions.txt")

                        strExcludeFromList = strExcludeFromList & ", " & readText(strThis, "")
                    end if


                    ' BEGIN process sub-directories
                    intI = 0
                    intFoundFolderExceptions = 0
                    strThis = ""

                    on error resume next
                    strThis = buildPathTo(request("strDir") & objSubFolder.Name & "\exceptions.txt")
                    strThis = readText(strThis, "")
                    on error goto 0

                    if booWriteHTM = 1 then
                        on error resume next
                        createFolder strPhysicalPath & strOfflineFolder & objSubFolder.name & "\"
                        on error goto 0
                    end if

                    for each objSubSubFolder in objSubFolder.SubFolders
                        strName = objSubSubFolder.Name

                        if booWriteHTM = 1 then
                            on error resume next
                            createFolder strPhysicalPath & strOfflineFolder & objSubFolder.name & "\" & objSubSubFolder.Name & "\"
                            for each objSubSubFile in objSubSubFolder.files
                                if DateOkay(strFileDateModified) then
                                    copyFile strPhysicalPath & objSubFolder.name & "\" & objSubSubFolder.Name & "\" & objSubSubFile.name, strPhysicalPath & strOfflineFolder & objSubFolder.name & "\" & objSubSubFolder.Name & "\"
                                end if
                            next
                            on error goto 0
                        end if

                        if instr(lcase(strThis), lcase(strName) & "/") > 0 then
                            intFoundFolderExceptions = intFoundFolderExceptions + 1
                        end if
                        intI = intI + 1
                    next

                    ' IF THIS FOLDER HAS A/SOME SUB-FOLDER(s)...
                    if objSubFolder.SubFolders.count > 0 and blnFoundHTML = 0 and intI > intFoundFolderExceptions then
                        strFileToCheck = strPhysicalPath & request("strDir") & strName2Remember & "\show_more.txt"
                        if not fileExists(strFileToCheck) then
                            if booWriteHTM = 1 then
                                strLM = strLM & "<span class='alert'>Subfolder Lists cannot be saved to disk.</span><br>" & vblf
                            else
                                strLM = strLM & "<img align='absmiddle' height=17 width=20 src='_inc/images/icons/folder.gif' alt='' border='0' /> " & _
                                                "<a href='" & strScriptName & "?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "/'>Browse " & URLDecode(strName2Remember) & "</a>" & vblf
                            end if
                        end if
                        if isPowerUser() and booWriteHTM <> 1 then
                            strLM = strLM & "<a href=""_inc/misc_user_utilities.asp?report=" & request("report") & "&strDir=" & request("strDir") & strName2Remember & "&method=show_more"" onMouseOver=""toolTip('Show or Hide the link to subfolders of this folder.', 200, 90)"" onMouseOut=""toolTip()""><img src=""_inc/images/icons/no_folder.gif"" border=""0"" align=""absmiddle""></a><br>" & vblf
                        else
                            if not fileExists(strFileToCheck) then
                                strLM = strLM & "<br>"
                            end if
                        end if
                    end if
                    ' END process sub-directories

                    strThis = buildPathTo(request("strDir") & objSubFolder.Name & "\!!TOP.nfo")
                    if FileExists(strThis) then
                        strLM = strLM & readFileDescription(objSubFolder.Name, "!!TOP.nfo", "nfo")
                    end if



                    if blnFoundORDERtxt = 1 then
                        strThis = buildPathTo(request("strDir") & objSubFolder.Name & "\file_order.txt")
                        strFileContents = readText(strThis, "")
                        if len(strFileContents) > 0 then
                            do
                                if instr(strFileContents, chr(13)) > 0 then
                                    strName = left(strFileContents, instr(strFileContents, chr(13))-1)
                                else
                                    strName = strFileContents
                                end if
                                if len(strName) > 0 then
                                    if right(lcase(strName), 4) = "html" then
                                        strExt = right(strName,4)
                                    else
                                        strExt = right(strName,3)
                                    end if
                                    strName2Display = replace(left(strName, len(strName)-(len(strExt)+1)), "_", " ")
                                    strSize = ""
                                    smartDisplayLinks objSubFolder.Name, strName, strName2Display, strExt, strSize, strFileDateModified
                                end if

                                strFileContents = right(strFileContents, len(strFileContents)-instr(strFileContents, chr(13)))
                                response.flush
                            loop until len(strFileContents) = 0


                            ' Saving Offline: Copy the file, regardless; if we don't link to it in the index, then so what?
                            if booWriteHTM = 1 then
                                For Each objFile In objSubFolder.Files
                                    getFileInformation(objFile)
                                    if DateOkay(strFileDateModified) then
                                        copyFile strPhysicalPath & objSubFolder.Name & "\" & strName, strPhysicalPath & strOfflineFolder & objSubFolder.Name & "\"
                                    end if
                                Next
                            end if
                        end if
                    elseif blnListMEDIAtxt = 1 then
                        ' IF YOU WANT AN AUTO-GRAPHICAL LIST...
                        if booWriteHTM = 1 then
                            strLM = strLM & "<img align='absmiddle' height=17 width=20 src='_inc/images/icons/folder.gif' alt='' border='0' /> <span class='alert'>Autographical lists cannot be saved to disk.</span><br>" & vblf
                        else
                            strLM = strLM & "<img align='absmiddle' height=17 width=20 src='_inc/images/icons/folder.gif' alt='' border='0' /> <a href='_inc/listMedia.asp?report=" & request("report") & "&strDir=" & Server.URLEncode(strDir & objSubFolder.name) & "'>Browse " & cleanHrule(hideFolderSortCharacter(objSubFolder.name)) & "</a><br>" & vblf
                        end if
                    else
                        intI = 0
                        For Each objFile In objSubFolder.Files
                            getFileInformation(objFile)
                            intI = intI + 1
                            if DateOkay(strFileDateModified) then

                                ' Saving Offline: Copy the file, regardless; if we don't link to it in the index, then so what?
                                if booWriteHTM = 1 then
                                    copyFile strPhysicalPath & objSubFolder.Name & "\" & strName, strPhysicalPath & strOfflineFolder & objSubFolder.Name & "\"
                                end if


                                if blnGenerateNames then
                                    strName2Display = URLDecode(strName2Remember) & " " & right("0" & intI, 2)
                                else
                                    strName2Display = replace(left(strName, len(strName)-(len(strExt)+1)), "_", " ")
                                end if

                                if blnFoundHTML = 0 then
                                    if fileAllowable(strExcludeFromList, strExt, strName) then
                                        smartDisplayLinks objSubFolder.Name, strName, strName2Display, strExt, strSize, strFileDateModified
                                    end if
                                else
                                    if instr(lcase(strName), "spacer") > 0 then
                                        strLM = strLM & "<BR>"
                                    elseif instr(lcase(strName), "hrule") > 0 then
                                        strLM = strLM & strHR
                                    else
                                        if blnFoundHTMLexceptions = 0 then
                                            if instr(".html", strExt) > 0 or instr(".aspx", strExt) > 0 then
                                                ' IF YOU HAVE HTML TO LINK TO...
                                                if blnHTM_onthefly then
                                                    if booWriteHTM = 1 then
                                                        strLM = strLM & strBullet & "[error saving HTM; disable HTML-on-the-fly in settings]<br>" & vblf
                                                    else
                                                        strLM = strLM & strBullet & "<a href='_inc/showHTM.asp?report=" & request("report") & "&strDir=" & request("strDir") & "&strFile=" & encrypt("../" & replace(strDir, "./", "") & objSubFolder.Name & "/" & strName, strCryptKey) & "'>" & strName2Display & "</a><br>" & vblf
                                                    end if
                                                else
                                                    strLM = strLM & strBullet & "<a href='" & objSubFolder.Name & "/" & strName & "'>" & strName2Display & "</a><br>" & vblf
                                                end if
                                                if blnShowFeedback and request("report") = "true" then strLM = strLM & (runReport(objSubFolder.Name, strName, false))
                                            end if
                                        else
                                            if instr(".html", strExt) > 0 or instr(".aspx", strExt) > 0 then
                                                ' AGAIN, IF YOU HAVE HTML TO LINK TO... I THINK(?)
                                                strLM = strLM & strBullet & "<a href='" & objSubFolder.Name & "/" & strName & "'>" & strName2Display & "</a><br>" & vblf
                                            else
                                                if fileAllowable(strExcludeFromList, strExt, strName) then
                                                    smartDisplayLinks objSubFolder.Name, strName, strName2Display, strExt, strSize, strFileDateModified
                                                end if
                                            end if
                                        end if
                                    end if
                                end if
                            end if
                            response.flush
                        Next
                    End if
                    strLM = strLM & "<BR>"
                    strLM = strLM & "</div> <!-- END Container Folder " & intFolderIndex & " -->" & vblf

                    strExcludeFromList = strExcludeBuffer
                end if
            end if
        next
        set objFolder = nothing
        set objFile = nothing
        set strName = nothing
        set strSize = nothing
        set strDateModified = nothing
        set strExt = nothing

        listMockups = strLM
    end function



    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



    function smartDisplayLinks(strFolder, strName, strName2Display, strExt, strSize, strFileDateModified)
        if instr(lcase(strName), "spacer") > 0 then
            strLM = strLM & "<BR>"
        elseif instr(lcase(strName), "hrule") > 0 then
            strLM = strLM & strHR
        elseif instr(lcase(strName), ".db") > 0 then ' We need to ignore *.db
            ' do nothing
        elseif instr(lcase(strName), "_links") > 0 then
            parseFileLinks(strFolder)
        elseif booOnlyFTP = 0 and instr("jpg,gif,bmp,png,pcd,pcx,psd,psp,tga,wmf", lcase(strExt)) then
            if booWriteHTM = 1 then
                strX = "_inc/showImage.asp?report=" & request("report") & "&strDir=" & request("strDir") & "&strFile=" & encrypt("../" & strDir & strFolder & "/" & strName, strCryptKey) & "&booWriteHTM=1"

                strDHname = replace(strDir & strFolder & strName, "/", "")
                strDHname = replace(strDir & strFolder & strName, ".", "")

                strWriteJS = strWriteJS & "setTimeout(""window.open('" & strX & "','w" & getRandomNumber(1, 999999999) & "','width=300,height=150,status=no,toolbar=no');""," & intJSeconds & ");" & vblf
                strWriteJS = strWriteJS & "setTimeout(""HideShow(document.getElementById('" & strDHname & "'));""," & intJSeconds-(int(intJSeconds)/2) & ");" & vblf
                ' strWriteDH = strWriteDH & "<div id='" & strDHname & "' style='display:none;'>" & strDir & strFolder & "/" & strName & "</div>" & vblf
                intJSeconds = intJSeconds + intJDefaultSeconds


                strX = strDir & strFolder & "/" & strName
                    on error resume next
                    createFolder strPhysicalPath & strOfflineFolder & strFolder
                    on error goto 0
                    copyFile strPhysicalPath & strX, strPhysicalPath & strOfflineFolder & strFolder
                strX = replace(strX, ".jpg", "jpg.htm")
                strX = replace(strX, ".gif", "gif.htm")
                strX = replace(strX, ".bmp", "bmp.htm")
                strX = replace(strX, ".png", "png.htm")
                strX = replace(strX, ".pcd", "pcd.htm")
                strX = replace(strX, ".pcx", "pcx.htm")
                strX = replace(strX, ".psd", "psd.htm")
                strX = replace(strX, ".psp", "psp.htm")
                strX = replace(strX, ".tga", "tga.htm")
                strX = replace(strX, ".wmf", "wmf.htm")
            else
                strX = "_inc/showImage.asp?report=" & request("report") & "&strDir=" & request("strDir") & "&strFile=" & encrypt("../" & strDir & strFolder & "/" & strName, strCryptKey)
            end if
            strLM = strLM & "<table cellpadding=0 cellspacing=0><tr><td valign=top style='padding-top:2px;'>"
            if intNewDays <> 0 then 
                strThis = checkForNewness(strFileDateModified, "margin-right:0px;")
                if len(strThis) > 0 then
                    strLM = strLM & strThis
                else
                    strLM = strLM & strBullet
                end if
            else
                strLM = strLM & strBullet
            end if
            strLM = strLM & "</td><td>" & replace("               <a title='" & strSize & "' href=""" & strX & """>" & strName2Display & "</a> " & readFileDescription(strFolder, strName, strExt) & "<br>", "/./", "/") & "</td></tr></table>" & vblf
            if blnShowFeedback and request("report") = "true" then strLM = strLM & (runReport(strFolder, strName, false))
        elseif booOnlyFTP = 0 and instr("swf", lcase(strExt)) then
            ' check if the dimensions are in the filename

            if len(strName) > 11 then
                if lcase(mid(strName, len(strName)-7,1)) = "x" and mid(strName, len(strName)-11,1) = "_" then
                    if blnHideSwfSizes = 0 then strName2Display = left(strName2Display, len(strName2Display)-8)
                    strWH = mid(strName, len(strName)-10, 3)
                    strWH = " (" & strWH & "x" & mid(strName, len(strName)-6, 3) & ")"
                end if
            end if

            if len(strName) > 13 then
                if lcase(mid(strName, len(strName)-8,1)) = "x" and mid(strName, len(strName)-13,1) = "_" then
                    if blnHideSwfSizes = 0 then strName2Display = left(strName2Display, len(strName2Display)-10)
                    strWH = mid(strName, len(strName)-12, 3)
                    strWH = " (" & strWH & "x" & mid(strName, len(strName)-8, 3) & ")"
                end if
            end if

            if booWriteHTM = 1 then
                strX = "_inc/showSWF.asp?report=" & request("report") & "&strDir=" & request("strDir") & "&strFile=" & encrypt("../" & strDir & strFolder & "/" & strName, strCryptKey) & "&booWriteHTM=1"

                strDHname = replace(strDir & strFolder & strName, "/", "")
                strDHname = replace(strDir & strFolder & strName, ".", "")

                strWriteJS = strWriteJS & "setTimeout(""window.open('" & strX & "','w" & getRandomNumber(1, 999999999) & "','width=300,height=150,status=no,toolbar=no');""," & intJSeconds & ");" & vblf
                strWriteJS = strWriteJS & "setTimeout(""HideShow(document.getElementById('" & strDHname & "'));""," & intJSeconds-(int(intJSeconds)/2) & ");" & vblf
                ' strWriteDH = strWriteDH & "<div id='" & strDHname & "' style='display:none;'>" & strDir & strFolder & "/" & strName & "</div>" & vblf
                intJSeconds = intJSeconds + intJDefaultSeconds


                strX = strDir & strFolder & "/" & strName
                    on error resume next
                    createFolder strPhysicalPath & strOfflineFolder & strFolder
                    on error goto 0
                    copyFile strPhysicalPath & strX, strPhysicalPath & strOfflineFolder & strFolder
                strX = replace(strX, ".swf", "swf.htm")
            else
                strX = "_inc/showSWF.asp?report=" & request("report") & "&strDir=" & request("strDir") & "&strFile=" & encrypt("../" & strDir & strFolder & "/" & strName, strCryptKey)
            end if

            strLM = strLM & "<table cellpadding=0 cellspacing=0><tr><td valign=top style='padding-top:2px;'>" 
            if intNewDays <> 0 then 
                strThis = checkForNewness(strFileDateModified, "margin-right:0px;")
                if len(strThis) > 0 then
                    strLM = strLM & strThis
                else
                    strLM = strLM & strBullet
                end if
            else
                strLM = strLM & strBullet
            end if
            strLM = strLM & "</td><td>" & replace("               <a title='" & strSize & strWH & "' href=""" & strX & """>" & strName2Display & "</a> " & readFileDescription(strFolder, strName, strExt) & "<br>", "/./", "/") & "</td></tr></table>" & vblf
            if blnShowFeedback and request("report") = "true" then strLM = strLM & (runReport(strFolder, strName, false))
            
        else
            strLM = strLM & "<table cellpadding=0 cellspacing=0><tr><td valign=top style='padding-top:2px;'>" & strBullet & "</td><td>" & replace("               <a title='" & strSize & "' href=""" & strDir & strFolder & "/" & strName & "?report=" & request("report") & """>" & strName2Display & "</a> " & readFileDescription(strFolder, strName, strExt) & "<br>", "/./", "/") & "</td></tr></table>" & vblf
            if blnShowFeedback and request("report") = "true" then strLM = strLM & (runReport(strFolder, strName, false))
        end if
    end function



    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



    openingFunctions()                                          ' see custom_functions.asp
    checkSecurity "default"                                     ' performs select-case routines based on programmer-defined login

    blnShowFeedback = setShowFeedback()
    if blnShowFeedback then
        on error resume next
        connection "open"
        on error goto 0
    end if



    strBody = strBody & "       <html>" & vblf & _
                        "           <head>" & keywords("", "") & vblf
    if isPowerUser() and booWriteHTM <> 1 then
        strBody = strBody & "<link rel=""alternate"" type=""application/rss+xml"" title=""RSS 2.0"" href=""_inc/rss.asp?report=true&strDir=../"" />"
    end if
    strBody = strBody & "               <title>" & titleDefault() & "</title>" & vblf & _
                        "               <link href=""_inc/css/default.css"" type=""text/css"" rel=""stylesheet"">" & vblf & _
                        "               <link href=""_setup/userdefined.css"" type=""text/css"" rel=""stylesheet"">" & vblf & _
                        "               <style>" & vblf
    if blnShowFeedback and request("report") = "true" then
        strBody = strBody & "               body {background-color:white;}" & vblf
    else
        strBody = strBody & "               body {background-color:#" & strBodyBackground & ";}" & vblf
    end if
    strBody = strBody & "               </style>" & vblf & _
                        "               <SCRIPT LANGUAGE=""JavaScript"" src=""./_inc/js/functions.js""></SCRIPT>" & vblf & _
                        "           </head>" & vblf & _
                        "           <body id=""MyBody"">" & vblf & _
                        "               <center>" & vblf
    strBody = strBody & "                   <div class='divBody'>" & vblf
    if len(strHomeLink) > 0 then rw "<a href=""" & strHomeLink & """>"
    strBody = strBody & "                       <img src=""_setup/title.gif"" border=""0"" width=""650"" height=""70"" alt=""""></a>" & vblf & _
                        "                       <table width=""100%""><tr><td style=""padding:20px;"">" & vblf & _
                        "                           <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" summary="""">" & vblf & _
                        "                               <tbody>" & vblf & _
                        "                                   <tr><td>" & placeGlobalHeader() & "</td>" & vblf & _
                        "                                       <td align=""right"">"

    if strShowingDir <> "./" then
        strThis = request("strDir")
        if GetSubstringCount(strThis, "/", false) > 1 then
            strThis = left(strThis, len(strThis)-1)
            strThis = left(strThis, instrrev(strThis, "/"))
            strBody = strBody & "<a href='default.asp?report=" & request("report") & "&strDir=" & strThis & "'><img src='_inc/images/icons/folder_up.gif' alt='' border='0' onMouseOver=""toolTip('Return to the previous index.', 200, 90)"" onMouseOut=""toolTip()"" /></a>" & vblf
        else
            strBody = strBody & "<a href='default.asp?report=" & request("report") & "'><img src='_inc/images/icons/folder_up.gif' alt='' border='0' onMouseOver=""toolTip('Return to the previous index.', 200, 90)"" onMouseOut=""toolTip()"" /></a>" & vblf
        end if
    end if
    if isPowerUser() and strShowingDir = "./" then
        strBody = strBody & "<span style='font-size:8px;'>"
        if strCheckBrowser = "MSIE" then strBody = strBody & "<a style='text-decoration:none;' href='javascript:Copy1(""form_one.strWorkingFolder"");alert(""Copied to Clipboard"");'>"
        strBody = strBody & strWorkingFolder
        if strCheckBrowser = "MSIE" then strBody = strBody & "</a></span><form name='form_one'><input type='hidden' name='strWorkingFolder' value='" & strWorkingFolder & "'></form>"
        if len(strJobNumber) > 0 then strBody = strBody & " &nbsp; <span style='font-size:8px;'>(" & strJobNumber & ")</span>"
    end if

    strBody = strBody & "                                       </td>" & vblf & _
                        "                                   </tr>" & vblf & _
                        "                               </tbody>" & vblf & _
                        "                           </table>" & vblf & _
                        "                           <div class='separator'></div>" & vblf
    if len(strPDescription) > 0 and request("strDir") = "" then
        if blnRestrictDescWidth = 1 then strBody = strBody & "<div style='width:300px;'>"
        strBody = strBody & strPDescription & "<div class='separator'></div>"
        if blnRestrictDescWidth = 1 then strBody = strBody & "</div>"
    end if

    if request("report") <> "true" then
        strBody = strBody & "                       <div id=""pagelogo"" style=""float:right;"">"
        if len(strLogoLink) > 0 then strBody = strBody & "<a href=""" & strLogoLink & """>"
        strBody = strBody & "<img src=""_setup/logo.gif"" border=""0"" alt=""""></a></div>" & vblf
    end if

    strBody = strBody &                             listMockups(strDir, "_inc/, _setup/, .nfo, _offline/") & vblf & _
                        "                           <div class='separator'></div>" & placeGlobalFooter() & vblf
    strBody = strBody & UserCommentLink() & vblf
    strBody = strBody & "                       </table>" & vblf & _
                        "                   </div>" & vblf & _
                        "               </center>" & vblf
    if isPowerUser() and booWriteHTM <> 1 then
        if len(strFoundSpacesInName) > 0 or len(strBrokeMacLimit) > 0 then
            if len(strBrokeMacLimit) > 0 then strBrokeMacLimit = left(strBrokeMacLimit, len(strBrokeMacLimit)-2)
            if len(strFoundSpacesInName) > 0 then strFoundSpacesInName = left(strFoundSpacesInName, len(strFoundSpacesInName)-2)

            strBody = strBody & "<div id=""whatsnew1"" class=""pointerhand"" onClick=""HideShow(document.getElementById('whatsnew1'));HideShow(document.getElementById('whatsnew2'));"" style=""display:block; position:absolute; top:0; left:0; border:2px solid black; padding:5; padding-bottom:8px; background:#FFFFB9; text-align:center; width:140; height:10; font-size:10px; z-index:10;""> &nbsp; Attention! &nbsp; <img src=""_inc/images/attention.gif"" align=""absmiddle""></div>" & vblf
            strBody = strBody & "<div id=""whatsnew2"" class=""pointerhand"" onClick=""HideShow(document.getElementById('whatsnew2'));"" style=""display:none; text-align:left; position:absolute; top:0; left:0; border:2px solid black; padding:0; background:#FFFFB9; width:340; height:290; font-size:10px; z-index:10; overflow:auto;""><i>(This note only appears for user(s): " & strPowerUsers & ")</i>" & vblf
            strBody = strBody & "<ul>" & vblf

            if len(strBrokeMacLimit) > 0 then strBody = strBody & "    <li style='margin-bottom:20px;'><B>Too many characters!</B><BR><BR>At least one file name with more than " & intMacCharacters & " characters was found; if you decide to save this website for offline browsing, these files are not going to appear on a Mac.  The files are:<BR><BR> " & strBrokeMacLimit & vblf
            if len(strFoundSpacesInName) > 0 then strBody = strBody & "    <li style='margin-bottom:20px;'><B>Spaces in names!</B><BR><BR>At least one file name with spaces in its name was found. It's not a good practice to use spaces in file names on the web.  It will probably work, but it is recommended to change all spaces to underscores.  The files are:<BR><BR> " & strFoundSpacesInName & vblf

            strBody = strBody & "</ul>" & vblf
            strBody = strBody & "</div>" & vblf
        end if
    end if
    
    if intBadFile > 0 then
        strBody = strBody & "<div id=""divBadFiles1"" class=""pointerhand"" onClick=""HideShow(document.getElementById('divBadFiles1'));HideShow(document.getElementById('divBadFiles2'));"" style=""display:block; position:absolute; top:30; left:30; border:2px solid black; padding:5; padding-bottom:8px; background:#FFFFB9; text-align:center; width:140; height:10; font-size:10px; z-index:10;""> &nbsp; Attention! &nbsp; <img src=""_inc/images/attention.gif"" align=""absmiddle""></div>" & vblf
        strBody = strBody & "<div id=""divBadFiles2"" class=""pointerhand"" onClick=""HideShow(document.getElementById('divBadFiles2'));"" style=""display:none; text-align:left; position:absolute; top:30; left:30; border:2px solid black; padding:10; background:#FFFFB9; width:340; height:290; font-size:10px; z-index:10; overflow:auto;"">" & vblf
        strBody = strBody & "The following files are not allowed to be shown on this website.  To access them, please log in using a normal FTP client." & vblf
        strBody = strBody & "<ul>" & vblf

        for intI = 0 to intBadFile
            if len(arrBadFiles(intI,2)) > 0 then strBody = strBody & "    <li style='margin-bottom:8px;'>" & arrBadFiles(intI,2) & "</li>" & vblf
        next
        
        strBody = strBody & "</ul>" & vblf


        if isPowerUser() then
            strBody = strBody & "<br><br>Click <a href='" & strScriptName & "?report=" & request("report") & "&strDir=" & request("strDir") & "&allowCopy=true'>here</a> to allow these files in the list.  If you received a subdirectory warning, these files cannot be copied automatically; please contact technical support.  <BR><BR><B>Click anywhere on this note to close it.</B>" & vblf
        end if


        strBody = strBody & "</div>" & vblf
    end if
    
    strBody = strBody & "<center><div style='width:100px; cursor:default; color:#" & strBodyBackground & ";' onMouseOver=""toolTip('Version " & right("0" & year(dtmUpdated),2) & right("0" & month(dtmUpdated),2) & right("0" & day(dtmUpdated),2) & "', 100, 90)"" onMouseOut=""toolTip()"" >" & right("0" & year(dtmUpdated),2) & right("0" & month(dtmUpdated),2) & right("0" & day(dtmUpdated),2) & "</div></center>"
    strBody = strBody & "           </body>" & vblf & _
                        "       </html>" & vblf

    if booWriteHTM = 1 then
        WriteText replace(strPhysicalPath, "", "") & strOfflineFolder & "default.htm", strBody
        rw  "<html><head>" & vblf & _
            "       <meta http-equiv=refresh content=""" & (intJSeconds + intJDefaultSeconds)/1000 & "; URL=./_inc/writeTextSummary.asp"">" & vblf & _
            "       <SCRIPT LANGUAGE=""JavaScript"" src=""./_inc/js/functions.js""></SCRIPT>" & vblf & _
            "       <script language=""javascript"">" & vblf & _
            "           function writePages() {" & vblf & _
                            strWriteJS & vblf & _
            "           } " & vblf & _
            "       </script></head>" & vblf & _
            "       <body onload=""writePages();"">" & vblf & _
            "           Please wait <B>about " & (intJSeconds + intJDefaultSeconds)/1000 & " Seconds</B> while your files are written.  Note that if your popup blocker is not disabled, you must click BACK and try again." & vblf & _
            "       </body></html>" & vblf
    else
        rw strBody
    end if


    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ' %%% Close and Finish


    if request("report") <> "true" then
        if blnLogoExists = 0 then response.write "<script language=""javascript"">HideShow(document.getElementById('pagelogo'));</script>" & vblf
    end if
    if blnShowFeedback then
        on error resume next
        connection "close"
        on error goto 0
    end if
    closingFunctions()                                          ' see custom_functions.asp
%>