<% if Session("speed") = "" then Response.Redirect "choose_speed.asp" end if %> Billism's Photo Albums

Choose a photo album to view...

<% dir=server.MapPath("./") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(dir) i = -1 Response.Write "" for each tempFile in f.SubFolders ' tempFile=replace(tempFile, " ", "%20") ' Response.Write "" & tempFile.name & "" i=i+1 dir2=server.MapPath(tempFile.name) Set fso2 = CreateObject("Scripting.FileSystemObject") Set f2 = fso.GetFolder(dir2 & "/thumbnails") randomize iPic = (f2.Files.Count - 1) * rnd if i >= 4 then i = 0 Response.Write "" end if Response.Write "

" Response.Write "" if Session("speed") <> "slow" then Response.Write "" end if Response.Write "" Response.Write "
" & tempFile.name & "" if Session("speed") <> "slow" then Response.Write "
" & vbCRLF end if Response.Write "
" & vbCRLF next Response.Write "

" 'for each tempFile in f.Files 'Response.Write tempFile.name 'next Set fs = Nothing %>