hc-junior - gallerie

<% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %>

<% Whichfolder=server.mappath("\") &"/gallerie/image/" Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Whichfolder) Set fc = f.subfolders For Each f1 in fc Response.write ("

") Next %>

<% Whichfolder=server.mappath("\") &"/gallerie/image/"& request.querystring("album") &"/" Dim bfs, bf, bf1, bfc Set bfs = CreateObject("Scripting.FileSystemObject") Set bf = bfs.GetFolder(Whichfolder) Set bfc = bf.files For Each bf1 in bfc Response.write ("

") Next %>