<% on error resume next Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") urlParts = split(request.servervariables("URL"),"/") redim preserve urlParts(ubound(urlParts)-1) urlPath = join(urlParts, "/") Set f = fso.GetFolder(server.mappath(urlPath)) Set fc = f.Files session("photoindex") = request.servervariables("URL") & "?" & request.servervariables("QUERY_STRING") 'Response.ContentType = "application/rss+xml"; %> <% lastFirstChar = "0" section = "WEDDINGS AND COUPLES" For Each f1 in fc if lastFirstChar <> left(f1.name,1) then lastFirstChar = left(f1.name,1) if lastFirstChar = "1" then section = "FASHION, FAMILY AND HEADSHOTS" if lastFirstChar = "5" then section = "UNDERWATER" if lastFirstChar = "4" then section = "THE EXTENDED FURRY FAMILY" if lastFirstChar = "6" then section = "CONCERT AND LIVE PERFORMANCE" if lastFirstChar = "7" then section = "ARCHITECTURAL" if lastFirstChar = "8" then section = "PRODUCT" if lastFirstChar = "9" then section = "MISC" end if if (right(lcase(f1.name), 4) = ".jpg") then fnum = "" fname = "" if lcase(left(f1.name,4)) <> "dsc_" then fname = replace(f1.name, ".jpg", "") fname = replace(fname, "_", " ") else for i = 1 to len(f1.name) if mid(f1.name, i, 1) <= "9" and mid(f1.name, i, 1) >= "0" then fnum = fnum + mid(f1.name, i, 1) next fname = "Image #" & fnum end if thumb = "http://www.photographicmoments.net/sizer1/?filename=" & urlPath & "/" & f1.name & "&maxdimention=120" %> <%=thumb%> <% end if Next %>