<% ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' %%% 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 %> <% ' ASP settings %> <% ' ADO variables %> <% ' website-specific variables %> <% ' Site Customization for Dummies %> <% ' contains all-purpose website functions %> <% ' 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 "
Please wait while synchronizing the file: " & strFS & "
" 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 "" & 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\", "" & objFile.name & "" 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 & "\", "" & objSubFolder.name & "\" & objFile.name & "" 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 & "\", "" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objFile.name & "" 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 & "\", "" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objFile.name & "" 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 & "\", "" & objSubFolder.name & "\" & objSubSubFolder.name & "\" & objSub3Folder.name & "\" & objSub4Folder.name & "\" & objFile.name & "" 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 "" & 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 & "/,
" 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 & "
" & vblf if instr(lcase(strName), "hrule") > 0 then strLM = strLM & strHR strName = cleanHrule(strName) end if strName = replace(strName, "_", " ") strName = hideFolderSortCharacter(strName) strLM = strLM & "" & 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 & "" & vblf strLM = strLM & "" & vblf end if ' END PER-FOLDER POWER-USER OPTIONS strLM = strLM & "" strThis = "" strFileToCheck = strPhysicalPath & request("strDir") & URLDecode(strName2Remember) & "\forPrint.txt" if fileExists(strFileToCheck) and booWriteHTM <> 1 then strLM = strLM & "" end if strThis = "" strFileToCheck = strPhysicalPath & request("strDir") & URLDecode(strName2Remember) & "\makeprivate.txt" if fileExists(strFileToCheck) and booWriteHTM <> 1 then strLM = strLM & "" end if strThis = "" strFileToCheck = strPhysicalPath & request("strDir") & URLDecode(strName2Remember) & "\hidehtml.txt" if fileExists(strFileToCheck) and booWriteHTM <> 1 and isPowerUser() then strLM = strLM & "OFF; 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 & "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 & "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 & "File Upload
Click here to upload files to this list.', 200, 90)"" onMouseOut=""toolTip()"">
" & vblf end if strLM = strLM & "
" ' 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 & "" & vblf else strLM = strLM & vblf & "" & 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 & "Subfolder Lists cannot be saved to disk.
" & vblf else strLM = strLM & " " & _ "Browse " & URLDecode(strName2Remember) & "" & vblf end if end if if isPowerUser() and booWriteHTM <> 1 then strLM = strLM & "
" & vblf else if not fileExists(strFileToCheck) then strLM = strLM & "
" 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 & " Autographical lists cannot be saved to disk.
" & vblf else strLM = strLM & " Browse " & cleanHrule(hideFolderSortCharacter(objSubFolder.name)) & "
" & 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 & "
" 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]
" & vblf else strLM = strLM & strBullet & "" & strName2Display & "
" & vblf end if else strLM = strLM & strBullet & "" & strName2Display & "
" & 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 & "" & strName2Display & "
" & 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 & "
" strLM = strLM & "
" & 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 & "
" 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 & "" & 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 & "
" 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 & "" & replace(" " & strName2Display & " " & readFileDescription(strFolder, strName, strExt) & "
", "/./", "/") & "
" & 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 & "" & 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 & "
" 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 & "" & replace(" " & strName2Display & " " & readFileDescription(strFolder, strName, strExt) & "
", "/./", "/") & "
" & vblf if blnShowFeedback and request("report") = "true" then strLM = strLM & (runReport(strFolder, strName, false)) else strLM = strLM & "
" & strBullet & "" & replace(" " & strName2Display & " " & readFileDescription(strFolder, strName, strExt) & "
", "/./", "/") & "
" & 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 & " " & vblf & _ " " & keywords("", "") & vblf if isPowerUser() and booWriteHTM <> 1 then strBody = strBody & "" end if strBody = strBody & " " & titleDefault() & "" & vblf & _ " " & vblf & _ " " & vblf & _ " " & vblf & _ " " & vblf & _ " " & vblf & _ " " & vblf & _ "
" & vblf strBody = strBody & "
" & vblf if len(strHomeLink) > 0 then rw "" strBody = strBody & " " & vblf & _ "
" & vblf & _ " " & vblf & _ " " & vblf & _ " " & vblf & _ " " & vblf & _ " " & vblf & _ " " & vblf & _ "
" & placeGlobalHeader() & "" 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 & "" & vblf else strBody = strBody & "" & vblf end if end if if isPowerUser() and strShowingDir = "./" then strBody = strBody & "" if strCheckBrowser = "MSIE" then strBody = strBody & "" strBody = strBody & strWorkingFolder if strCheckBrowser = "MSIE" then strBody = strBody & "
" if len(strJobNumber) > 0 then strBody = strBody & "   (" & strJobNumber & ")" end if strBody = strBody & "
" & vblf & _ "
" & vblf if len(strPDescription) > 0 and request("strDir") = "" then if blnRestrictDescWidth = 1 then strBody = strBody & "
" strBody = strBody & strPDescription & "
" if blnRestrictDescWidth = 1 then strBody = strBody & "
" end if if request("report") <> "true" then strBody = strBody & "
" if len(strLogoLink) > 0 then strBody = strBody & "" strBody = strBody & "
" & vblf end if strBody = strBody & listMockups(strDir, "_inc/, _setup/, .nfo, _offline/") & vblf & _ "
" & placeGlobalFooter() & vblf strBody = strBody & UserCommentLink() & vblf strBody = strBody & "
" & vblf & _ "
" & vblf & _ "
" & 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 & "
  Attention!  
" & vblf strBody = strBody & "
(This note only appears for user(s): " & strPowerUsers & ")" & vblf strBody = strBody & "" & vblf strBody = strBody & "
" & vblf end if end if if intBadFile > 0 then strBody = strBody & "
  Attention!  
" & vblf strBody = strBody & "
" & 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 & "" & vblf if isPowerUser() then strBody = strBody & "

Click here to allow these files in the list. If you received a subdirectory warning, these files cannot be copied automatically; please contact technical support.

Click anywhere on this note to close it." & vblf end if strBody = strBody & "
" & vblf end if strBody = strBody & "
" & right("0" & year(dtmUpdated),2) & right("0" & month(dtmUpdated),2) & right("0" & day(dtmUpdated),2) & "
" strBody = strBody & " " & vblf & _ " " & vblf if booWriteHTM = 1 then WriteText replace(strPhysicalPath, "", "") & strOfflineFolder & "default.htm", strBody rw "" & vblf & _ " " & vblf & _ " " & vblf & _ " " & vblf & _ " " & vblf & _ " Please wait about " & (intJSeconds + intJDefaultSeconds)/1000 & " Seconds while your files are written. Note that if your popup blocker is not disabled, you must click BACK and try again." & vblf & _ " " & vblf else rw strBody end if ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' %%% Close and Finish if request("report") <> "true" then if blnLogoExists = 0 then response.write "" & vblf end if if blnShowFeedback then on error resume next connection "close" on error goto 0 end if closingFunctions() ' see custom_functions.asp %>