<%
if callsubject = "ab" then
'ARCHAEBOTANY RECORD
subject = "Archaeobotany"
%>
Search the Archaeobotany Data
<%txt = txt & "Please note only basic Flotation log records are currently "
txt = txt & " available. Please contact us if you require further data."%>
<%=txt%>
<%elseif callsubject = "cer" then
'CERAMICS RECORD - two sets of different data exist must see which one has GId
subject = "Ceramics"
%>
Search the Ceramics Data
<%=txt%>
Element: <%Call CeramicElements()%>
<%
elseif callsubject = "clayobj" then
'CLAY OBJECTS RECORD
subject = "Clay Objects"
%>
Search the Clay Objects Data
<%=txt%>
<%
elseif callsubject = "cs" then
'CHIPPED STONE RECORD
subject = "Chipped Stone"
%>
Search the Chipped Stone Data
<%=txt%>
<%
elseif callsubject = "cons" then
'Conservation RECORD
subject = "Conservation"
%>
Search the Conservation Data
<%txt = txt & "Please note only the conservation records relating to the years 2005 on are currently "
txt = txt & " available. Please contact us if you require data from other years."%>
<%=txt%>
<%
elseif callsubject = "faunal" then
'FAUNAL RECORD
subject = "Faunal"
%>
Search the Faunal Data
<%=txt%>
<%
elseif callsubject = "fig" then
'FIGURINE RECORD - extended dec 06
subject = "Figurines"
%>
Search the Figurines Data
<%=txt%>Further data can be retrieved from the main website of the Stanford Figurines Project: http://figurines.stanford.edu
Area: <%Call ExcaAreaList()%>
Year: <%Call SpecialistYearList(Year(Date))%>
Unit Number:
Object Type: <%Call PopulateSelectList("sp_FigObjectTypes_Distinct", "Figurine Object Type", "FigObjectType", "ObjectType")%>
Object Form: <%Call PopulateSelectList("sp_FigObjectForms_Distinct", "Figurine Object Form", "FigObjectForm", "ObjectForm")%>
Form: <%Call PopulateSelectList("sp_FigForms_Distinct", "Figurine Form", "FigForm", "Form")%>
Form Type: <%Call PopulateSelectList("sp_FigFormTypes_Distinct", "Figurine Form Type", "FigFormType", "FormType")%>
Primary Fabric: <%Call PopulateSelectList("sp_FigPrimaryFabric_Distinct", "Figurine Primary Fabric", "FigPrimaryFabric", "fabric_primary")%>
Sex Features: <%Call PopulateSelectList("sp_FigSexFeatures_Distinct", "Figurine Sex Features", "FigSexFeature", "SexFeature")%>
Sex Interpretation: <%Call PopulateSelectList("sp_FigSexInterpretations_Distinct", "Figurine Sex Interpretation", "FigSexInterpretation", "SexInterpretation")%>
Details: <%Call PopulateSelectList("sp_FigDetails_Distinct", "Figurine Detail", "FigDetail", "Detail")%>
<%
elseif callsubject = "gs" then
'GROUNDSTONE RECORD
subject = "Ground Stone"
%>
Search the Ground Stone Data
<%=txt%>
<%
elseif callsubject = "hr" then
'HEAVY RESIDUE RECORD
subject = "Heavy Residue"
%>
Search the Heavy Residue Data
<%=txt%>
<%
elseif callsubject = "mf" then
'MICROFAUNAL RECORD
subject = "Faunal"
%>
Search the Microfaunal Data
<%=txt%>
<%
elseif callsubject = "phyto" then
'Phytolith RECORD
subject = "Phytoliths"
%>
Search the Phytoliths Data
<%txt = txt & "Please note the phytolith data is in the process of being checked and sorted for publication here, hence the basic search "
txt = txt & " . Please contact us if you require further information."%>
<%=txt%>
<%
else
ok = false
Response.Write("Incorrect parameter passed in to define subject area, no fields to display ")
end if
if ok = true then%>
<%end if%>
<%
end sub
%>