<%@ LANGUAGE=VBSCRIPT %> <% option explicit %> <% dim PageID, imagePath, pageArr, leftLinkArr, rightLinkArr, i imagePath = BASE_URL & "images/halefarm" pageArr = GetCachedPage(16) leftLinkArr = GetCachedLeftNav(pageArr(0,0)) %> <% CommonHeader "", "halefarm", 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)) %>