<%@ Language=VBScript %> <% '************************************************************************************ 'Diary Search screen '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header(": Quick Excavation Search",metatag,terms, "") 'when this page is called scrap any sql held in session Session("sql") = "" Session("nav") = "search" dim callsubject 'get the data to search if Request.querystring("subject") = "" then callsubject = "" else callsubject = Request.QueryString("subject") if callsubject <> "Samples" AND callsubject <> "X-Finds" AND callsubject <> "Skeleton" then callsubject = callsubject & " Sheet" end if %>

Search the Excavation Data

<% if callsubject = "" then %> <%else%> <%end if%> <% if callsubject = "Unit Sheet" then %> <%elseif callsubject = "Feature Sheet" then %> <%elseif callsubject = "Space Sheet" then %> <%elseif callsubject = "Building Sheet" then %> <%elseif callsubject = "Samples" then %> <%elseif callsubject = "X-Finds" then %> <%end if %>
Quick Search
Select and search on a single criteria for a fast retrieval of records from:
Unit Sheets | Feature Sheets| Space Sheets| Building Sheets | Samples | X Finds | Skeleton
<%=callsubject%> Quick Search
Select and search on a single criteria for a fast retrieval of records
Other excavation data quick searches available are:
<%if callsubject <> "Unit Sheet" then Response.Write("Unit Sheets | ") if callsubject <> "Feature Sheet" then Response.Write("Feature Sheets | ") if callsubject <> "Space Sheet" then Response.Write("Space Sheets | ") if callsubject <> "Building Sheet" then Response.Write("Building Sheets | ") if callsubject <> "Samples" then Response.Write("Samples | ") if callsubject <> "X-Finds" then Response.Write("X Finds | ") if callsubject <> "Skeleton" then Response.Write("Skeleton") %>
Alternatively use the complex search to enter multiple criteria
 
Find a Unit by its Number:

Find Units by Year Excavated:<%Call ExcaYearList()%> 

Find Units within Building:<%Call ExcaBuildingList()%> 

Find Units within Space:<%Call ExcaSpaceList()%> 

Find Units within Feature:<%Call ExcaFeatureList()%> 

Find Units by Category:

Find Units By Phase:<%Call ExcaPhaseList()%> 

Find Units by Mellaart Level:<%Call ExcaLevelList()%> 

Search for text in the Unit Sheet:
 
Find a Feature by its Number:

Find a Features by Type:<%Call ExcaFeatureTypeList()%> 

Search for text in the Feature Sheet:

Find Features within Building:<%Call ExcaFeatureBuildingList()%> 

Find Features within Space:<%Call ExcaFeatureSpaceList()%> 

Find Features by Mellaart Level:<%Call ExcaLevelList()%> 
 
Space Based Search
Find a Space by its Number:

Search for text in the Space Sheet:

Find Spaces by Mellaart Level:<%Call ExcaLevelList()%> 

Find Spaces within Building:<%Call ExcaSpaceBuildingList()%> 
 
Building Based Search
Find a Building by its Number:

Search for text in the Building Sheet:

Find Buildings by Mellaart Level:<%Call ExcaLevelList()%> 
 
Samples Recorded By Excavators
Find a Samples for a Unit Number:

Find Samples By Type:<%Call ExcaSampleTypeList()%> 

Search for text in the Sample information:
 
Finds Recorded By Excavators
Search for X-Finds for a Unit Number:

Search for text in the Finds record:
<%elseif callsubject = "Skeleton" then %>
Skeletons Recorded By Excavators
Find a Skeleton Unit by its Number:

Find Skeleton Units by Year Excavated:<%Call ExcaYearList()%> 

Find Skeleton Units within Building:<%Call ExcaBuildingList()%> 

Find Skeleton Units within Space:<%Call ExcaSpaceList()%> 

Find Skeleton Units within Feature:<%Call ExcaFeatureList()%> 

Find Skeleton Units By Phase:<%Call ExcaPhaseList()%> 

Find Skeleton Units by Mellaart Level:<%Call ExcaLevelList()%> 

Search for text in Skeleton Unit Sheets:
 
<% call footer() %>