<%
' ------------------------------------
' 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 = 15
strGalleryTitle = "Suffolk University - Rooms with a View"
strGalleryDate = "October 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 = "front.jpg"
Case 2 img = "lobby.jpg"
Case 3 img = "atrium.jpg"
Case 4 img = "plaque.jpg"
Case 5 img = "kitchen.jpg"
Case 6 img = "foodcourt.jpg"
Case 7 img = "dining.jpg"
Case 8 img = "opening.jpg"
Case 9 img = "charlesview.jpg"
Case 10 img = "cornerview.jpg"
Case 11 img = "roomview.jpg"
Case 12 img = "commonview.jpg"
Case 13 img = "sunscreens.jpg"
Case 14 img = "slice.jpg"
Case 15 img = "afar.jpg"
Case Else img = "front.jpg"
End Select
getImage = img
End Function
%>
Photo Gallery - <%= strGalleryTitle %>