<%@ LANGUAGE=VBSCRIPT %> <% option explicit %> <% dim PageID, imagePath, pageArr, leftLinkArr, rightLinkArr imagePath = BASE_URL & "images/shandyhall" pageArr = GetCachedPage(42) leftLinkArr = GetCachedLeftNav(pageArr(0,0)) %> <% CommonHeader "", "shandyhall", imagePath %> <% topNav imagePath %> <% CommonFooter imagePath %>

<% if cint(pageArr(1,0)) = 1 then rightNav pageArr(7,0) end if %> <% leftNav imagePath %> <% Response.Write(pageArr(6,0)) %>