 |
| ||||
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Untitled Document
<%
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("south_bay", "boats2", "boats3", "seat1", "seat2")
arrPhotoTitles = Array("Boat - South Bay", "Boat", "Boat", "Parts - Seat", "Parts - Seat")
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 "" & vbCrLf
Response.Write "
" & vbCrLf
Else
' Show Photo Detail
Response.Write "
Photo Gallery
" & vbCrLf Response.Write "| "
Response.Write ""
Response.Write " " Response.Write "" & arrPhotoTitles(I) & "" 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 "
Photo Gallery
" & vbCrLf ' photo title Response.Write "" & arrPhotoTitles(intPhotoId) & "
" & vbCrLf ' Show full photo image. Response.Write ""
Response.Write ""
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 "
" Response.Write "" Response.Write "Back to the Main Photos Page" Response.Write "
" & vbCrLf End If %>Service Second to None
Parts Request
Looking for a part? Find out if it's in stock or if we can order it.