%@ Language=VBScript %> <% '************************************************************************************ 'Area Browse '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header(": Area Sheet",metatag,terms, "") %>
<% 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"))%> | |