<%
Dim section
section = "products"
%>
<%
Dim pt, imgName
pt = Request.QueryString("pt")
Select Case pt
Case 1
imgName = "original"
Case 2
imgName = "cheddar"
Case 3
imgName = "pale_ale"
Case 4
imgName = "cooking"
Case 5
imgName = "nutrition"
Case Else
pt = 1
imgName = "original"
End Select
%>
| Harpoon brewery | 
