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