<%
Dim PhotoID
Dim PhotoLink
Dim PhotoCaption
Dim PhotoWidth
Dim PhotoHeight
PhotoID = Request.QueryString("pid")
Select Case PhotoID
Case "_MG_3298"
PhotoLink = "./Large/_MG_3298.jpg"
PhotoCaption = "Frank di Leo"
PhotoWidth = 320
PhotoHeight = 480
Case "01s-birdhouseflower"
PhotoLink = "./Large/01s-birdhouseflower.jpg"
PhotoCaption = " DCA Design"
PhotoWidth = 288
PhotoHeight = 432
Case "01s-seateyes"
PhotoLink = "./Large/01s-seateyes.jpg"
PhotoCaption = "Pixie Shaw"
PhotoWidth = 288
PhotoHeight = 432
Case "01s-seatflush"
PhotoLink = "./Large/01s-seatflush.jpg"
PhotoCaption = "Pixie Shaw"
PhotoWidth = 288
PhotoHeight = 432
Case "01s-stoolsitler"
PhotoLink = "./Large/01s-stoolsitler.jpg"
PhotoCaption = "Robb Marchildon & Darryl Sittler"
PhotoWidth = 288
PhotoHeight = 432
Case "DebbieTravis_Bottoms Up_Toilet Seat"
PhotoLink = "./Large/DebbieTravis_Bottoms Up_Toilet Seat.jpg"
PhotoCaption = "Debbie Travis"
PhotoWidth = 499
PhotoHeight = 600
Case "DSC_0086"
PhotoLink = "./Large/DSC_0086.jpg"
PhotoCaption = "NeNe"
PhotoWidth = 401
PhotoHeight = 600
Case "IMGP1921"
PhotoLink = "./Large/IMGP1921.jpg"
PhotoCaption = "Darryl Sittler with his stool"
PhotoWidth = 450
PhotoHeight = 600
Case "P7270073"
PhotoLink = "./Large/P7270073.jpg"
PhotoCaption = "Jenny Greco"
PhotoWidth = 600
PhotoHeight = 450
End Select
%>
<% =PhotoCaption %>
| Close |
 |
<% =PhotoCaption %> |