<%@ LANGUAGE=VBSCRIPT %> <% option explicit %> <% dim PageID, imagePath, pageArr, leftLinkArr, rightLinkArr, pID imagePath = BASE_URL & "images/lawnfield" if isnumeric(Request.QueryString("id")) then pID = cint(Request.QueryString("id")) else Response.Redirect("/default.asp") end if if pID = 0 then Response.Redirect("/default.asp") end if pageArr = GetDBPage(pID) leftLinkArr = GetCachedLeftNav(pageArr(0,0)) %> <% CommonHeader "", "lawnfield", 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)) %>