<%@ Language=VBScript %> <% '************************************************************************************ 'Show a specialist record '************************************************************************************ %> <%dim metatag, terms metatag = chr(13) & "" metatag = metatag & chr(13) & "" Call Header(" : Specialist Data Search",metatag,terms, "") if Request.querystring("subject") = "" then %>

Search the Lab Team Data

The data currently available to search is as follows:

Please note that the specialist data searches are still under development and will becomes more complex in time, also as other datasets come on-line new searches will be added.

<%else dim callsubject callsubject = lcase(Request.QueryString("subject")) call DisplaySpecialistSearch(callsubject) %> <% end if call footer() Sub DisplaySpecialistSearch(callsubject) dim sql, downloadsp, downloadnum, ok, txt txt = "At present we are only offering a very basic search of this data. We will be extending this search facility when we can with the advice of the Specialists concerned.

" ok = true %>
> <% if callsubject = "ab" then 'ARCHAEBOTANY RECORD subject = "Archaeobotany" %> <%txt = txt & "Please note only basic Flotation log records are currently " txt = txt & " available. Please contact us if you require further data."%> <%elseif callsubject = "cer" then 'CERAMICS RECORD - two sets of different data exist must see which one has GId subject = "Ceramics" %> <% elseif callsubject = "clayobj" then 'CLAY OBJECTS RECORD subject = "Clay Objects" %> <% elseif callsubject = "cs" then 'CHIPPED STONE RECORD subject = "Chipped Stone" %> <% elseif callsubject = "cons" then 'Conservation RECORD subject = "Conservation" %> <%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."%> <% elseif callsubject = "faunal" then 'FAUNAL RECORD subject = "Faunal" %> <% elseif callsubject = "fig" then 'FIGURINE RECORD - extended dec 06 subject = "Figurines" %>
Stanford Figurines Project
<% elseif callsubject = "gs" then 'GROUNDSTONE RECORD subject = "Ground Stone" %> <% elseif callsubject = "hr" then 'HEAVY RESIDUE RECORD subject = "Heavy Residue" %> <% elseif callsubject = "mf" then 'MICROFAUNAL RECORD subject = "Faunal" %> <% elseif callsubject = "phyto" then 'Phytolith RECORD subject = "Phytoliths" %> <%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."%> <% else ok = false Response.Write("") end if if ok = true then%> <%end if%>

Search the Archaeobotany Data

<%=txt%>
Area:<%Call ExcaAreaList()%> 
Year:<%Call SpecialistYearList(Year(Date))%> 
Unit Number: 
Flotation Number: 
Sample Number: 
Soil Volume: 
Flotation Team Notes contains the text: 

Search the Ceramics Data

<%=txt%>
Element:<%Call CeramicElements()%> 

Search the Clay Objects Data

<%=txt%>
Area:<%Call ExcaAreaList()%> 
Year:<%Call SpecialistYearList(Year(Date))%> 
Unit Number: 
Object Shape:<%Call PopulateSelectList("sp_ClayObjectShapes_Distinct", "Clay Object Shape", "ClayObjectShapes", "Shape")%> 
Object Color:<%Call PopulateSelectList("sp_ClayObjectColors_Distinct", "Clay Object Color", "ClayObjectColors", "Color")%> 

Search the Chipped Stone Data

<%=txt%>
Area:<%Call ExcaAreaList()%> 
Year:<%Call SpecialistYearList(Year(Date))%> 
Unit Number: 
Raw Material:  
Number of Pieces: greater than but less than  

Search the Conservation Data

<%=txt%>
Year: 
Related To:Unit:   Feature:   Space:   Building:  
 Object:   Sample:  
   
Conserved By:<%Call PopulateSelectList("sp_Web_Conservation_Names_List", "Conservator Names", "ConservatorName", "ConservatorFullName")%> 
Description contains the text: 
Condition contains the text: 
Previous Treatment contains the text: 
Treatment contains the text: 
Packing contains the text: 
Technical Analysis contains the text: 
Recommendation contains the text: 

Search the Faunal Data

<%=txt%>
Area:<%Call ExcaAreaList()%> 
Year:<%Call SpecialistYearList(Year(Date))%> 
Unit Number: 
Element:<%Call FaunalElementList()%> 
Taxon:<%Call FaunalTaxonList()%> 

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")%> 

Search the Ground Stone Data

<%=txt%>
Worked?Yes: No: Don't mind:  
Area:<%Call ExcaAreaList()%> 
Year:<%Call SpecialistYearList(1999)%> 
Unit Number: 
Raw Material:<%Call GSRawMaterialsList()%> 
Artefact Type:<%Call GSArtefactTypesList()%> 

Search the Heavy Residue Data

<%=txt%>
Area:<%Call ExcaAreaList()%> 
Year:<%Call SpecialistYearList(Year(Date))%> 
Unit Number: 
Material:<%Call PopulateSelectList("sp_HRMaterials_Distinct", "Heavy Residue Material", "HRMaterial", "name")%> 

Search the Microfaunal Data

<%=txt%>
Area:<%Call ExcaAreaList()%> 
Year:<%Call SpecialistYearList(Year(Date))%> 
Unit Number: 
Element:<%Call PopulateSelectList("sp_MicroFaunalElements_Select", "Element", "MFElement", "text equivalent")%> 
Taxon:<%Call PopulateSelectList("sp_MicroFaunalTaxons_Select", "Taxon", "MFTaxon", "text equivalent")%> 

Search the Phytoliths Data

<%=txt%>
Year of Analysis: 
Unit Number: 
Stage of Analysis:  
Notes contain the text: 
Incorrect parameter passed in to define subject area, no fields to display
<% end sub %>