<%@ Language=VBScript %> <% '************************************************************************************ 'Area Browse '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header(": Area Sheet",metatag,terms, "") %> <% end if %>
<% if Request.QueryString("id") = "" then 'missing area name - cannot show data %> Sorry no area name has been supplied to display, please try again <% else %>
 
<%Call DisplayAreaSheet(request.querystring("id"), Request.QueryString("zoom"))%>
 
<% call footer() %>