<%@ Language=VBScript %> <% '************************************************************************************ 'Area Browse '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header(": Building Sheet",metatag,terms, "") %> <% end if %>
<% if Request.QueryString("num") = "" AND Request.form("ExcaBuilding") = "" then 'missing building number name - cannot show data %> Sorry no building number has been supplied to display, please try again <% else %>
<% dim BuildingToFind if Request.QueryString("num") <> "" then BuildingToFind = Request.QueryString("num") else BuildingToFind = Request.Form("ExcaBuilding") end if if isnumeric(BuildingToFind) then Call DisplayBuildingSheet(BuildingToFind) else Response.Write("Invalid Building Number") end if%>
 
<%call footer() %>