<% linkcols = 4 thumbcols = 4 connect sspageno = request("page") if sspageno = "" or not isnumeric(sspageno) then sspageno = session("SSPageNo") else session("SSPageNo") = sspageno end if picno = request("pic") %> Reunion 2006 <% if picno = "" then %> <% else %> <%end if%>

Reunion 2006

<% rows = int((Application("PageCount") + linkcols - 1) / linkcols) for row = 1 to rows response.write "" & vbcrlf for col = 1 to linkcols if col > 1 then response.write "" end if response.write "" & vbcrlf next response.write "" & vbcrlf next %>
   " & vbcrlf x = (col - 1) * rows + row - 1 idtitle = application("page" & x) pos = instr(idtitle, "|") if pos > 1 then id = left(idtitle, pos - 1) title = mid(idtitle, pos + 1) response.write "" & title & " " else response.write " " end if response.write "
<% idtitle = application("page" & sspageno) pos = instr(idtitle, "|") id = left(idtitle, pos - 1) title = mid(idtitle, pos + 1) %>

 

<%=title%>

click picture to enlarge
<% set rs = conn.execute("GetReunion2006PicsByPage " & id) %> <% do while not rs.eof%> <% rs.movenext for i = 2 to thumbcols %> <% next %> <% loop %>

">.jpg" border=0 alt="<%=rs("PicCaption")%>">
<%=rs("PicCaption")%>

  <% if not rs.eof then %>

">.jpg" border=0 alt="<%=rs("PicCaption")%>">
<%=rs("PicCaption")%>

<% rs.movenext else %>   <% end if %>

Back to top
<% set rs = conn.execute("GetReunion2006PicByPicID " & picno ) %>

 

<%=rs("PageTitle")%>

click picture to return

?page=<%=sspageno%>>.jpg" border=0>

<%=rs("PicCaption")%>