<% ' ------------------------------------ ' MOM INSTRUCTIONS LOOK LIKE THIS ' THERE ARE ONLY 2 STEPS ' ------------------------------------ dim intTotalPhotos dim strGalleryTitle dim strGalleryDate ' -------------------------------------------------------- ' 1. ENTER TOTAL # OF PHOTOS AND OTHER GALLERY INFORMATION ' ' | ' | ' v ' -------------------------------------------------------- intTotalPhotos = 16 strGalleryTitle = "Aunt Catherine's 90th Birthday Party" strGalleryDate = "November 2003" ' -------------------------------------------------------- ' 2. FOR EACH PHOTO ' - CREATE A NEW 'CASE' ENTRY ' - CHANGE # AND CHANGE FILE NAME ' - FOR BETTER ERROR HANDLING, MAKE 'CASE ELSE' THE SAME AS 'CASE 1' ' ' | ' | ' | ' v ' -------------------------------------------------------- Function getImage(i) Select Case i Case 1 img = "A1.jpg" Case 2 img = "A2.jpg" Case 3 img = "A3.jpg" Case 4 img = "A4.jpg" Case 5 img = "A5.jpg" Case 6 img = "A6.jpg" Case 7 img = "A7.jpg" Case 8 img = "A8.jpg" Case 9 img = "A9.jpg" Case 10 img = "B10.jpg" Case 11 img = "B11.jpg" Case 12 img = "B12.jpg" Case 13 img = "B13.jpg" Case 14 img = "B14.jpg" Case 15 img = "B15.jpg" Case 16 img = "B16.jpg" Case Else img = "A1.jpg" End Select getImage = img End Function %> Photo Gallery - <%= strGalleryTitle %>
<< back to heyjud

<% ' First we'll write the thumbnails For i = 1 to intTotalPhotos response.write "" response.write "" response.write "" Next %>
<% ' Now we make big image If Not isEmpty(request("p")) Then response.write "" Else response.write "" End If %>