<% Dim pics(21) pics(0) = "DSC00193.JPG" pics(1) = "DSC00195.JPG" pics(2) = "DSC00253.JPG" pics(3) = "DSC00254.JPG" pics(4) = "DSC00258.JPG" pics(5) = "DSC00259.JPG" pics(6) = "DSC00310.JPG" pics(7) = "DSC00311.JPG" pics(8) = "DSC00862.JPG" pics(9) = "DSC00867.JPG" pics(10) = "DSC00870.JPG" pics(11) = "DSC00874.JPG" pics(12) = "DSC00876.JPG" pics(13) = "DSC00991.JPG" pics(14) = "DSC00995.JPG" pics(15) = "DSC00998.JPG" pics(16) = "DSC01001.JPG" pics(17) = "DSC01011.JPG" pics(18) = "DSC01019.JPG" pics(19) = "DSC01023.JPG" pics(20) = "DSC01032.JPG" %> .-:Greg & Adam Fullers 67' Camaro:-.
view catalog
<% Dim I maxidx = ubound(pics) - 1 For I = 0 to maxidx %>
<%Next%>