<% '******************************************************* '* ASP 101 Sample Code - http://www.asp101.com/ * '* * '* This code is made available as a service to our * '* visitors and is provided strictly for the * '* purpose of illustration. * '* * '* http://www.asp101.com/samples/license.asp * '* * '* Please direct all inquiries to webmaster@asp101.com * '******************************************************* %> <% Dim strScriptName Dim arrPhotoNames Dim arrPhotoTitles Dim intPhotoId Dim I ' Get script URL for links strScriptName = Request.ServerVariables("URL") ' You'd probably get this info from a database or an XML file or ' something like that, but the source will vary based on your ' situation so I'm just loading the array manually. arrPhotoNames = Array("09922491", "09999118", "10047069", "19079112", _ "19124507", "19151069", "19297986", "22474694", _ "22475208", "24231229", "30423914", "31931795") arrPhotoTitles = Array("Freeway", "Symbology", "Ladies Night", _ "You Are So Fired", "A Charming Hangover", _ "Pay the Man", "Give Yourself A Hand", _ "Stack", "The Office", "aVoid", _ "Spring Into Action", "Home Improvement") intPhotoId = Request.QueryString("photo") If intPhotoId <> "" Then intPhotoId = CInt(intPhotoId) If intPhotoId < LBound(arrPhotoNames) Or intPhotoId > UBound(arrPhotoNames) Then intPhotoId = -1 End If Else intPhotoId = -1 End If If intPhotoId = -1 Then ' Show Gallery Response.Write "

Photo Gallery

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf For I = LBound(arrPhotoNames) To UBound(arrPhotoNames) ' Show each thumbnail in it's own table cell Response.Write "" & vbCrLf ' Start a new row every 4 thumbnails. ' In the Mod line below, the 4 is because we want 4 thumbnails ' per row and the 3 is because we started counting from 0. ' If you want more or less columns just adjust accordingly: ' I Mod [Columns] = [Columns - 1] 'If I Mod 4 = 3 Then ' I actually changed it so that we're only showing 2 images across ' to deal with the images overlapping with our flex ads. If I Mod 2 = 1 Then Response.Write "" & vbCrLf End If Next 'I Response.Write "" & vbCrLf Response.Write "
" Response.Write "" Response.Write "
" Response.Write "" & arrPhotoTitles(I) & "" Response.Write "
" & vbCrLf Else ' Show Photo Detail Response.Write "

Photo Gallery

" & vbCrLf ' photo title Response.Write "

" & arrPhotoTitles(intPhotoId) & "

" & vbCrLf ' Show full photo image. Response.Write "

" Response.Write "" Response.Write "

" & vbCrLf ' previous and next links Response.Write "

" If intPhotoId > LBound(arrPhotoNames) Then Response.Write "" Response.Write "<-- previous" End If Response.Write "     " If intPhotoId < UBound(arrPhotoNames) Then Response.Write "" Response.Write "next -->" End If Response.Write "

" & vbCrLf Response.Write "

" Response.Write "" Response.Write "Back to the Main Photos Page" Response.Write "

" & vbCrLf End If %>

Thumbnails and photos from Photos.com. They have over 180,000 royalty-free stock photographs available by subscription.