<% 'option explicit dim fso, ts dim strGalleryLine dim GalleryArray dim PhotoDir dim FullDir dim x dim y dim z dim Caption(4) photodir = request.querystring("Directory") fulldir = basepath & "/" & photodir & "/gallery.txt" 'response.write photodir & " " & fulldir & "
" response.write "" & vbcrlf %> <% set fso = createObject ("Scripting.FileSystemObject") set ts = fso.opentextfile(fulldir, 1) x = 0 y = 0 response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf do while not ts.atEndOfStream strGalleryLine = ts.readline 'response.write strGalleryLine & "
" GalleryArray = split(strGalleryLine,"|") 'response.write GalleryArray(0) & " " & GalleryArray(1) & "
" if GalleryArray(0) = "Heading" then response.write "" & vbcrlf y = 1 else if y = 1 then response.write "" & vbcrlf y = 0 end if if x = 0 then response.write "" & vbcrlf end if 'response.write cint(ubound(GalleryArray)) & vbcrlf if ubound(GalleryArray) > 4 and GalleryArray(5) <> "" then caption(x) = GalleryArray(5) 'response.write "|" & Caption & "|" else caption(x) = " " end if response.write "" & vbcrlf if x = 3 then response.write "" & vbcrlf response.write "" & vbcrlf for z = 0 to 3 response.write "" & vbcrlf next response.write "" x = 0 else x = x + 1 end if end if loop 'response.write cint(x) & "
" if x > 0 then response.write "" & vbcrlf response.write "" & vbcrlf for z = 0 to x - 1 response.write "" & vbcrlf next response.write "" end if set ts = nothing set fso = nothing %>

" & vbcrlf response.write "www.sarj.org
" & GalleryArray(1) & "
" & vbcrlf response.write "" & vbcrlf response.write "
" & caption(z) & "
" & caption(z) & "