AgoraSessions.com

<% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set OpenThumbs = FSO.GetFolder(Server.MapPath("Thumbs")) VPic = Request.QueryString("Pic") %> AgoraSessions.com - Gallery

<% If vPic <> "" Then %> <% End If %> <% i =0 For each thumb in OpenThumbs.Files If i mod 3 = 0 then response.write "" end if %> <% i = i + 1 next 'i %>