Parade

<% 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("kirsten-raven-madison") arrPhotoTitles = Array("Kirsten, Raven & Madison") 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 "

Parade 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 6 = 5 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 "

Parade 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 Album" Response.Write "

" & vbCrLf End If %>

About Us | Contact Us | Copyright Policy |Privacy Policy

Hosted by Pageant Server