%@ Language=VBScript %>
<%
'************************************************************************************
'Diary Search screen
'************************************************************************************
%>
<%dim metatag, terms
metatag = chr(13) & ""
metatag = metatag & chr(13) & ""
Call Header(": Complex 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 <> "Skeleton" then callsubject = callsubject & " Sheet"
end if
%>
<% if callsubject = "" then %>
|
Complex Search |
Enter multiple criteria to carry out an in depth search |
Unit Sheets | Feature Sheets |
Space Sheets | Building Sheets
| Skeleton Units
|
<%else%>
<%=callsubject%> Complex Search |
Enter multiple criteria to carry out an in depth search |
Other excavation data complex 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 <> "Skeleton" then Response.Write("Skeleton Units ")
%>
|
<%end if%>
Alternatively use the quick search to enter single criteria at a time for faster response |
|
<%if callsubject = "Building Sheet" then %>
|
|
<%elseif callsubject = "Space Sheet" then %>
|
|
<%elseif callsubject = "Feature Sheet" then %>
|
|
<%elseif callsubject = "Unit Sheet" OR callsubject = "Skeleton" then
'skeleton variation of unit search added jan 2007 as human remains database still in development
dim what
if callsubject = "Skeleton" then
what = "Skeleton Units"
else
what = "Units"
end if
%>
<%end if
'
%>
|