<% Dim PictureID, HeaderGraphic, ImageFolder, ImageNumber, ImageWidth, ImageHeight, ImageFormat, PreviousImage, NextImage, FirstInSeries, LastInSeries ' Get Picture ID if len(Request.QueryString("pictureid") > 0) then PictureID = Request.QueryString("pictureid") else PictureID = 0 end if ' Get remaining information HeaderGraphic = PictureArray(PictureID)(0) ImageFolder = PictureArray(PictureID)(1) ImageNumber = PictureArray(PictureID)(2) ImageWidth = PictureArray(PictureID)(3) ImageHeight = PictureArray(PictureID)(4) ImageFormat = PictureArray(PictureID)(5) PreviousImage = PictureArray(PictureID)(6) NextImage = PictureArray(PictureID)(7) FirstInSeries = PictureArray(PictureID)(8) LastInSeries = PictureArray(PictureID)(9) %>

		<% If Not FirstInSeries Then %> <% Else %>   <% End If %> <% If HeaderGraphic = "toppatiow" Then %> Back to Patios <% ElseIf HeaderGraphic = "topwalkw" Then %> Back to Walks <% ElseIf HeaderGraphic = "topdrivew" Then %> Back to Driveways <% Else %> Back to Pools & Projects <% End If %> <% If Not LastInSeries Then %> <% Else %>   <% End If %> " width="<%= ImageWidth %>" height="<%= ImageHeight %>" border="2" /> Contact our Sales Department for more information. Patios - Walks - Drives - Pools & Projects - Contact Us Copyright © 2000-2005 Kelly Construction. All Rights Reserved.