Tidewater Basketry Guild- Phot Gallery

<%@ LANGUAGE="VBSCRIPT" %> <% ' ---------------------------------------------------------- ' note, we're avoiding session variables for performance ' ' The include below sets: ' gi = which gallery # we're processing ' gx = which file within gallery we're processing ' isadmin = true or false ' qu = the URL argument setting isadmin ' squ = string U= argument to preserve is admin between ' pages without using Session variable ' gs_content_index = phyical gallery filename to pass to content object ' gs_info_dir = directory name where info file is ' gs_prefix = prefix of gallery info files ' gs_cols = # of columns in a gallery ' gs_per_page = # of pics in a single gallery file max ' gs_pic_dir = directory name where pic files are ' ' ilastpage = last page # ' icurPage = current page # ' iPrevpage = prev page# ' inextpage = next Page# ' ---------------------------------------------------------- %> <% ' having problems? Uncomment this to debug ' report_err ("For debugging only") %> Tidewater Basketry Guild- Phot Gallery

Guild Pictures!

Photo Gallery

Click any image to enlarge it

<% I = 1 colwidth = int(100 / gs_cols ) col=1 ' reset gx to be the beginning of the page if gs_count = 0 then gx = 1 else gx = ((icurpage - 1) * gs_per_page) + 1 end if Do While I <= gs_per_page and gx <= gs_count sURL = NextLink.GetNthURL (gs_content_index, gx) sOrig = NextLink.GetNthDescription (gs_content_index, gx) sDesc = left(SOrig,instr(SOrig,"~") - 1) sName = mid(SOrig,instrrev(SOrig,"~") + 1) semail = mid(SOrig,instr(SOrig,"~") +1, instrrev(SOrig,"~") - instr(SOrig,"~") -1 ) %> <% if col=1 then %> <% end if %> <% if col = gs_cols then col = 1 %> <% else col = col + 1 end if I = (I + 1) gx = gx + 1 Loop %>

<% if isadmin then %> Nuke me!

Edit me!

<%= sUrl %>
<% end if %>

<% if sName > "" then %>
By: <%= sName %> <% end if %> <% if sdesc > "" then %>
<%= sDesc %> <% end if %>

<% if icurpage > 1 then %> <% end if %> First

<% if icurpage > 1 then %> <% end if %> Previous

Page
<%= iCurpage %> of <%= ilastpage %>

<% if icurpage < iLastpage then %> <% end if %> Next

<% if icurpage < iLastpage then %> <% end if %> Last

Quick
Jump

<% i = 1 Do while i <= ilastpage %> <% if i = iCurpage then %> <%= cstr(i) %> <% else %> <%= cstr(i) %> <% end if %> <% i = i + 1 Loop %>

<% if isadmin then %>

Upload a new pic