<%@ 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

<% end if %>










©Copyright 2002
Tidewater Basketry Guild
Site Index
All Rights Reserved
webmaster@tidewaterbasketryguild.org