<% sub parsedirectory(fdir, fdir2, urlprefix, newmedia, byref lfolder) sdir = "C:\webspace\www.fahamupecouart.com\paparazzi\" & fdir set filesystem = createobject("scripting.filesystemobject") set mainfolder = filesystem.getfolder(sdir) 'set rootfolder = filesystem.getfolder("C:\webspace\www.fahamupecouart.com\paparazzi\") set subfolders = mainfolder.subfolders sfc = subfolders.count dim shows(5,1000) i = 0 for each folder in subfolders 'response.write "** In folder: " & sdir & "
" ' parsedirectory fdir & "\" & folder.name, fdir2 & "/" & folder.name, urlprefix & folder.name & "/", newmedia 'next if ucase(request("folder")) = ucase(folder.name) or sfc = 1 then response.write " // " & folder.name & "" else response.write " // " & folder.name & "" end if lfolder = folder.name ' response.write("") ' set files = mainfolder.files ' k = i ' k1 = i ' ' 'Read in the subdirectory ' for each file in files ' MediaName = split(file.name, ".") ' if ucase(MediaName(1)) = "MP3" or ucase(MediaName(1)) = "WMA" or ucase(MediaName(1)) = "WMV" then ' l = len(MediaName(0)) ' masterlink = server.htmlencode(urlprefix & file.name) ' shows(1,i) = "" & right(MediaName(0), l) & "" ' ' shows(2,i) = file.datelastmodified ' shows(2,i) = file.datecreated ' shows(3,i) = mainfolder.name ' shows(4,i) = right(MediaName(0), l) ' shows(5,i) = file.name ' i = i + 1 ' k1 = k1 + 1 ' ' 'Update the OnDemand Table ' mediaID = doesmediaexist(masterlink) ' if mediaID = 0 then ' if ucase(MediaName(1)) = "MP3" and ucase(mainfolder.name) <> "JODINE" then ' player = "WIM" ' else ' player = "WMP" ' end if ' addmedia masterlink, MediaName(0), mainfolder.name, MediaName(1), "iMix", file.datecreated, file.name, fdir2, player, "FUS" ' response.write "" ' newmedia = newmedia + 1 ' else ' 'updatemedia mediaID ' updatemedia mediaID, file.name, fdir & "/" & mainfolder.name, file.size ' end if ' end if ' next ' ' 'Determine if the file is new or not ' for j = k1 - 1 to k step -1 ' dd = datediff("d", cdate(shows(2,j)), now) ' if dd <= 7 then ' newflag = "[NEW] " ' else ' newflag = "" ' end if ' response.write "" ' next ' response.write "
Adding " & mainfolder.name & "\" & file.name & " ...
" & newflag & (shows(1,j)) & "
Posted :: " & shows(2,j) & "

" ' 'response.flush() 'arraysize = i - 1 'Sort the results to bubble the most recent files to the top 'for i = arraysize to 1 step -1 ' for j = 1 to i ' if cdate(shows(2,j-1)) > cdate(shows(2,j)) then ' temp1 = shows(1,j-1) ' temp2 = shows(2,j-1) ' temp3 = shows(3,j-1) ' temp4 = shows(4,j-1) ' temp5 = shows(5,j-1) ' shows(1,j-1) = shows(1,j) ' shows(2,j-1) = shows(2,j) ' shows(3,j-1) = shows(3,j) ' shows(4,j-1) = shows(4,j) ' shows(5,j-1) = shows(5,j) ' shows(1,j) = temp1 ' shows(2,j) = temp2 ' shows(3,j) = temp3 ' shows(4,j) = temp4 ' shows(5,j) = temp5 ' end if ' next 'next ' ''summarize by show the last 20 files added 'response.write "
Recent
" 'response.write("") 'for j = arraysize to arraysize - 20 step -1 ' if j >= 0 then ' dd = datediff("d", cdate(shows(2,j)), now) ' if dd <= 7 then ' newflag = "NEW " ' else ' newflag = "" ' end if ' response.write "" ' end if 'next 'response.write ("
[" & newflag & (shows(3,j)) & "] " & (shows(1,j)) & "
Posted :: " & shows(2,j) & "
") next end sub sub parsedirectory2(fdir, fdir2, urlprefix, newmedia) sdir = "C:\webspace\www.fahamupecouart.com\paparazzi\" & fdir & "\" 'response.write "" & sdir & "
" set filesystem = createobject("scripting.filesystemobject") set mainfolder = filesystem.getfolder(sdir) set subfolders = mainfolder.subfolders dim shows(5,1000) i = 0 'for each folder in subfolders 'response.write "** In folder: " & sdir & "
" ' parsedirectory fdir & "\" & folder.name, fdir2 & "/" & folder.name, urlprefix & folder.name & "/", newmedia 'next response.write("") set files = mainfolder.files k = i k1 = i 'Read in the subdirectory for each file in files MediaName = ucase(trim(file.name)) MediaExt = right(MediaName, 4) if (right(MediaName, 4) = ".JPG" or right(MediaName, 4) = ".GIF") and instr(ucase(MediaName), "_THUMB") > 0 then thumbnail = left(medianame, len(medianame) - 4) realpicture = left(medianame, len(medianame) - 10) l = len(MediaName) - 4 masterlink = server.htmlencode("/paparazzi/" & fdir & "/" & realpicture & MediaExt) masterthumb = server.htmlencode("/paparazzi/" & fdir & "/" & MediaName) shows(1,i) = "" ' shows(2,i) = file.datelastmodified shows(2,i) = file.datecreated shows(3,i) = masterthumb shows(4,i) = realpicture shows(5,i) = file.name i = i + 1 k1 = k1 + 1 'Update the OnDemand Table ' mediaID = doesmediaexist(masterlink) ' if mediaID = 0 then ' if ucase(MediaName(1)) = "MP3" and ucase(mainfolder.name) <> "JODINE" then ' player = "WIM" ' else ' player = "WMP" ' end if ' addmedia masterlink, MediaName(0), mainfolder.name, MediaName(1), "iMix", file.datecreated, file.name, fdir2, player, "FUS" ' response.write "" ' newmedia = newmedia + 1 ' else ' 'updatemedia mediaID ' updatemedia mediaID, file.name, fdir & "/" & mainfolder.name, file.size ' end if end if next 'Determine if the file is new or not ' for j = k1 - 1 to k step -1 ' dd = datediff("d", cdate(shows(2,j)), now) ' if dd <= 7 then ' newflag = "[NEW] " ' else ' newflag = "" ' end if ' response.write "" ' next ' response.write "
Adding " & mainfolder.name & "\" & file.name & " ...
" & newflag & (shows(1,j)) & "
Posted :: " & shows(2,j) & "

" 'response.flush() arraysize = i - 1 'Sort the results to bubble the most recent files to the top for i = arraysize to 1 step -1 for j = 1 to i if cdate(shows(2,j-1)) > cdate(shows(2,j)) then temp1 = shows(1,j-1) temp2 = shows(2,j-1) temp3 = shows(3,j-1) temp4 = shows(4,j-1) temp5 = shows(5,j-1) shows(1,j-1) = shows(1,j) shows(2,j-1) = shows(2,j) shows(3,j-1) = shows(3,j) shows(4,j-1) = shows(4,j) shows(5,j-1) = shows(5,j) shows(1,j) = temp1 shows(2,j) = temp2 shows(3,j) = temp3 shows(4,j) = temp4 shows(5,j) = temp5 end if next next newlinectr = 1 response.write "" for j = 1 to arraysize if j >= 0 then dd = datediff("d", cdate(shows(2,j)), now) if dd <= 7 then newflag = "NEW " else newflag = "" end if response.write "" & (shows(1,j)) & "
" & newflag & (shows(1,j)) & (shows(4,j)) & "" newlinectr = newlinectr + 1 if newlinectr > 5 then response.write "" newlinectr = 1 end if end if next response.write ("") end sub %>
HOME______GALLERY______STATEMENT______CV/RESUME______EVENTS/NEWS______CONTACT______LINKS
       
    PAPARAZZI  
 

JOINTS <% newmedia = 0 lfolder = "" parsedirectory "", "", "", newmedia, lfolder %>
<% if request("folder") <> "" or lfolder <> "" then newmedia = 0 if request("folder") <> "" then lfolder = request("folder") parsedirectory2 lfolder, "", "" , newmedia end if %>