<%
Dim PhotoID
Dim PhotoLink
Dim PhotoCaption
Dim PhotoWidth
Dim PhotoHeight
PhotoID = Request.QueryString("pid")
Select Case PhotoID
Case "IMG_3980"
PhotoLink = "./Large/IMG_3980.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "IMG_4008"
PhotoLink = "./Large/IMG_4008.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "IMG_4056"
PhotoLink = "./Large/IMG_4056.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "IMG_4060"
PhotoLink = "./Large/IMG_4060.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "IMG_4101"
PhotoLink = "./Large/IMG_4101.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "IMG_4543"
PhotoLink = "./Large/IMG_4543.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "IMG_4584"
PhotoLink = "./Large/IMG_4584.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "IMG_4019"
PhotoLink = "./Large/IMG_4019.jpg"
PhotoCaption = ""
PhotoWidth = 400
PhotoHeight = 600
Case "IMG_4039"
PhotoLink = "./Large/IMG_4039.jpg"
PhotoCaption = ""
PhotoWidth = 400
PhotoHeight = 600
Case "IMG_4076"
PhotoLink = "./Large/IMG_4076.jpg"
PhotoCaption = ""
PhotoWidth = 400
PhotoHeight = 600
Case "IMG_4257"
PhotoLink = "./Large/IMG_4257.jpg"
PhotoCaption = ""
PhotoWidth = 400
PhotoHeight = 600
Case "IMG_4352"
PhotoLink = "./Large/IMG_4352.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "IMG_4480"
PhotoLink = "./Large/IMG_4480.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "IMG_4305"
PhotoLink = "./Large/IMG_4305.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "pixstool"
PhotoLink = "./Large/pixstool.jpg"
PhotoCaption = ""
PhotoWidth = 600
PhotoHeight = 400
Case "sittlerbest"
PhotoLink = "./Large/sittlerbest.jpg"
PhotoCaption = ""
PhotoWidth = 400
PhotoHeight = 647
End Select
%>
<% =PhotoCaption %>
| Close |
 |
<% =PhotoCaption %> |