|
|
|
|
|
Picture Gallery
<%
Dim arrInames, arrTitles, ttl, cur, prv, nxt, x, i
arrTitles = array("Stress Free Boarding","No Dogs Allowed!","Cats Only Boarding","Windows, Windows, Windows!","Views from Inside the Kennels","Secure and Comfortable","Lots of Toys and Fun","A Great Place to Relax","It's Afternoon Naptime!","Lily","Belle","Duke","Monique","Winkles","Emily")
arrInames = array("Stress_Free_Boarding","No_Dogs_Allowed","Cats_Only_Boarding","Windows_Windows_Windows","Views_from_Inside_the_Kenne","Secure_and_Comfortable","Lots_of_Toys_and_Fun","A_Great_Place_to_Relax","Its_Afternoon_Naptime","Lily","Belle","Duke","Monique","Winkles","Emily")
ttl = ubound(arrInames) ' total number of items
cur = request.querystring("num") ' current item number
prv = cur - 1 ' previous item
If prv < 0 then : prv = ttl : End If
nxt = cur + 1 ' next item
If nxt > ttl then : nxt = 0 : End If
%>
<% If cur <> "" Then %>
 %>.jpg)
<%= arrTitles(cur) %>
<% Else %>
(click on any image to enlarge)
<%
i=1
For x = 0 To ttl
if ((i+3)/4) = cint((i+3)/4) Then response.write ""
%>
%>.gif)
<%=arrTitles(x)%>
|
<%
If ((i-4)/4) = Cint((i-4)/4) Then response.write " "
i = i + 1
Next
%>
<% End If %>
|