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

Features

A feature number is allocated to any group of related units that need to be described as a whole, for instance a burial cut, associated fill(s) and skeleton will be grouped together by a feature number, or the bricks, mortar and plaster of a wall may also be grouped. The Feature Sheet filled out on site allows a whole burial or architectural element, as opposed to its individual units to be described.

<% 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 %>
    Return to the Feature Browse options

    <% if lcase(Request.QueryString("ListBy")) = "area" then call ShowAreaListForFeatures() elseif lcase(Request.QueryString("ListBy")) = "feature type" then call ShowTypeListForFeatures() else Call FeatureList(Request.QueryString("ListBy"), "", "", "List By " & Request.QueryString("ListBy")) end if%>
<% elseif Request.querystring("whichpage") <> "" then if session("sql") <> "" then ''Response.Write session("sql") Call FeatureList(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 feature information again") end if else dim where, val, tbl, txtCriteria session("sql") = "" if Request.Form("ExcaFeatureText") <> "" AND request.form("EXCAFEATURETEXTSUBMIT") <> "" then val = Request.Form("ExcaFeatureText") where = " WHERE [Mound] Like '%" & val & "%' OR [Area] Like '%" & val & "%'" if isnumeric(val) then where = where & " OR [Grid X] = " & val & " OR [Grid Y] = " & val where = where & " OR [Feature Type] Like '%" & val & "%' OR [FeatureSubType] Like '%" & val & "%'" where = where & " OR [Location] Like '%" & val & "%' OR [Dimensions] Like '%" & val & "%'" where = where & " OR [Description] Like '%" & val & "%'" txtCriteria = " that contain the text: " & val tbl = "[view_FeatureSheetForWeb]" elseif Request.Form("ExcaFeatureType") <> "" AND request.form("EXCAFEATURETYPESUBMIT") <> "" then val = Request.Form("ExcaFeatureType") where = " WHERE [Feature Type] = '" & val & "'" txtCriteria = " of Type: " & val tbl = "[view_FeatureSheetForWeb]" elseif Request.Form("ExcaFeatureBuilding") <> "" AND request.form("EXCAFEATUREBUILDINGSUBMIT") <> "" then val = Request.Form("ExcaFeatureBuilding") where = " WHERE [In_Building] = '" & val & "'" txtCriteria = " in Building: " & val tbl = "[view_ExcaBuildingsForAFeature]" elseif Request.Form("ExcaFeatureSpace") <> "" AND request.form("EXCAFEATURESPACESUBMIT") <> "" then val = Request.Form("ExcaFeatureSpace") where = " WHERE [In_Space] = '" & val & "'" txtCriteria = " in the Space: " & val tbl = "[view_ExcaSpacesForAFeature]" elseif Request.Form("ExcaUnitLevel") <> "" AND request.form("EXCAFEATURELEVELSUBMIT") <> "" then val = Request.Form("ExcaUnitLevel") where = " WHERE [Level] = '" & val & "' OR [UncertainLevelStart] = '" & val & "' OR [UncertainLevelEnd] = '" & val & "'" txtCriteria = " in Mellaart Level: " & val tbl = "[view_FeatureLevels]" elseif Request.Form("WIDEFEATURESEARCHSUBMIT") <> "" then 'major search across fields - build up where clause buildwhere = "" txtCriteria = "" if Request.Form("ExcaFeature") <> "" then if isnumeric(Request.Form("ExcaFeature")) then if buildwhere <> "" then buildwhere = buildwhere & " AND" buildwhere = buildwhere & " [Feature Number] =" & Request.form("ExcaFeature") txtCriteria = txtCriteria & " Feature = " & Request.form("ExcaFeature") end if end if if Request.Form("ExcaUnitLevel") <> "" AND Request.Form("ExcaUnitLevel") <> "ANY" then val = Request.Form("ExcaUnitLevel") if buildwhere <> "" then buildwhere = buildwhere & " AND" buildwhere = buildwhere & " [AssoLevels] LIKE '%" & val & "%'" if txtCriteria <> "" then txtCriteria = txtCriteria & " and " txtCriteria = txtCriteria & " the Mellaart level = " & val end if if Request.Form("ExcaFeatureType") <> "" AND Request.Form("ExcaFeatureType") <> "ANY" then if buildwhere <> "" then buildwhere = buildwhere & " AND" buildwhere = buildwhere & " [Feature Type] LIKE '%" & Request.form("ExcaFeatureType") & "%'" if txtCriteria <> "" then txtCriteria = txtCriteria & " and " txtCriteria = txtCriteria & " the type = " & Request.form("ExcaFeatureType") end if if Request.form("ExcaFeatureText") <> "" then val = Request.Form("ExcaFeatureText") if buildwhere <> "" then buildwhere = buildwhere & " AND" buildwhere = buildwhere & " (" if isnumeric(val) then buildwhere = buildwhere & "[Feature Number] LIKE " & val & " OR" buildwhere = buildwhere & " [Grid X] LIKE " & val & " OR" buildwhere = buildwhere & "[Grid Y] LIKE " & val & " OR" end if buildwhere = buildwhere & " [MOUND] LIKE '%" & val & "%'" & " OR [AREA] LIKE '%" & val & "%'" buildwhere = buildwhere & " OR [YEAR] LIKE '%" & val & "%'" & " OR [FEATURE TYPE] LIKE '%" & val & "%' OR [FEATURESUBTYPE] LIKE '%" & val & "%'" buildwhere = buildwhere & " OR [LOCATION] LIKE '%" & val & "%'" & " OR [DIMENSIONS] LIKE '%" & val & "%' OR [DESCRIPTION] 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 Request.Form("ExcaFeatureBuilding") <> "" AND Request.Form("ExcaFeatureBuilding") <> "ANY" then if buildwhere <> "" then buildwhere = buildwhere & " AND" buildwhere = buildwhere & " [AssoBuildings] LIKE '%" & Request.form("ExcaFeatureBuilding") & "%'" if txtCriteria <> "" then txtCriteria = txtCriteria & " and " txtCriteria = txtCriteria & "in the building: " & Request.form("ExcaFeatureBuilding") end if if Request.Form("ExcaFeatureSpace") <> "" AND Request.Form("ExcaFeatureSpace") <> "ANY" then if buildwhere <> "" then buildwhere = buildwhere & " AND" buildwhere = buildwhere & " [AssoSpaces] LIKE '%" & Request.form("ExcaFeatureSpace") & "%'" if txtCriteria <> "" then txtCriteria = txtCriteria & " and " txtCriteria = txtCriteria & " space = " & Request.form("ExcaFeatureSpace") end if if txtCriteria <> "" then txtCriteria = " where " & txtCriteria if buildwhere <> "" then where = "WHERE " & buildwhere tbl = "[Web_FeaturesFull]" 'Response.Write Where 'elseif Request.Querystring("Listby") <> "" AND request.querystring("id") <> "" then 'elseif altered jan 07 to allow listing for partic building, space etc elseif Request.Querystring("Listby") <> "" AND request.querystring("id") <> "" AND request.querystring("extrafld") = "" then where = " WHERE [" & Request.querystring("Listby") & "] = '" & Request.QueryString("id") & "'" tbl = "[Exca: Features]" txtCriteria = "List By " & Request.QueryString("ListBy") & " " & Request.QueryString("id") 'elseif added jan 07 to allow listing for partic building, space etc elseif Request.Querystring("Listby") <> "" AND request.querystring("id") <> "" AND request.querystring("extrafld") <> "" then where = " WHERE [" & Request.querystring("Listby") & "] = '" & Request.QueryString("id") & "' AND [" & Request.QueryString("extrafld") & "] Like '%," & Request.QueryString("extraid") & ",%'" tbl = "[Web_FeaturesFull]" txtCriteria = "for " & Request.QueryString("ListBy") & " " & Request.QueryString("id") & " and " & replace(Request.QueryString("extrafld"), "Asso", "") & ": " & Request.QueryString("extraid") end if %> <%if where <> "" then Call FeatureList("Feature Number", where, tbl, txtCriteria) else Response.Write("No criteria entered") end if%> <%end if end if %>
<% call footer() %>