<%@ Language=VBScript %> <% '************************************************************************************ 'Buildings Browse '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header(": Buildings",metatag,terms, "") %>

Buildings

A building number is allocated where more than one internal space can be demonstrated to belong to one structure. When browsing this site you can view the number of buildings in each excavation area and then see the Buildings numbers, when searching the site you can view lists of building records and by clicking on the building numbers you can view the individual building record in full.

<% if Request.QueryString("ListBy") = "" AND Request.form = "" AND request.querystring("whichpage") = "" then session("sql") = "" Session("nav") = "browse"%> <%else if Request.QueryString("ListBy") <> "" AND Request.querystring("id") = "" AND Request.Form = "" then session("sql") = "" Session("nav") = "browse" 'this is a browse call %> <% elseif Request.querystring("whichpage") <> "" then %> <% end if end if%>
    <% if lcase(Request.QueryString("ListBy")) = "area" then call ShowAreaListForBuildings() else Call BuildingList("Area", "", "", " by area of the site") end if%>
<% if session("sql") <> "" then ''Response.Write session("sql") Call BuildingList(Request.QueryString("search"), "", "", Request.QueryString("extra")) else Response.Write("Sorry but the parameters set to display this information have been lost, please browse or search the building information again") end if else %>
<%dim where, val, tbl, buildwhere, txtCriteria session("sql") = "" if Request.Form("ExcaBuildingText") <> "" AND request.form("EXCABUIDLINGTEXTSUBMIT") <> "" then val = Request.Form("ExcaBuildingText") where = " WHERE [Area] Like '%" & val & "%'" if isnumeric(val) then where = where & " OR [Number] = " & val where = where & " OR [Description] Like '%" & val & "%' OR [Location] Like '%" & val & "%'" tbl = "[Exca: Building Details]" txtCriteria = " that contain the text: " & val elseif Request.Form("ExcaUnitLevel") <> "" AND request.form("EXCABUIDLINGLEVELSUBMIT") <> "" then val = Request.Form("ExcaUnitLevel") where = " WHERE [MellaartLevel] = '" & val & "' OR [MellaartUncertainLevelStart] = '" & val & "' OR [MellaartUncertainLevelEnd] = '" & val & "'" tbl = "[view_BuildingLevels]" txtCriteria = " in the Mellaart Level: " & val elseif Request.Form("WIDEBUILDINGSEARCHSUBMIT") <> "" then 'major search across fields - build up where clause buildwhere = "" txtCriteria = "" if Request.Form("ExcaUnitLevel") <> "" then if buildwhere <> "" then buildwhere = buildwhere & " AND" buildwhere = buildwhere & "[AssoLevels] LIKE '%" & Request.form("ExcaUnitLevel") & "%'" txtCriteria = txtCriteria & " Mellaart level = " & Request.form("ExcaUnitLevel") end if if Request.form("ExcaBuildingText") <> "" then val = Request.Form("ExcaBuildingText") if buildwhere <> "" then buildwhere = buildwhere & " AND" buildwhere = buildwhere & " (" if isnumeric(val) then buildwhere = buildwhere & "[Number] LIKE " & val & " OR" buildwhere = buildwhere & " [AREA] LIKE '%" & val & "%'" buildwhere = buildwhere & " OR [DESCRIPTION] LIKE '%" & val & "%' OR [LOCATION] LIKE '%" & val & "%'" buildwhere = buildwhere & " OR [ASSOLEVELS] LIKE '%" & val & "%')" if txtCriteria <> "" then txtCriteria = txtCriteria & " and " txtCriteria = txtCriteria & "the record contains the text: " & val end if if txtCriteria <> "" then txtCriteria = " where " & txtCriteria if buildwhere <> "" then where = "WHERE " & buildwhere tbl = "[Web_BuildingDetailsFull]" 'Response.Write Where elseif Request.Querystring("Listby") <> "" AND request.querystring("id") <> "" then where = " WHERE [" & Request.querystring("Listby") & "] = '" & Request.QueryString("id") & "'" tbl = "[Exca: Building Details]" txtCriteria = "List By " & Request.QueryString("ListBy") & " " & Request.QueryString("id") end if %> <%if where <> "" then Call BuildingList("Number", where, tbl, txtCriteria) else Response.Write("No criteria entered") end if%>
<% call footer() %>