<%@ Language=VBScript %>
<%
'************************************************************************************
'Show a specialist record
'************************************************************************************
%>
<%dim metatag, terms
metatag = chr(13) & ""
metatag = metatag & chr(13) & ""
Call Header(" : Specialist Data",metatag,terms, "")
if Request.querystring("subject") = "" OR Request.QueryString("num") = "" then
%>
Sorry but this page has been called incorrectly. Please try another search
<%else
if request.form("subject") = "fig" OR Request.querystring("subject") = "fig" then
'FIGURINE RECORD - extend 2016
Response.write "
")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Flot '" & num & "' cannot be displayed. |
"
else
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " Flotation Number " & thisrs("Flot Number") & " |
")
Response.Write("| Unit: ")
if thisrs("Unit Number") <> "" then Response.Write("" & thisrs("Unit Number") & "")
Response.Write(" |
| |
")
Response.Write("| Area: ")
if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
Response.Write(" |
| |
")
if not isnull(thisrs("Sample Number")) then Response.Write("| Sample Number: " & thisrs("Sample Number") & " |
| |
")
if not isnull(thisrs("Soil Volume")) then Response.Write("| Soil Volume: " & thisrs("Soil Volume") & " |
| |
")
'if not isnull(thisrs("Machine")) then Response.Write("| Machine: " & thisrs("Machine") & " |
| |
")
'if not isnull(thisrs("Total Bags")) then Response.Write("| Total Bags: " & thisrs("Total Bags") & " |
| |
")
'if not isnull(thisrs("Chiffon Number")) then Response.Write("| Chiffon Number: " & thisrs("Chiffon Number") & " |
| |
")
'if not isnull(thisrs("dry sieved (not floated)")) then Response.Write("| Dry sieved (not floated): " & thisrs("dry sieved (not floated)") & " |
| |
")
if not isnull(thisrs("Float Date")) then Response.Write("| Float Date: " & thisrs("Float Date") & " |
| |
")
if not isnull(thisrs("Flot Team Notes")) then Response.Write("Notes: " & replace(server.htmlencode(thisrs("Flot Team Notes")), vbCrLf, "
") & " |
| |
")
thisrs.movenext
loop
Response.Write("| |
")
Response.Write("| ")
Response.Write("Download this Record")
Response.Write(" |
")
Response.Write("| |
")
Response.Write("| << Go Back |
")
end if
Response.Write("
")
call CloseARecordset(thisrs)
elseif callsubject = "cer" then
'CERAMICS RECORD - two sets of different data exist must see which one has GId
subject = "Ceramics"
sql = "sp_Web_Specialist_Ceramics_Sherds_Historic_All_Specific '" & num & "'"
dim carryon
carryon = false
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
'Response.Write "| Sorry but record for Ceramic ID '" & num & "' cannot be displayed. |
"
'it must be in other data set - see below
carryon = true
else
downloadsp = server.URLEncode("Web_Specialist_Ceramics_Sherds_Historic_All_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " ID Number " & thisrs("GID") & " |
")
Response.Write("| Unit: ")
if thisrs("Unit Number") <> "" then Response.Write("" & thisrs("Unit Number") & "")
Response.Write(" |
| |
")
Response.Write("| Area: ")
if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
Response.Write(" |
| |
")
if not isnull(thisrs("ElementText")) then Response.Write("| Element: " & thisrs("ElementText") & " |
")
if not isnull(thisrs("Weight")) then Response.Write("| Weight: " & thisrs("Weight") & " |
")
if not isnull(thisrs("Thickness")) then Response.Write("| Thickness: " & thisrs("Thickness") & " |
")
if not isnull(thisrs("HardnessText")) then Response.Write("| Hardness: " & thisrs("HardnessText") & " |
")
Response.Write("| |
")
Response.Write("| Colour: |
")
if not isnull(thisrs("Color - ExteriorText")) then Response.Write("| Exterior: " & thisrs("Color - ExteriorText") & " |
")
if not isnull(thisrs("Color - InteriorText")) then Response.Write("| Interior: " & thisrs("Color - InteriorText") & " |
")
if not isnull(thisrs("Color - PasteText")) then Response.Write("| Paste: " & thisrs("Color - PasteText") & " |
")
if not isnull(thisrs("Color - CoreText")) then Response.Write("| Core: " & thisrs("Color - CoreText") & " |
")
Response.Write("| |
")
Response.Write("| Inclusions: |
")
if not isnull(thisrs("Inclusion I - TypeText")) then Response.Write("Type: " & thisrs("Inclusion I - TypeText") & " ")
if not isnull(thisrs("Inclusion I - SizeText")) then Response.Write("Size: " & thisrs("Inclusion I - SizeText") & " ")
if not isnull(thisrs("Inclusion I - FrequencyText")) then Response.Write("Frequency: " & thisrs("Inclusion I - FrequencyText") & " ")
Response.Write("
")
if not isnull(thisrs("Inclusion II - TypeText")) then Response.Write("Type: " & thisrs("Inclusion II - TypeText") & " ")
if not isnull(thisrs("Inclusion II - SizeText")) then Response.Write("Size: " & thisrs("Inclusion II - SizeText") & " ")
if not isnull(thisrs("Inclusion II - FrequencyText")) then Response.Write("Frequency: " & thisrs("Inclusion II - FrequencyText") & " ")
Response.Write(" |
")
Response.Write("| |
")
if not isnull(thisrs("Treatment - ExteriorText")) OR not isnull(thisrs("Treatment - InteriorText")) then Response.Write("| Treatment: |
")
if not isnull(thisrs("Treatment - ExteriorText")) then Response.Write("| Exterior: " & thisrs("Treatment - ExteriorText") & " |
")
if not isnull(thisrs("Treatment - InteriorText")) then Response.Write("| Interior: " & thisrs("Treatment - InteriorText") & " |
")
if not isnull(thisrs("Comments")) then Response.Write("Comments: " & replace(server.htmlencode(thisrs("Comments")), vbCrLf, "
") & " |
| |
")
thisrs.movenext
loop
Response.Write("| |
")
Response.Write("| ")
Response.Write("Download this Record")
Response.Write(" |
")
end if
Response.Write("
")
call CloseARecordset(thisrs)
if carryon = true then
'GID not found in historic data check out Nurcans data instead
sql = "sp_Web_Specialist_Ceramics_Stratified_Diagnostic_Pottery_Specific '" & num & "'"
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Ceramic ID '" & num & "' cannot be displayed. |
"
else
downloadsp = server.URLEncode("Web_Specialist_Ceramics_Stratified_Diagnostic_Pottery_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " ID Number " & thisrs("GID") & " |
")
Response.Write("| Unit: ")
if thisrs("Unit") <> "" then Response.Write("" & thisrs("Unit") & "")
Response.Write(" |
| |
")
Response.Write("| Area: ")
if thisrs("UnitArea") <> "" then Response.Write("" & thisrs("UnitArea") & "")
Response.Write(" |
| |
")
if not isnull(thisrs("Part")) then Response.Write("| Part: " & thisrs("Part") & " |
")
if not isnull(thisrs("Condition")) then Response.Write("| Condition: " & thisrs("Condition") & " |
")
if not isnull(thisrs("Abrasion")) then Response.Write("| Abrasion: " & thisrs("Abrasion") & " |
")
if not isnull(thisrs("Period")) then Response.Write("| Period: " & thisrs("Period") & " |
")
if not isnull(thisrs("Hardness")) then Response.Write("| Hardness: " & thisrs("Hardness") & " |
")
if not isnull(thisrs("Core Thickness mm")) then Response.Write("| Core Thickness (mm): " & thisrs("Core Thickness mm") & " |
")
if not isnull(thisrs("Wall Thickness mm")) then Response.Write("| Wall Thickness (mm): " & thisrs("Wall Thickness mm") & " |
")
if not isnull(thisrs("Weight gr")) then Response.Write("| Weight (gr): " & thisrs("Weight gr") & " |
")
Response.Write("| |
")
Response.Write("| Colour: |
")
if not isnull(thisrs("Ex Surf Colour")) then Response.Write("| Exterior: " & thisrs("Ex Surf Colour") & " |
")
if not isnull(thisrs("Int Surf Colour")) then Response.Write("| Interior: " & thisrs("Int Surf Colour") & " |
")
if not isnull(thisrs("Paste Colour")) then Response.Write("| Paste: " & thisrs("Paste Colour") & " |
")
if not isnull(thisrs("Core")) then Response.Write("| Core: " & thisrs("Core") & " |
")
Response.Write("| |
")
Response.Write("| Inclusions: |
| ")
if not isnull(thisrs("Inclusion Dominant")) then Response.Write("Inclusion Dominant: " & thisrs("Inclusion Dominant") & " ")
if not isnull(thisrs("Inclusion Secondary")) then Response.Write("Inclusion Secondary: " & thisrs("Inclusion Secondary") & " ")
if not isnull(thisrs("Inclusion Extra")) then Response.Write("Inclusion Extra: " & thisrs("Inclusion Extra") & " ")
if not isnull(thisrs("Frequency")) then Response.Write("Frequency: " & thisrs("Frequency") & " ")
Response.Write(" |
")
Response.Write("| |
")
if not isnull(thisrs("Ext Surf Treat")) OR not isnull(thisrs("Int Surf Treat")) then Response.Write("| Treatment: |
")
if not isnull(thisrs("Ext Surf Treat")) then Response.Write("| Exterior: " & thisrs("Ext Surf Treat") & " |
")
if not isnull(thisrs("Int Surf Treat")) then Response.Write("| Interior: " & thisrs("Int Surf Treat") & " |
")
Response.Write("| |
")
if not isnull(thisrs("Ext Burnish Direc")) OR not isnull(thisrs("Int Burnish Direct")) then Response.Write("| Burnish Direction: |
")
if not isnull(thisrs("Ext Burnish Direc")) then Response.Write("| Exterior: " & thisrs("Ext Burnish Direc") & " |
")
if not isnull(thisrs("Int Burnish Direct")) then Response.Write("| Interior: " & thisrs("Int Burnish Direct") & " |
")
if not isnull(thisrs("Notes")) then Response.Write("Notes: " & replace(server.htmlencode(thisrs("Notes")), vbCrLf, "
") & " |
| |
")
thisrs.movenext
loop
Response.Write("| |
")
Response.Write("| ")
Response.Write("Download this Record")
Response.Write(" |
")
end if
Response.Write("| |
")
Response.Write("| << Go Back |
")
Response.Write("
")
call CloseARecordset(thisrs)
end if
elseif callsubject = "clayobj" then
'CLAY OBJECTS RECORD
subject = "Clay Objects"
sql = "sp_Web_Specialist_ClayObjects_Specific '" & num & "'"
downloadsp = server.URLEncode("Web_Specialist_ClayObjects_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Clay Object '" & num & "' cannot be displayed. |
"
else
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " Object Number " & num & " |
")
Response.Write("| Unit: ")
if thisrs("Unit No") <> "" then Response.Write("" & thisrs("Unit No") & "")
Response.Write(" |
| |
")
Response.Write("| Area: ")
if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
Response.Write(" |
| |
")
if not isnull(thisrs("Shape")) then Response.Write("| Shape: " & thisrs("Shape") & " |
")
if not isnull(thisrs("Mass (g)")) then Response.Write("| Mass (g): " & thisrs("Mass (g)") & " |
")
if not isnull(thisrs("Fragmentation")) then Response.Write("| Fragmentation: " & thisrs("Fragmentation") & " |
")
if not isnull(thisrs("Size Diameter (cm)")) then Response.Write("| Size Diameter (cm): " & thisrs("Size Diameter (cm)") & " |
")
if not isnull(thisrs("Size Length (cm)")) then Response.Write("| Size Length (cm): " & thisrs("Size Length (cm)") & " |
")
if not isnull(thisrs("Size Width (cm)")) then Response.Write("| Size Width (cm): " & thisrs("Size Width (cm)") & " |
")
if not isnull(thisrs("Size Height (cm)")) then Response.Write("| Size Height (cm): " & thisrs("Size Height (cm)") & " |
| |
")
if not isnull(thisrs("Wear")) then Response.Write("| Wear: " & thisrs("Wear") & " |
")
if not isnull(thisrs("Texture/Evenness")) then Response.Write("| Texture/Evenness: " & thisrs("Texture/Evenness") & " |
")
if not isnull(thisrs("Color")) then Response.Write("| Color: " & thisrs("Color") & " |
")
if not isnull(thisrs("Elaboration")) then Response.Write("| Elaboration: " & thisrs("Elaboration") & " |
| |
")
if not isnull(thisrs("Heat Treatment")) then Response.Write("| Heat Treatment: " & thisrs("Heat Treatment") & " |
")
if thisrs("Re-fired?") = true then
Response.Write("| Re-fired?: Yes |
")
else
Response.Write("| Re-fired?: No |
")
end if
if not isnull(thisrs("Inclusions")) then Response.Write("| Inclusions: " & thisrs("Inclusions") & " |
")
'' this field was originally called fabric type - sonya requested rename on site in 2006
if not isnull(thisrs("Notes on Piece")) then Response.Write("| Notes on Piece: " & thisrs("Notes on Piece") & " |
")
if not isnull(thisrs("Interior")) then Response.Write("| Interior: " & thisrs("Interior") & " |
| |
")
thisrs.movenext
loop
Response.Write("| |
")
Response.Write("| ")
Response.Write("Download this Record")
Response.Write(" |
")
end if
Response.Write("| |
")
Response.Write("| << Go Back |
")
Response.Write("
")
call CloseARecordset(thisrs)
elseif callsubject = "cs" then
'CHIPPED STONE RECORD
subject = "Chipped Stone"
sql = "sp_Web_Specialist_ChippedStone_Basic_Data_Specific '" & num & "'"
downloadsp = server.URLEncode("Web_Specialist_ChippedStone_Basic_Data_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Chipped Stone record '" & num & "' cannot be displayed. |
"
else
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " Bag Number " & num & " |
")
Response.Write("| Unit: ")
if thisrs("Unit") <> "" then Response.Write("" & thisrs("Unit") & "")
Response.Write(" |
| |
")
Response.Write("| Area: ")
if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
Response.Write(" |
| |
")
if not isnull(thisrs("RetrievalMethod")) then Response.Write("| Retrieval Method: " & thisrs("RetrievalMethod") & " |
")
if not isnull(thisrs("FindsLetter")) OR not isnull(thisrs("FindsNumber")) then Response.Write("| GID: " & thisrs("Unit") & "." & thisrs("FindsLetter") & thisrs("FindsNumber") & " |
")
if not isnull(thisrs("FlotNum")) then Response.Write("| Flot Number: " & thisrs("FlotNum") & " |
")
if not isnull(thisrs("SampleNum")) then Response.Write("| Sample Number: " & thisrs("SampleNum") & " |
")
if not isnull(thisrs("Fraction")) then Response.Write("| Fraction: " & thisrs("Fraction") & " |
")
if not isnull(thisrs("Weight")) then Response.Write("| Weight: " & thisrs("Weight") & " |
")
if not isnull(thisrs("Count")) then Response.Write("| Count: " & thisrs("Count") & " |
")
if not isnull(thisrs("RawMaterial")) then Response.Write("| Raw Material: " & thisrs("RawMaterial") & " |
")
if not isnull(thisrs("GeneralDescription")) then Response.Write("| General Description: " & thisrs("GeneralDescription") & " |
| |
")
thisrs.movenext
loop
Response.Write("| |
")
Response.Write("| ")
Response.Write("Download this Record")
Response.Write(" |
")
end if
Response.Write("| |
")
Response.Write("| << Go Back |
")
Response.Write("
")
call CloseARecordset(thisrs)
elseif callsubject = "cons" then
'CONSERVATION RECORD
subject = "Conservation"
sql = "sp_Web_Specialist_Conservation_Specific '" & num & "'"
downloadsp = server.URLEncode("Web_Specialist_Conservation_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Conservation record '" & num & "' cannot be displayed. |
"
else
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " Record " & num & " |
")
'Response.Write("| Unit: ")
'if thisrs("Unit No") <> "" then Response.Write("" & thisrs("Unit No") & "")
'Response.Write(" |
| |
")
'Response.Write("| Area: ")
'if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
'Response.Write(" |
| |
")
'Response.Write("| |
")
'show what record relates to
sql = "sp_Web_Specialist_ConservationRelatedTo_Specific '" & num & "'"
Call OpenAnotherRecordset(dbCatalCam, sql, 0, 0)
if NOT (thisrs2.BOF AND thisrs2.EOF) then
Response.Write("| Related to: |
")
thisrs2.MoveFirst
Response.Write("| ")
dim list
list = ""
do until thisrs2.EOF
if list <> "" then list = list & ", "
list = list & thisrs2("RelatedToSubTypeText") & " - "
if lcase(thisrs2("RelatedToSubTypeText")) = "feature" then
list = list & "" & thisrs2("ExcavationIDNumber") & ""
if not isnull(thisrs2("FindLetter")) OR not isnull(thisrs2("FindSampleNumber")) then list = list & "." & thisrs2("FindLetter") & thisrs2("FindSampleNumber")
thisrs2.MoveNext
loop
Response.Write(list & " |
")
end if
call CloseARecordset(thisrs2)
Response.Write("| |
")
'Response.Write PhotoList(num, "sp_Web_Images_for_ConservationRef_Specific", "lab record id")
Response.Write PhotoReferenceDisplay(num, "sp_Web_Images_Reference_for_Lab_Team_Entity", "conservation", "sp_Web_Images_for_Specific_Lab_Team_Entity")
' Response.Write PhotoList(num, "sp_Web_Images_for_Specific_Lab_Team_Entity", "conservation")
Response.Write("| |
")
if not isnull(thisrs("Begin Date")) then Response.Write("| Begin Date: " & thisrs("Begin date") & " |
")
if not isnull(thisrs("End Date")) then Response.Write("| End Date: " & thisrs("End Date") & " |
")
Response.Write("| |
")
if not isnull(thisrs("Description")) then Response.Write("| Description: " & thisrs("Description") & " |
")
if not isnull(thisrs("Find Type")) then Response.Write("| Find Type: " & thisrs("Find Type") & " |
")
Response.Write("| |
")
if not isnull(thisrs("Condition")) then Response.Write("| Condition: " & thisrs("Condition") & " |
")
if not isnull(thisrs("Previous Treatment")) then Response.Write("| Previous Treatment: " & thisrs("Previous Treatment") & " |
")
if not isnull(thisrs("Treatment")) then Response.Write("| Treatment: " & thisrs("Treatment") & " |
")
if not isnull(thisrs("Packing")) then Response.Write("| Packing: " & thisrs("Packing") & " |
")
if not isnull(thisrs("Technical Analysis")) then Response.Write("| Technical Analysis: " & thisrs("Technical Analysis") & " |
")
if not isnull(thisrs("Recommended")) then Response.Write("| Recommendation: " & thisrs("Recommended") & " |
")
if not isnull(thisrs("Destination")) then Response.Write("| Destination: " & thisrs("Destination") & " |
")
Response.Write("| |
")
if not isnull(thisrs("ConservatorNames")) then Response.Write("| Conserved By: " & mid(thisrs("ConservatorNames"),2,len(thisrs("ConservatorNames")) - 2) & " |
| |
")
thisrs.movenext
loop
Response.Write("| |
")
Response.Write("| ")
Response.Write("Download this Record")
Response.Write(" |
")
end if
Response.Write("| |
")
Response.Write("| << Go Back |
")
Response.Write("
")
call CloseARecordset(thisrs)
elseif callsubject = "faunal" then
'FAUNAL RECORD
subject = "Faunal"
sql = "sp_Web_Specialist_Fauna_Bone_Basic_Faunal_Data_Specific '" & num & "'"
downloadsp = server.URLEncode("Web_Specialist_Fauna_Bone_Basic_Faunal_Data_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Faunal record '" & num & "' cannot be displayed. |
"
else
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " ID Number " & num & " |
")
Response.Write("| Unit: ")
if thisrs("Unit Number") <> "" then Response.Write("" & thisrs("Unit Number") & "")
Response.Write(" |
| |
")
Response.Write("| Area: ")
if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
Response.Write(" |
| |
")
if not isnull(thisrs("Sample Number")) then Response.Write("| Sample Number: " & thisrs("Sample Number") & " |
")
if not isnull(thisrs("ElementText")) then Response.Write("| Element: " & thisrs("ElementText") & " |
")
if not isnull(thisrs("TaxonText")) then Response.Write("| Taxon: " & thisrs("TaxonText") & " |
")
if thisrs("Year") <= 1999 then
if not isnull(thisrs("ArticulationText")) then Response.Write("| Articulation: " & thisrs("ArticulationText") & " |
")
if not isnull(thisrs("CertaintyText")) then Response.Write("| Certainty: " & thisrs("CertaintyText") & " |
")
if not isnull(thisrs("AnimalSizeText")) then Response.Write("| AnimalSize: " & thisrs("AnimalSizeText") & " |
")
if not isnull(thisrs("Number of Pieces")) then Response.Write("| Number of Pieces: " & thisrs("Number of Pieces") & " |
")
'watch num elements fields as two spaces between 'of elements'
if not isnull(thisrs("Number of Elements")) then Response.Write("| Number of Elements: " & thisrs("Number of Elements") & " |
")
if not isnull(thisrs("Body Portion")) then Response.Write("| Body Portion: " & thisrs("Body Portion") & " |
")
if not isnull(thisrs("Weight")) then Response.Write("| Weight: " & thisrs("Weight") & " |
")
if not isnull(thisrs("Length")) then Response.Write("| Length: " & thisrs("Length") & " |
")
if not isnull(thisrs("Comments")) then Response.Write("| Comments: " & thisrs("Comments") & " |
| |
")
Response.Write("| |
")
Response.Write("| ")
Response.Write("Download this Record")
Response.Write(" |
")
Response.Write("| |
")
'due to length of code required to display cranial or post cranial have split out
'into seperate procedure - below on this page
'if element < 24 its cranial, if 24 or over its postcranial
if thisrs("Element") < 24 then
call DisplayFaunalCranial(thisrs("GID"))
else
call DisplayFaunalPostCranial(thisrs("GID"))
end if
end if
call DisplayFaunalMeasurements(thisrs("GID"), thisrs("Year"))
thisrs.movenext
loop
end if
Response.Write("| |
")
Response.Write("| << Go Back |
")
Response.Write("
")
call CloseARecordset(thisrs)
elseif callsubject = "fig" then
dim str
'FIGURINE RECORD
subject = "Figurines"
sql = "sp_Web_Specialist_Fig_MainData_Specific '" & num & "'"
downloadsp = server.URLEncode("Web_Specialist_Fig_MainData_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Figurine record '" & num & "' cannot be displayed. |
"
else
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " ID Number " & num & " (Search this item on http://figurines.stanford.edu) |
")
Response.Write("| Unit: ")
if thisrs("UnitNumber") <> "" then Response.Write("" & thisrs("UnitNumber") & "")
Response.Write(" |
| |
")
Response.Write("| Area: ")
'saj alter june2012
'if thisrs("UnitArea") <> "" then Response.Write("" & thisrs("UnitArea") & "")
if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
Response.Write(" |
| |
")
dim figpath, imagename, imagename2, figpathFull, fullpathhref1, fullpathhref2
fullpathhref1 = ""
fullpathhref2 = ""
figpath = Fig_Images & "thumbnail/"
figpathFull = Fig_Images & "full_size/"
'figpath = Fig_Images
Response.Write("")
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not isnull(thisrs("image small ids")) then
imagename = thisrs("Image small ids")
'Response.Write server.MapPath(figpath & imagename)
if fso.FileExists(server.MapPath(figpath & imagename)) then
'response.write " file exists"
if not isnull(thisrs("image ids")) then
imagename2 = thisrs("image ids")
'Response.write server.MapPath(figpathFull & imagename2)
if fso.FileExists(server.MapPath(figpathFull & imagename2)) then
fullpathhref1 = ""
fullpathhref2 = ""
end if
end if
Response.Write fullpathhref1
if instr(lcase(imagename), ".jpg") = 0 then imagename = imagename & ".jpg"
Response.Write("![Image 1 of Figurine " & num & "](" & figpath & imagename & ") ")
Response.write fullpathhref2
else
'response.write " file does not exist"
end if
end if
if not isnull(thisrs("image 2 small id")) then
imagename = thisrs("Image 2 small id")
if fso.FileExists(server.MapPath(figpath & imagename)) then
if not isnull(thisrs("image 2 id")) then
imagename2 = thisrs("image 2 id")
'Response.write server.MapPath(figpathFull & imagename2)
if fso.FileExists(server.MapPath(figpathFull & imagename2)) then
fullpathhref1 = ""
fullpathhref2 = ""
end if
end if
Response.Write fullpathhref1
if instr(lcase(imagename), ".jpg") = 0 then imagename = imagename & ".jpg"
Response.Write(" ")
Response.write fullpathhref2
end if
end if
if not isnull(thisrs("image 3 small id")) then
imagename = thisrs("Image 3 small id")
if fso.FileExists(server.MapPath(figpath & imagename)) then
if not isnull(thisrs("image 3 id")) then
imagename2 = thisrs("image 3 id")
'Response.write server.MapPath(figpathFull & imagename2)
if fso.FileExists(server.MapPath(figpathFull & imagename2)) then
fullpathhref1 = ""
fullpathhref2 = ""
end if
end if
Response.Write fullpathhref1
if instr(lcase(imagename), ".jpg") = 0 then imagename = imagename & ".jpg"
Response.Write(" ")
Response.write fullpathhref2
end if
end if
if not isnull(thisrs("image 4 small id")) then
imagename = thisrs("Image 4 small id")
if fso.FileExists(server.MapPath(figpath & imagename)) then
if not isnull(thisrs("image 4 id")) then
imagename2 = thisrs("image 4 id")
'Response.write server.MapPath(figpathFull & imagename2)
if fso.FileExists(server.MapPath(figpathFull & imagename2)) then
fullpathhref1 = ""
fullpathhref2 = ""
end if
end if
Response.Write fullpathhref1
if instr(lcase(imagename), ".jpg") = 0 then imagename = imagename & ".jpg"
Response.Write(" ")
Response.write fullpathhref2
end if
end if
Response.Write(" |
")
set fso = nothing
str = ""
'altered june 2012 saj
'if not isnull(thisrs("object type1")) then
' str = thisrs("object type1")
' if not isnull(thisrs("object type2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("object type2")
' end if
'
' if not isnull(thisrs("object type3")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("object type3")
' end if
'end if
if not isnull(thisrs("ObjectTypes")) then str = mid(thisrs("ObjectTypes"), 2, len(thisrs("ObjectTypes")) -2)
if str <> "" then Response.Write("| Object Type: " & str & " |
")
'str = ""
'if not isnull(thisrs("object form1")) then
' str = thisrs("object form1")
' if not isnull(thisrs("object form2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("object form2")
' end if
'
' if not isnull(thisrs("object form3")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("object forme3")
' end if
'end if
'if str <> "" then Response.Write("| Object Form: " & str & " |
")
if not isnull(thisrs("Object Form")) AND thisrs("Object Form") <> " " then Response.Write("| Object Form: " & thisrs("Object Form") & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("form1")) then
' str = thisrs("form1")
' if not isnull(thisrs("form2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("form2")
'' end if
'
' if not isnull(thisrs("form3")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("form3")
' end if
'end if
if not isnull(thisrs("FigForms")) then str = mid(thisrs("FigForms"), 2, len(thisrs("ObjectTypes")) -2)
if str <> "" then Response.Write("| Form: " & str & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("form type1")) then
' str = thisrs("form type1")
' if not isnull(thisrs("form type2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("form type2")
' end if
'
' if not isnull(thisrs("form type3")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("form type3")
' end if
'end if
if not isnull(thisrs("FormTypes")) then str = mid(thisrs("FormTypes"), 2, len(thisrs("FormTypes")) -2)
if str <> "" then Response.Write("| Form Type: " & str & " |
")
Response.Write("| |
")
if not isnull(thisrs("Method of Manufacture")) AND thisrs("Method of Manufacture") <> " " then Response.Write("| Method of Manufacture: " & thisrs("Method of Manufacture") & " |
")
if not isnull(thisrs("Manufacture Quality")) AND thisrs("Manufacture Quality") <> " " then Response.Write("| Manufacture Quality: " & thisrs("Manufacture Quality") & " |
")
if not isnull(thisrs("Material Composition")) AND thisrs("Material Composition") <> " " then Response.Write("| Material Composition: " & thisrs("Material Composition") & " |
")
Response.Write("| |
")
if not isnull(thisrs("Primary Fabric")) AND thisrs("Primary Fabric") <> " " then Response.Write("| Primary Fabric: " & thisrs("Primary Fabric") & " |
")
if not isnull(thisrs("Primary Fabric Color")) AND thisrs("Primary Fabric Color") <> " " then Response.Write("| Primary Fabric Color: " & thisrs("Primary Fabric Color") & " |
")
if not isnull(thisrs("Additional Fabric")) AND thisrs("Additional Fabric") <> " " then Response.Write("| Additional Fabric: " & thisrs("Additional Fabric") & " |
")
if not isnull(thisrs("Additional Fabric Color")) AND thisrs("Additional Fabric Color") <> " " then Response.Write("| Additional Fabric Color: " & thisrs("Additional Fabric Color") & " |
")
Response.Write("| |
")
'' if not isnull(thisrs("Period")) AND thisrs("Period") <> " " then Response.Write("| Period: " & thisrs("Period") & " |
")
if not isnull(thisrs("Heat Exposure")) AND thisrs("Heat Exposure") <> " " then Response.Write("| Heat Exposure: " & thisrs("Heat Exposure") & " |
")
if not isnull(thisrs("Fabric Texture")) AND thisrs("Fabric Texture") <> " " then Response.Write("| Fabric Texture: " & thisrs("Fabric Texture") & " |
")
' str = ""
' if not isnull(thisrs("inclusion type1")) then
' str = thisrs("inclusion type1")
' if not isnull(thisrs("inclusion type2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("inclusion type2")
' end if
' end if
' if str <> "" then Response.Write("| Inclusion Type: " & str & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("pose1")) then
' str = thisrs("pose1")
' if not isnull(thisrs("pose2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("pose2")
' end if
'end if
if not isnull(thisrs("Poses")) then str = mid(thisrs("Poses"), 2, len(thisrs("Poses")) -2)
if str <> "" then Response.Write("| Pose: " & str & " |
")
str = ""
' if not isnull(thisrs("body parts1")) then
' str = thisrs("body parts1")
' if not isnull(thisrs("body parts2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("body parts2")
' end if
' end if
' if str <> "" then Response.Write("| Body Parts: " & str & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("surface treatment1")) then
' str = thisrs("surface treatment1")
' if not isnull(thisrs("surface treatment2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("surface treatment2")
' end if
'
' if not isnull(thisrs("surface treatment3")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("surface treatment3")
' end if
'end if
if not isnull(thisrs("SurfaceTreatments")) then str = mid(thisrs("SurfaceTreatments"), 2, len(thisrs("SurfaceTreatments")) -2)
if str <> "" then Response.Write("| Surface Treatment: " & str & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("decoration technique1")) then
' str = thisrs("decoration technique1")
' if not isnull(thisrs("decoration technique2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("decoration technique2")
' end if
'
' if not isnull(thisrs("decoration technique3")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("decoration technique3")
' end if
'end if
if not isnull(thisrs("DecorationTech")) then str = mid(thisrs("DecorationTech"), 2, len(thisrs("DecorationTech")) -2)
if str <> "" then Response.Write("| Decoration Technique: " & str & " |
")
Response.Write("| |
")
if not isnull(thisrs("max h (cm)")) then Response.Write("| Max Height (cm): " & thisrs("max h (cm)") & " |
")
if not isnull(thisrs("max w (cm)")) then Response.Write("| Max Width (cm): " & thisrs("max w (cm)") & " |
")
if not isnull(thisrs("max th (cm)")) then Response.Write("| Max Thicknes (cm): " & thisrs("max th (cm)") & " |
")
if not isnull(thisrs("max l (cm)")) then Response.Write("| Max Lenght (cm): " & thisrs("max l (cm)") & " |
")
if not isnull(thisrs("diam (cm)")) then Response.Write("| Diameter (cm): " & thisrs("diam (cm)") & " |
")
if not isnull(thisrs("weight (g)")) then Response.Write("| Weight (G): " & thisrs("weight (g)") & " |
")
Response.Write("| |
")
if not isnull(thisrs("Preservation")) AND thisrs("Preservation") <> " " then Response.Write("| Preservation: " & thisrs("Preservation") & " |
")
if not isnull(thisrs("Condition")) AND thisrs("Condition") <> " " then Response.Write("| Condition: " & thisrs("Condition") & " |
")
if not isnull(thisrs("Pieces")) AND thisrs("Pieces") <> " " then Response.Write("| Pieces: " & thisrs("Pieces") & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("Quadruped1")) then
' str = thisrs("Quadruped1")
' if not isnull(thisrs("Quadruped2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("Quadruped2")
' end if
'
' if not isnull(thisrs("Quadruped3")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("Quadruped3")
' end if
'end if
if not isnull(thisrs("Quadruped")) then str = mid(thisrs("Quadruped"), 2, len(thisrs("Quadruped")) -2)
if str <> "" then Response.Write("| Quadruped: " & str & " |
")
if not isnull(thisrs("Core Color")) then Response.Write("| Core Color: " & thisrs("Core Color") & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("Surface Color1")) then
' str = thisrs("Surface Color1")
' if not isnull(thisrs("Surface Color2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("Surface Color2")
' end if
'end if
if not isnull(thisrs("SurfaceColors")) then str = mid(thisrs("SurfaceColors"), 2, len(thisrs("SurfaceColors")) -2)
if str <> "" then Response.Write("| Surface Color: " & str & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("Paint Color1")) then
' str = thisrs("Paint Color1")
' if not isnull(thisrs("Paint Color2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("Paint Color2")
' end if
'end if
if not isnull(thisrs("PaintColors")) then str = mid(thisrs("PaintColors"), 2, len(thisrs("PaintColors")) -2)
if str <> "" then Response.Write("| Paint Color: " & str & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("fragmentation1")) then
' str = thisrs("fragmentation1")
' if not isnull(thisrs("fragmentation2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("fragmentation2")
' end if
'
' if not isnull(thisrs("fragmentation3")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("fragmentation3")
' end if
'end if
if not isnull(thisrs("Fragmentation")) then str = mid(thisrs("Fragmentation"), 2, len(thisrs("Fragmentation")) -2)
if str <> "" then Response.Write("| Fragmentation: " & str & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("sex features1")) then
' str = thisrs("sex features1")
' if not isnull(thisrs("sex features2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("sex features2")
' end if
'end if
if not isnull(thisrs("Sexfeatures")) then str = mid(thisrs("Sexfeatures"), 2, len(thisrs("Sexfeatures")) -2)
if str <> "" then Response.Write("| Sex Features: " & str & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("sex interpretation1")) then
' str = thisrs("sex interpretation1")
' if not isnull(thisrs("sex interpretation2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("sex interpretation2")
' end if
'end if
if not isnull(thisrs("SexInterp")) then str = mid(thisrs("SexInterp"), 2, len(thisrs("SexInterp")) -2)
if str <> "" then Response.Write("| Sex Interpretation: " & str & " |
")
str = ""
'altered june 2012 saj
'if not isnull(thisrs("details1")) then
' str = thisrs("details1")
' if not isnull(thisrs("details2")) then
' if str <> "" then str = str & ", "
' str = str & thisrs("details2")
' end if
'end if
if not isnull(thisrs("Details")) then str = mid(thisrs("Details"), 2, len(thisrs("Details")) -2)
if str <> "" then Response.Write("| Details: " & str & " |
")
if not isnull(thisrs("Comments")) then Response.Write("| Comments: " & thisrs("Comments") & " |
| |
")
thisrs.movenext
loop
Response.Write("| |
")
Response.Write("| ")
Response.Write("Download this Record")
Response.Write(" |
")
end if
Response.Write("| |
")
Response.Write("| << Go Back |
")
Response.Write("
")
call CloseARecordset(thisrs)
elseif callsubject = "gs" then
subject = "Ground Stone"
'GROUNDSTONE RECORD
subject = "Ground Stone"
sql = "sp_Web_Specialist_Groundstone1_Basic_Data_Specific '" & num & "'"
downloadsp = server.URLEncode("Web_Specialist_Groundstone1_Basic_Data_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Groundstone record '" & num & "' cannot be displayed. |
"
else
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " ID Number " & num & " |
")
Response.Write("| Unit: ")
if thisrs("Unit") <> "" then Response.Write("" & thisrs("Unit") & "")
Response.Write(" |
| |
")
Response.Write("| Area: ")
if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
Response.Write(" |
| |
")
'if thisrs("Worked?") = true then
' Response.Write("| Worked: Yes |
")
'else
' Response.Write("| Worked: No |
")
'end if
'change 2010
if thisrs("Worked?") = "1 - UNWORKED" then
Response.Write("| Worked: No |
")
else
Response.Write("| Worked: Yes |
")
end if
'if not isnull(thisrs("RawMaterial")) then Response.Write("| Raw Material: " & thisrs("RawMaterial") & " |
")
'if not isnull(thisrs("GeneralDescription")) then Response.Write("| General Description: " & thisrs("GeneralDescription") & " |
")
'if not isnull(thisrs("Count")) then Response.Write("| Count: " & thisrs("Count") & " |
")
'if not isnull(thisrs("Weight")) then Response.Write("| Weight: " & thisrs("Weight") & " |
")
'change 2010
if not isnull(thisrs("Raw Material")) then Response.Write("| Raw Material: " & thisrs("Raw Material") & " |
")
if not isnull(thisrs("Artefact Type")) then Response.Write("| Artefact Type: " & thisrs("Artefact Type") & " |
")
if not isnull(thisrs("N")) then Response.Write("| Count: " & thisrs("N") & " |
")
if not isnull(thisrs("Weight g")) then Response.Write("| Weight: " & thisrs("Weight g") & " |
")
if thisrs("Sampled?") = true then
Response.Write("| Sampled: Yes |
")
else
Response.Write("| Sampled: No |
")
end if
'change 2010
'if not isnull(thisrs("RetrievalMethod")) then Response.Write("| Retrieval Method: " & thisrs("RetrievalMethod") & " |
")
'if not isnull(thisrs("Flot No")) then Response.Write("| Flot No: " & thisrs("Flot No") & " |
")
'if not isnull(thisrs("Fraction")) then Response.Write("| Fraction: " & thisrs("Fraction") & " |
")
'if not isnull(thisrs("Percent")) then Response.Write("| Percent: " & thisrs("Percent") & " |
")
'if not isnull(thisrs("Volume")) then Response.Write("| Volume: " & thisrs("Volume") & " |
| |
")
'if not isnull(thisrs("GSComment")) then Response.Write("| Comment: " & thisrs("GSComment") & " |
| |
")
thisrs.movenext
loop
Response.Write("| |
")
Response.Write("| ")
Response.Write("Download this Record")
Response.Write(" |
")
end if
Response.Write("| |
")
Response.Write("| << Go Back |
")
Response.Write("
")
call CloseARecordset(thisrs)
elseif callsubject = "hr" then
subject = "Heavy Residue"
'HEAVY RESIDUE RECORD
subject = "Heavy Residue"
sql = "sp_Web_Specialist_HR_Basic_Data_Specific '" & num & "'"
downloadsp = server.URLEncode("Web_Specialist_HR_Basic_Data_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Heavy Residue record '" & num & "' cannot be displayed. |
"
else
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " ID Number " & num & " |
")
Response.Write("| Unit: ")
if thisrs("Unit") <> "" then Response.Write("" & thisrs("Unit") & "")
Response.Write(" |
| |
")
Response.Write("| Area: ")
if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
Response.Write(" |
| |
")
Response.Write("| Flot Number: ")
if thisrs("Flot Number") <> "" then Response.Write("" & thisrs("Flot Number") & "")
Response.Write(" |
| |
")
if not isnull(thisrs("Date Sorted")) then Response.Write("| Date Sorted: " & thisrs("Date Sorted") & " |
")
if not isnull(thisrs("% Sort > 4 mm")) then Response.Write("| % Sorted > 4 mm: " & thisrs("% Sort > 4 mm") & " |
")
if not isnull(thisrs("% Sort > 2 mm")) then Response.Write("| % Sorted > 2 mm: " & thisrs("% Sort > 2 mm") & " |
")
if not isnull(thisrs("% Sort > 1 mm")) then Response.Write("| % Sorted > 1 mm: " & thisrs("% Sort > 1 mm") & " |
")
if not isnull(thisrs("Rem Sorted Residue > 4 mm")) then Response.Write("| Remaining Residue Sorted > 4 mm: " & thisrs("Rem Sorted Residue > 4 mm") & " |
")
if not isnull(thisrs("Rem Sorted Residue > 2 mm")) then Response.Write("| Remaining Residue Sorted > 2 mm: " & thisrs("Rem Sorted Residue > 2 mm") & " |
")
if not isnull(thisrs("Rem Sorted Residue > 1 mm")) then Response.Write("| Remaining Residue Sorted > 1 mm: " & thisrs("Rem Sorted Residue > 1 mm") & " |
")
if not isnull(thisrs("Composition of remaining residue")) then Response.Write("| Composition of remaining residue: " & thisrs("Composition of remaining residue") & " |
")
if not isnull(thisrs("Comments")) then Response.Write("| Comments: " & thisrs("Comments") & " |
| |
")
Response.Write("| ")
Response.Write("Download this Core Data")
Response.Write(" |
")
Response.Write("| |
")
'show material found
sql = "sp_Web_Specialist_HR_Material_Specific '" & num & "'"
Call OpenAnotherRecordset(dbCatalCam, sql, 0, 0)
if NOT (thisrs2.BOF AND thisrs2.EOF) then
Response.Write("| Material | ")
Response.Write(">4mm % Sorted - Weight | 2mm % Sorted - Weight | 1mm % Sorted - Weight | ")
thisrs2.MoveFirst
do until thisrs2.EOF
Response.Write("| " & thisrs2("Material") & " | ")
Response.Write("" & thisrs2("4 % sorted") & "% - " & thisrs2("4 Weight") & " | " & thisrs2("2 % sorted") & "% - " & thisrs2("2 Weight") & " | ")
Response.Write("" & thisrs2("1 % sorted") & "% - " & thisrs2("1 Weight") & " | ")
thisrs2.MoveNext
loop
Response.Write("
")
downloadsp = server.URLEncode("Web_Specialist_HR_Material_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
Response.Write(" |
| ")
Response.Write("Download this Material Data")
Response.Write(" |
")
end if
call CloseARecordset(thisrs2)
thisrs.movenext
loop
end if
Response.Write("| |
")
Response.Write("| |
")
Response.Write("| << Go Back |
")
Response.Write("
")
call CloseARecordset(thisrs)
elseif callsubject = "mf" then
'MICROFAUNAL RECORD
subject = "Microfaunal"
sql = "sp_Web_Specialist_MicroFauna_Basic_Data_Specific '" & num & "'"
downloadsp = server.URLEncode("Web_Specialist_MicroFauna_Basic_Data_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Microfaunal record '" & num & "' cannot be displayed. |
"
else
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " ID Number " & num & " |
")
Response.Write("| Unit: ")
if thisrs("Unit Number") <> "" then Response.Write("" & thisrs("Unit Number") & "")
Response.Write(" |
| |
")
Response.Write("| Area: ")
if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
Response.Write(" |
| |
")
if not isnull(thisrs("Sample Number")) then Response.Write("| Sample Number: " & thisrs("Sample Number") & " |
")
if not isnull(thisrs("FlotNum")) then
Response.Write("| Flot Number: ")
if thisrs("FlotNum") <> "" then Response.Write("" & thisrs("FlotNum") & "")
Response.Write(" |
")
end if
if not isnull(thisrs("TotalSamplePercentAnalysed")) then Response.Write("| Total Sample % Analysed: " & thisrs("TotalSamplePercentAnalysed") & " |
")
Response.Write("| |
")
if not isnull(thisrs("ElementText")) then Response.Write("| Element: " & thisrs("ElementText") & " |
")
if not isnull(thisrs("TaxonText")) then Response.Write("| Taxon: " & thisrs("TaxonText") & " |
")
Response.Write("| |
")
if not isnull(thisrs("Recovery Method")) then Response.Write("| Recovery Method: " & thisrs("Recovery Method") & " |
")
if not isnull(thisrs("SizeText")) then Response.Write("| Animal Size: " & thisrs("SizeText") & " |
")
if not isnull(thisrs("SymmetryText")) then Response.Write("| Symmetry: " & thisrs("SymmetryText") & " |
")
if not isnull(thisrs("FragmentationText")) then Response.Write("| Origin of Fragmentation: " & thisrs("FragmentationText") & " |
")
if not isnull(thisrs("DigestionText")) then Response.Write("| Digestion: " & thisrs("DigestionText") & " |
")
if not isnull(thisrs("WeatheringText")) then Response.Write("| Weathering: " & thisrs("WeatheringText") & " |
")
if not isnull(thisrs("MainGnawingText")) then Response.Write("| Gnawing: " & thisrs("MainGnawingText") & " |
")
if not isnull(thisrs("MFGnawingText")) then Response.Write("| MFGnawing: " & thisrs("MFGnawingText") & " |
")
if not isnull(thisrs("MFPunctureText")) then Response.Write("| Puncture Marks: " & thisrs("MFPunctureText") & " |
")
if not isnull(thisrs("MFOtherAnalysisText")) then Response.Write("| Other Analysis: " & thisrs("MFOtherAnalysisText") & " |
")
if not isnull(thisrs("ArticulationText")) then Response.Write("| Articulation: " & thisrs("ArticulationText") & " |
")
if not isnull(thisrs("CertaintyText")) then Response.Write("| Certainty: " & thisrs("CertaintyText") & " |
")
if not isnull(thisrs("BurnColorText")) then Response.Write("| Burn Colour: " & thisrs("BurnColorText") & " |
")
if not isnull(thisrs("BurnTypeText")) then Response.Write("| Burn Type: " & thisrs("BurnTypeText") & " |
")
if not isnull(thisrs("BurnLocationText")) then Response.Write("| Burn Location: " & thisrs("BurnLocationText") & " |
")
Response.Write("| |
")
if not isnull(thisrs("Length")) then Response.Write("| Length: " & thisrs("Length") & " |
")
if not isnull(thisrs("Weight")) then Response.Write("| Weight: " & thisrs("Weight") & " |
")
'watch num elements fields as two spaces between 'of elements'
if not isnull(thisrs("Number of Elements")) then Response.Write("| Number of Elements: " & thisrs("Number of Elements") & " |
")
if not isnull(thisrs("Comments")) then Response.Write("| Comments: " & thisrs("Comments") & " |
| |
")
Response.Write("| |
")
Response.Write("| ")
Response.Write("Download this Core Data")
Response.Write(" |
")
Response.Write("| |
")
'due to length of code required to display cranial or post cranial have split out
'into seperate procedure - below on this page
'if element < 24 its cranial, if 24 or over its postcranial
if thisrs("Element") < 24 then
call DisplayMFCranial(thisrs("GID"))
else
call DisplayMFPostCranial(thisrs("GID"))
end if
thisrs.movenext
loop
end if
Response.Write("| |
")
Response.Write("| << Go Back |
")
Response.Write("
")
call CloseARecordset(thisrs)
elseif callsubject = "phyto" then
subject = "Phytoliths"
'Phyolith RECORD
subject = "Phytoliths"
sql = "sp_Web_Specialist_Phytolith_Basic_Specific '" & num & "'"
downloadsp = server.URLEncode("Web_Specialist_Phytolith_Basic_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
downloadnum = num
Call OpenARecordset(dbCatalCam, sql, 0, 0)
response.write("")
if thisrs.BOF AND thisrs.EOF then
Response.Write "| Sorry but Phytolith sample '" & num & "' cannot be displayed. |
"
else
thisrs.MoveFirst
do until thisrs.EOF
Response.Write("" & subject & " ID Number " & num & " - " & thisrs("AnalysisStage") & " |
")
Response.Write("| Unit: ")
if thisrs("Unit") <> "" then Response.Write("" & thisrs("Unit") & "")
'saj june 2012 added to view and here
if thisrs("SampleLetter") <> "" then Response.Write("." & thisrs("SampleLetter") & thisrs("SampleNumber"))
Response.Write(" |
| |
")
'Response.Write("| Area: ")
'if thisrs("Area") <> "" then Response.Write("" & thisrs("Area") & "")
'Response.Write(" |
| |
")
Response.Write("| Notes: " & thisrs("Notes"))
Response.Write(" |
| |
")
'saj june 2012 added to view and here
Response.Write("| Work by: " & thisrs("WorkBy"))
Response.Write(" |
")
'saj 14June2012 Flips data just put up so remove download ability
'Response.Write("| ")
'Response.Write("Download this Core Data")
'Response.Write(" |
")
Response.Write("| |
")
'show material found
sql = "sp_Web_Specialist_Phytolith_Sample_Specific '" & num & "'"
Call OpenAnotherRecordset(dbCatalCam, sql, 0, 0)
if NOT (thisrs2.BOF AND thisrs2.EOF) then
Response.Write("| Phytolith Name | ")
Response.Write("Single or Multi Cell | N / gm | ")
thisrs2.MoveFirst
do until thisrs2.EOF
Response.Write("| " & thisrs2("PhytoName") & " | ")
Response.Write("" & thisrs2("SingleORMulti") & " | " & thisrs2("phytoN/gm") & " | ")
thisrs2.MoveNext
loop
Response.Write("
")
downloadsp = server.URLEncode("Web_Specialist_Phytolith_Sample_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
'saj 14June2012 Flips data just put up so remove download ability
'Response.Write(" |
| ")
'Response.Write("Download this Sample Data")
'Response.Write(" |
")
end if
call CloseARecordset(thisrs2)
thisrs.movenext
loop
end if
Response.Write("| |
")
Response.Write("| |
")
Response.Write("| << Go Back |
")
Response.Write("
")
call CloseARecordset(thisrs)
end if
end sub
Sub DisplayMFCranial(num)
'show microfaun cranial fields
sql = "sp_Web_Specialist_Microfauna_Cranial_Specific '" & num & "'"
Call OpenAnotherRecordset(dbCatalCam, sql, 0, 0)
if NOT (thisrs2.BOF AND thisrs2.EOF) then
Response.Write("| Cranial Record |
| |
")
thisrs2.MoveFirst
do until thisrs2.EOF
if not isnull(thisrs2("ToothTypeText")) then Response.Write("| Loose Type: " & thisrs2("ToothTypeText") & " |
")
if not isnull(thisrs2("ToothClassText")) then Response.Write("| Loose Class: " & thisrs2("ToothClassText") & " |
")
if not isnull(thisrs2("ToothNumberText")) then Response.Write("| Loose Number: " & thisrs2("ToothNumberText") & " |
")
if not isnull(thisrs2("LengthLowerToothRow")) then Response.Write("| Length of Lower Tooth Row: " & thisrs2("LengthLowerToothRow") & " |
")
if not isnull(thisrs2("LengthOfElement")) then Response.Write("| Length of Element: " & thisrs2("LenghtofElement") & " |
")
if not isnull(thisrs2("SkullBreakageText")) then Response.Write("| Skull Breakage: " & thisrs2("SkullBreakageText") & " |
")
if not isnull(thisrs2("MandibleBreakageText")) then Response.Write("| Mandible Breakage: " & thisrs2("MandibleBreakageText") & " |
")
if thisrs2("LI Present") = 1 then Response.Write("| LI Present: " & thisrs2("LI present") & " |
")
if not isnull(thisrs2("LI Digestion")) AND thisrs2("LI Digestion") <> 0 then Response.Write("| LI Digestion: " & GetMFToothDigestionText(thisrs2("LI Digestion")) & " |
")
if thisrs2("LI2 Present") = 1 then Response.Write("| LI2 Present: " & thisrs2("LI2 present") & " |
")
if not isnull(thisrs2("LI2 Digestion")) AND thisrs2("LI2 Digestion") <> 0 then Response.Write("| LI2 Digestion: " & GetMFToothDigestionText(thisrs2("LI2 Digestion")) & " |
")
if thisrs2("LI3 Present") = 1 then Response.Write("| LI3 Present: " & thisrs2("LI3 present") & " |
")
if not isnull(thisrs2("LI3 Digestion")) AND thisrs2("LI3 Digestion") <> 0 then Response.Write("| LI3 Digestion: " & GetMFToothDigestionText(thisrs2("LI3 Digestion")) & " |
")
if thisrs2("LM1 Present") = 1 then Response.Write("| LM1 Present: " & thisrs2("LM1 present") & " |
")
if not isnull(thisrs2("LM1 Digestion")) AND thisrs2("LM1 Digestion") <> 0 then Response.Write("| LM1 Digestion: " & GetMFToothDigestionText(thisrs2("LM1 Digestion")) & " |
")
if thisrs2("LM2 Present") = 1 then Response.Write("| LM2 Present: " & thisrs2("LM2 present") & " |
")
if not isnull(thisrs2("LM2 Digestion")) AND thisrs2("LM2 Digestion") <> 0 then Response.Write("| LM2 Digestion: " & GetMFToothDigestionText(thisrs2("LM2 Digestion")) & " |
")
if thisrs2("LM3 Present") = 1 then Response.Write("| LM3 Present: " & thisrs2("LM3 present") & " |
")
if not isnull(thisrs2("LM3 Digestion")) AND thisrs2("LM3 Digestion") <> 0 then Response.Write("| LM3 Digestion: " & GetMFToothDigestionText(thisrs2("LM3 Digestion")) & " |
")
if thisrs2("LC Present") = 1 then Response.Write("| LC Present: " & thisrs2("LC present") & " |
")
if not isnull(thisrs2("LC Digestion")) AND thisrs2("LC Digestion") <> 0 then Response.Write("| LC Digestion: " & GetMFToothDigestionText(thisrs2("LC Digestion")) & " |
")
if thisrs2("LP1 Present") = 1 then Response.Write("| LP1 Present: " & thisrs2("LP1 present") & " |
")
if not isnull(thisrs2("LP1 Digestion")) AND thisrs2("LP1 Digestion") <> 0 then Response.Write("| LP1 Digestion: " & GetMFToothDigestionText(thisrs2("LP1 Digestion")) & " |
")
if thisrs2("LP2 Present") = 1 then Response.Write("| LP1 Present: " & thisrs2("LP2 present") & " |
")
if not isnull(thisrs2("LP2 Digestion")) AND thisrs2("LP2 Digestion") <> 0 then Response.Write("| LP2 Digestion: " & GetMFToothDigestionText(thisrs2("LP2 Digestion")) & " |
")
if thisrs2("LP3 Present") = 1 then Response.Write("| LP3 Present: " & thisrs2("LP3 present") & " |
")
if not isnull(thisrs2("LP3 Digestion")) AND thisrs2("LP3 Digestion") <> 0 then Response.Write("| LP3 Digestion: " & GetMFToothDigestionText(thisrs2("LP3 Digestion")) & " |
")
if thisrs2("LP4 Present") = 1 then Response.Write("| LP4 Present: " & thisrs2("LP4 present") & " |
")
if not isnull(thisrs2("LP4 Digestion")) AND thisrs2("LP4 Digestion") <> 0 then Response.Write("| LP4 Digestion: " & GetMFToothDigestionText(thisrs2("LP4 Digestion")) & " |
")
if thisrs2("LPM1 Present") = 1 then Response.Write("| LPM1 Present: " & thisrs2("LPM1 present") & " |
")
if not isnull(thisrs2("LPM1 Digestion")) AND thisrs2("LPM1 Digestion") <> 0 then Response.Write("| LPM1 Digestion: " & GetMFToothDigestionText(thisrs2("LPM1 Digestion")) & " |
")
if thisrs2("LPM2 Present") = 1 then Response.Write("| LPM2 Present: " & thisrs2("LPM2 present") & " |
")
if not isnull(thisrs2("LPM2 Digestion")) AND thisrs2("LPM2 Digestion") <> 0 then Response.Write("| LPM2 Digestion: " & GetMFToothDigestionText(thisrs2("LPM2 Digestion")) & " |
")
if thisrs2("LPM3 Present") = 1 then Response.Write("| LPM3 Present: " & thisrs2("LPM3 present") & " |
")
if not isnull(thisrs2("LPM3 Digestion")) AND thisrs2("LPM3 Digestion") <> 0 then Response.Write("| LPM3 Digestion: " & GetMFToothDigestionText(thisrs2("LPM3 Digestion")) & " |
")
if thisrs2("LPM4 Present") = 1 then Response.Write("| LPM4 Present: " & thisrs2("LPM4 present") & " |
")
if not isnull(thisrs2("LPM4 Digestion")) AND thisrs2("LPM4 Digestion") <> 0 then Response.Write("| LPM4 Digestion: " & GetMFToothDigestionText(thisrs2("LPM4 Digestion")) & " |
")
if thisrs2("RI Present") = 1 then Response.Write("| RI Present: " & thisrs2("RI present") & " |
")
if not isnull(thisrs2("RI Digestion")) AND thisrs2("RI Digestion") <> 0 then Response.Write("| RI Digestion: " & GetMFToothDigestionText(thisrs2("RI Digestion")) & " |
")
if thisrs2("RI1 Present") = 1 then Response.Write("| RI1 Present: " & thisrs2("RI1 present") & " |
")
if not isnull(thisrs2("RI1 Digestion")) AND thisrs2("RI1 Digestion") <> 0 then Response.Write("| RI1 Digestion: " & GetMFToothDigestionText(thisrs2("RI1 Digestion")) & " |
")
if thisrs2("RI2 Present") = 1 then Response.Write("| RI2 Present: " & thisrs2("RI2 present") & " |
")
if not isnull(thisrs2("RI2 Digestion")) AND thisrs2("RI2 Digestion") <> 0 then Response.Write("| RI2 Digestion: " & GetMFToothDigestionText(thisrs2("RI2 Digestion")) & " |
")
if thisrs2("RI3 Present") = 1 then Response.Write("| RI3 Present: " & thisrs2("RI3 present") & " |
")
if not isnull(thisrs2("RI3 Digestion")) AND thisrs2("RI3 Digestion") <> 0 then Response.Write("| RI3 Digestion: " & GetMFToothDigestionText(thisrs2("RI3 Digestion")) & " |
")
if thisrs2("RC Present") = 1 then Response.Write("| RC Present: " & thisrs2("RC present") & " |
")
if not isnull(thisrs2("RC Digestion")) AND thisrs2("RC Digestion") <> 0 then Response.Write("| RC Digestion: " & GetMFToothDigestionText(thisrs2("RC Digestion")) & " |
")
if thisrs2("RM1 Present") = 1 then Response.Write("| RM1 Present: " & thisrs2("RM1 present") & " |
")
if not isnull(thisrs2("RM1 Digestion")) AND thisrs2("RM1 Digestion") <> 0 then Response.Write("| RM1 Digestion: " & GetMFToothDigestionText(thisrs2("RM1 Digestion")) & " |
")
if thisrs2("RM2 Present") = 1 then Response.Write("| RM2 Present: " & thisrs2("RM2 present") & " |
")
if not isnull(thisrs2("RM2 Digestion")) AND thisrs2("RM2 Digestion") <> 0 then Response.Write("| RM2 Digestion: " & GetMFToothDigestionText(thisrs2("RM2 Digestion")) & " |
")
if thisrs2("RM3 Present") = 1 then Response.Write("| RM3 Present: " & thisrs2("RM3 present") & " |
")
if not isnull(thisrs2("RM3 Digestion")) AND thisrs2("RM3 Digestion") <> 0 then Response.Write("| RM3 Digestion: " & GetMFToothDigestionText(thisrs2("RM3 Digestion")) & " |
")
if thisrs2("RP1 Present") = 1 then Response.Write("| RP1 Present: " & thisrs2("RP1 present") & " |
")
if not isnull(thisrs2("RP1 Digestion")) AND thisrs2("RP1 Digestion") <> 0 then Response.Write("| RP1 Digestion: " & GetMFToothDigestionText(thisrs2("RP1 Digestion")) & " |
")
if thisrs2("RP2 Present") = 1 then Response.Write("| RP2 Present: " & thisrs2("RP2 present") & " |
")
if not isnull(thisrs2("RP2 Digestion")) AND thisrs2("RP2 Digestion") <> 0 then Response.Write("| RP2 Digestion: " & GetMFToothDigestionText(thisrs2("RP2 Digestion")) & " |
")
if thisrs2("RP3 Present") = 1 then Response.Write("| RP3 Present: " & thisrs2("RP3 present") & " |
")
if not isnull(thisrs2("RP3 Digestion")) AND thisrs2("RP3 Digestion") <> 0 then Response.Write("| RP3 Digestion: " & GetMFToothDigestionText(thisrs2("RP3 Digestion")) & " |
")
if thisrs2("RP4 Present") = 1 then Response.Write("| RP4 Present: " & thisrs2("RP4 present") & " |
")
if not isnull(thisrs2("RP4 Digestion")) AND thisrs2("RP4 Digestion") <> 0 then Response.Write("| RP4 Digestion: " & GetMFToothDigestionText(thisrs2("RP4 Digestion")) & " |
")
if thisrs2("RPM1 Present") = 1 then Response.Write("| RPM1 Present: " & thisrs2("RPM1 present") & " |
")
if not isnull(thisrs2("RPM1 Digestion")) AND thisrs2("RPM1 Digestion") <> 0 then Response.Write("| RPM1 Digestion: " & GetMFToothDigestionText(thisrs2("RPM1 Digestion")) & " |
")
if thisrs2("RPM2 Present") = 1 then Response.Write("| RPM2 Present: " & thisrs2("RPM2 present") & " |
")
if not isnull(thisrs2("RPM2 Digestion")) AND thisrs2("RPM2 Digestion") <> 0 then Response.Write("| RPM2 Digestion: " & GetMFToothDigestionText(thisrs2("RPM2 Digestion")) & " |
")
if thisrs2("RPM3 Present") = 1 then Response.Write("| RPM3 Present: " & thisrs2("RPM3 present") & " |
")
if not isnull(thisrs2("RPM3 Digestion")) AND thisrs2("RPM3 Digestion") <> 0 then Response.Write("| RPM3 Digestion: " & GetMFToothDigestionText(thisrs2("RPM3 Digestion")) & " |
")
if thisrs2("RPM4 Present") = 1 then Response.Write("| RPM4 Present: " & thisrs2("RPM4 present") & " |
")
if not isnull(thisrs2("RPM4 Digestion")) AND thisrs2("RPM4 Digestion") <> 0 then Response.Write("| RPM4 Digestion: " & GetMFToothDigestionText(thisrs2("RPM4 Digestion")) & " |
")
if not isnull(thisrs2("Comments")) then Response.Write("| Comments: " & thisrs2("Comments") & " |
")
thisrs2.MoveNext
loop
Response.Write("| |
")
downloadsp = server.URLEncode("Web_Specialist_Microfauna_Cranial_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
Response.Write("| ")
Response.Write("Download this Cranial Data")
Response.Write(" |
")
end if
call CloseARecordset(thisrs2)
end sub
Sub DisplayMFPostCranial(num)
'show microfaun postcranial fields
sql = "sp_Web_Specialist_Microfauna_Postcranial_Specific '" & num & "'"
Call OpenAnotherRecordset(dbCatalCam, sql, 0, 0)
if NOT (thisrs2.BOF AND thisrs2.EOF) then
Response.Write("| Postcranial Record |
| |
")
thisrs2.MoveFirst
do until thisrs2.EOF
if not isnull(thisrs2("FragmentSizeText")) then Response.Write("| Fragment Size: " & thisrs2("FragmentSizeText") & " |
")
if not isnull(thisrs2("ProxDistText")) then Response.Write("| Proximal/Distal: " & thisrs2("ProxDistText") & " |
")
if not isnull(thisrs2("FusionText")) then Response.Write("| Fusion: " & thisrs2("FusionText") & " |
")
if not isnull(thisrs2("FemurTibText")) then Response.Write("| Femur and Tibio Fibula Breakage: " & thisrs2("FemurTibText") & " |
")
if not isnull(thisrs2("HumerusIlText")) then Response.Write("| Humerus and Illium Breakage: " & thisrs2("HumerusIlText") & " |
")
if not isnull(thisrs2("RadioUlnaText")) then Response.Write("| Radio-ulna Breakage: " & thisrs2("RadioUlnaText") & " |
")
if not isnull(thisrs2("ScapulaText")) then Response.Write("| Scapula Breakage: " & thisrs2("ScapulaText") & " |
")
if not isnull(thisrs2("Comments")) then Response.Write("| Comments: " & thisrs2("Comments") & " |
")
thisrs2.MoveNext
loop
Response.Write("| |
")
downloadsp = server.URLEncode("Web_Specialist_Microfauna_Postcranial_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
Response.Write("| ")
Response.Write("Download this Postcranial Data")
Response.Write(" |
")
end if
call CloseARecordset(thisrs2)
end sub
Function GetMFToothDigestionText(code)
dim myrs, result
set myrs = server.CreateObject("ADODB.recordset")
myrs.open "sp_Web_Specialist_Microfauna_InSituToothDigestionText_Specific " & code, dbCatalCam, 3, 2, 0
if not myrs.eof AND not myrs.BOF then
myrs.MoveFirst
result = myrs("text equivalent")
end if
Call CloseARecordset(myrs)
GetMFToothDigestionText = result
end function
Function GetFaunalTextForACode(table, code)
dim myrs, result, sql
sql = "SELECT [text equivalent] FROM [" & table & "] WHERE [code] = " & code & ";"
set myrs = server.CreateObject("ADODB.recordset")
myrs.open sql, dbCatalCam, 3, 2, 0
if not myrs.eof AND not myrs.BOF then
myrs.MoveFirst
result = myrs("text equivalent")
end if
Call CloseARecordset(myrs)
GetFaunalTextForACode = result
end function
Sub DisplayFaunalCranial(num)
'show faunal cranial fields for the restricted dataset upto 1999 - new march 2007 saj
sql = "sp_Web_Specialist_Fauna_Bone_Cranial_Specific '" & num & "'"
Call OpenAnotherRecordset(dbCatalCam, sql, 0, 0)
if NOT (thisrs2.BOF AND thisrs2.EOF) then
Response.Write("| Cranial Record |
| |
")
thisrs2.MoveFirst
do until thisrs2.EOF
if not isnull(thisrs2("RightHornCoreText")) then Response.Write("| Right Horn Core: " & thisrs2("RightHornCoreText") & " |
")
if not isnull(thisrs2("LeftHornCoreText")) then Response.Write("| Left Horn Core: " & thisrs2("LeftHornCoreText") & " |
")
if not isnull(thisrs2("RightAntlerText")) then Response.Write("| Right Antler: " & thisrs2("RightAntlerText") & " |
")
if not isnull(thisrs2("LeftAntlerText")) then Response.Write("| Left Antler: " & thisrs2("LeftAntlerText") & " |
")
if not isnull(thisrs2("Frontal")) AND thisrs2("Frontal") <> 0 then Response.Write("| Frontal: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Frontal")) & " |
")
if not isnull(thisrs2("Parietal")) AND thisrs2("Parietal") <> 0 then Response.Write("| Frontal: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Parietal")) & " |
")
if not isnull(thisrs2("Interparietal")) AND thisrs2("Interparietal") <> 0 then Response.Write("| Interparietal " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Interparietal")) & " |
")
if not isnull(thisrs2("Occipital")) AND thisrs2("Occipital") <> 0 then Response.Write("| Occipital: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Occipital")) & " |
")
if not isnull(thisrs2("Basioccipital")) AND thisrs2("Basioccipital") <> 0 then Response.Write("| Basioccipital: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Basioccipital")) & " |
")
if not isnull(thisrs2("Sphenoid")) AND thisrs2("Sphenoid") <> 0 then Response.Write("| Sphenoid: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Sphenoid")) & " |
")
if not isnull(thisrs2("Pterygoid")) AND thisrs2("Pterygoid") <> 0 then Response.Write("| Pterygoid: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Pterygoid")) & " |
")
if not isnull(thisrs2("Petrous")) AND thisrs2("Petrous") <> 0 then Response.Write("| Petrous: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Petrous")) & " |
")
if not isnull(thisrs2("Temporal")) AND thisrs2("Temporal") <> 0 then Response.Write("| Temporal: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Temporal")) & " |
")
if not isnull(thisrs2("Vomer")) AND thisrs2("Vomer") <> 0 then Response.Write("| Vomer: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Vomer")) & " |
")
if not isnull(thisrs2("Palatine")) AND thisrs2("Palatine") <> 0 then Response.Write("| Palatine: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Palatine")) & " |
")
if not isnull(thisrs2("Zygo")) AND thisrs2("Zygo") <> 0 then Response.Write("| Zygo: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Zygo")) & " |
")
if not isnull(thisrs2("Lacrimal")) AND thisrs2("Lacrimal") <> 0 then Response.Write("| Lacrimal: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Lacrimal")) & " |
")
if not isnull(thisrs2("Nasal")) AND thisrs2("Nasal") <> 0 then Response.Write("| Nasal: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Nasal")) & " |
")
if not isnull(thisrs2("Maxilla")) AND thisrs2("Maxilla") <> 0 then Response.Write("| Maxilla: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Maxilla")) & " |
")
if not isnull(thisrs2("Premaxilla")) AND thisrs2("Premaxilla") <> 0 then Response.Write("| Premaxilla: " & GetFaunalTextForACode("Fauna_Code_Bone_Cranial", thisrs2("Premaxilla")) & " |
")
if not isnull(thisrs2("MandibleAnteriorText")) then Response.Write("| Mandible Anterior " & thisrs2("MandibleAnteriorText") & " |
")
if not isnull(thisrs2("MandiblePosteriorText")) then Response.Write("| Mandible Posterior: " & thisrs2("MandiblePosteriorText") & " |
")
if not isnull(thisrs2("Deciduousi1")) AND thisrs2("Deciduousi1") <> 0 then Response.Write("| Deciduous i1: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Decid", thisrs2("Deciduousi1")) & " |
")
if not isnull(thisrs2("Deciduousi2")) AND thisrs2("Deciduousi2") <> 0 then Response.Write("| Deciduous i2: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Decid", thisrs2("Deciduousi2")) & " |
")
if not isnull(thisrs2("Deciduousi3")) AND thisrs2("Deciduousi3") <> 0 then Response.Write("| Deciduous i3: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Decid", thisrs2("Deciduousi3")) & " |
")
if not isnull(thisrs2("DeciduousC")) AND thisrs2("DeciduousC") <> 0 then Response.Write("| Deciduous C: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Decid", thisrs2("DeciduousC")) & " |
")
if not isnull(thisrs2("DeciduousP1-DP2")) AND thisrs2("DeciduousP1-DP2") <> 0 then Response.Write("| Deciduous P1/DP2: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Decid", thisrs2("DeciduousP1-DP2")) & " |
")
if not isnull(thisrs2("DeciduousP2-DP3")) AND thisrs2("DeciduousP2-DP3") <> 0 then Response.Write("| Deciduous P2/DP3: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Decid", thisrs2("DeciduousP2-DP3")) & " |
")
if not isnull(thisrs2("PermanentI1")) AND thisrs2("PermanentI1") <> 0 then Response.Write("| Permanent I1: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Permanent", thisrs2("PermanentI1")) & " |
")
if not isnull(thisrs2("PermanentI2")) AND thisrs2("PermanentI2") <> 0 then Response.Write("| Permanent I2: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Permanent", thisrs2("PermanentI2")) & " |
")
if not isnull(thisrs2("PermanentI3")) AND thisrs2("PermanentI3") <> 0 then Response.Write("| Permanent I3: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Permanent", thisrs2("PermanentI3")) & " |
")
if not isnull(thisrs2("PermanentC")) AND thisrs2("PermanentC") <> 0 then Response.Write("| Permanent C: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Permanent", thisrs2("PermanentIC")) & " |
")
if not isnull(thisrs2("PermanentP1")) AND thisrs2("PermanentP1") <> 0 then Response.Write("| Permanent P1: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Permanent", thisrs2("PermanentP1")) & " |
")
if not isnull(thisrs2("PermanentP2")) AND thisrs2("PermanentP2") <> 0 then Response.Write("| Permanent P2: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Permanent", thisrs2("PermanentP2")) & " |
")
if not isnull(thisrs2("PermanentP3")) AND thisrs2("PermanentP3") <> 0 then Response.Write("| Permanent P3: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Permanent", thisrs2("PermanentP3")) & " |
")
if not isnull(thisrs2("Payne P3/DP4 Text")) then Response.Write("| Payne P3/DP4: " & thisrs2("Payne P3/DP4 Text") & " |
")
if not isnull(thisrs2("Payne P4 Text")) then Response.Write("| Payne P4: " & thisrs2("Payne P4 Text") & " |
")
if not isnull(thisrs2("Payne M1")) AND thisrs2("Payne M1") <> 0 then Response.Write("| Payne M1: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_M1M2_Payne", thisrs2("Payne M1")) & " |
")
if not isnull(thisrs2("Payne M2")) AND thisrs2("Payne M2") <> 0 then Response.Write("| Payne M2: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_M1M2_Payne", thisrs2("Payne M2")) & " |
")
if not isnull(thisrs2("Payne M3 Text")) then Response.Write("| Payne M3: " & thisrs2("Payne M3 Text") & " |
")
if not isnull(thisrs2("Grant P3/DP4")) AND thisrs2("Grant P3/DP4") <> 0 then Response.Write("| Grant P3/DP4: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Grant", thisrs2("Grant P3/DP4")) & " |
")
if not isnull(thisrs2("Grant P4")) AND thisrs2("Grant P4") <> 0 then Response.Write("| Grant P4: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Grant", thisrs2("Grant P4")) & " |
")
if not isnull(thisrs2("Grant M1")) AND thisrs2("Grant M1") <> 0 then Response.Write("| Grant M1: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Grant", thisrs2("Grant M1")) & " |
")
if not isnull(thisrs2("Grant M2")) AND thisrs2("Grant M2") <> 0 then Response.Write("| Grant M2: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Grant", thisrs2("Grant M2")) & " |
")
if not isnull(thisrs2("Grant M3")) AND thisrs2("Grant M3") <> 0 then Response.Write("| Grant M3: " & GetFaunalTextForACode("Fauna_Code_Bone_Tooth_Wear_Grant", thisrs2("Grant M3")) & " |
")
if not isnull(thisrs2("ToothTypeText")) then Response.Write("| Loose Type: " & thisrs2("ToothTypeText") & " |
")
if not isnull(thisrs2("ToothClassText")) then Response.Write("| Loose Class: " & thisrs2("ToothClassText") & " |
")
if not isnull(thisrs2("ToothNumberText")) then Response.Write("| Loose Number: " & thisrs2("ToothNumberText") & " |
")
if not isnull(thisrs2("ToothRootText")) then Response.Write("| Loose Root: " & thisrs2("ToothRootText") & " |
")
if not isnull(thisrs2("ToothWearText")) then Response.Write("| Loose Wear: " & thisrs2("ToothWearText") & " |
")
if not isnull(thisrs2("Comments")) then Response.Write("| Comments: " & thisrs2("Comments") & " |
")
thisrs2.MoveNext
loop
Response.Write("| |
")
downloadsp = server.URLEncode("Web_Specialist_Fauna_Bone_Cranial_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
Response.Write("| ")
Response.Write("Download this Cranial Data")
Response.Write(" |
")
end if
call CloseARecordset(thisrs2)
end sub
Sub DisplayFaunalPostCranial(num)
'show faunal postcranial fields
sql = "sp_Web_Specialist_Fauna_Bone_Postcranial_Specific '" & num & "'"
Call OpenAnotherRecordset(dbCatalCam, sql, 0, 0)
if NOT (thisrs2.BOF AND thisrs2.EOF) then
Response.Write("| Postcranial Record |
| |
")
thisrs2.MoveFirst
do until thisrs2.EOF
if not isnull(thisrs2("FragmentSizeText")) then Response.Write("| Fragment Size: " & thisrs2("FragmentSizeText") & " |
")
if not isnull(thisrs2("ProxDistText")) then Response.Write("| Proximal/Distal: " & thisrs2("ProxDistText") & " |
")
if not isnull(thisrs2("FusionText")) then Response.Write("| Fusion: " & thisrs2("FusionText") & " |
")
if not isnull(thisrs2("FragmentationText")) then Response.Write("| Fragmentation: " & thisrs2("FragmentationText") & " |
")
if not isnull(thisrs2("ProximalAPText")) then Response.Write("| Proximal AP: " & thisrs2("ProximalAPText") & " |
")
if not isnull(thisrs2("ProximalMLText")) then Response.Write("| Proximal ML: " & thisrs2("ProximalMLText") & " |
")
if not isnull(thisrs2("DistalAPText")) then Response.Write("| Distal AP: " & thisrs2("DistalAPText") & " |
")
if not isnull(thisrs2("DistalMLText")) then Response.Write("| Distal ML: " & thisrs2("DistalMLText") & " |
")
if not isnull(thisrs2("Comments")) then Response.Write("| Comments: " & thisrs2("Comments") & " |
")
thisrs2.MoveNext
loop
Response.Write("| |
")
downloadsp = server.URLEncode("Web_Specialist_Microfauna_Postcranial_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
Response.Write("| ")
Response.Write("Download this Postcranial Data")
Response.Write(" |
")
end if
call CloseARecordset(thisrs2)
end sub
Sub DisplayFaunalMeasurements(num, yr)
'show faunal measurements in terms of Von Driesch - this means not all measurements or measurement set
'will appear but will only show where match Von Driesch code list.
sql = "sp_Web_Specialist_Fauna_Measurements_with_Von_Driesch_Specific '" & num & "'"
Call OpenAnotherRecordset(dbCatalCam, sql, 0, 0)
if NOT (thisrs2.BOF AND thisrs2.EOF) then
Response.Write("| |
| Measurements |
")
thisrs2.MoveFirst
'there are a max of 19 Von Driesch measurements in any group
dim measurementcount, fldname1, fldname2, fldname3
do until thisrs2.EOF
measurementcount = 1
Response.Write("| |
| Measurement Set " & thisrs2("Measurement Set") & " |
")
do until measurementcount > 19
fldname1 = "Measurement " & measurementcount & " Code"
fldname2 = "Measurement " & measurementcount
fldname3 = "Measurement Modifier " & measurementcount
if not isnull(thisrs2.Fields(fldname1)) then
'there is a matching von driesch measurement code for this measurement
'(at present we don't show measurements without a code)
Response.Write("| Measurement " & thisrs2.Fields(fldname1) & ": ")
if thisrs2.Fields(fldname2) = 0 OR isnull(thisrs2.Fields(fldname2)) then
Response.Write("not present")
else
Response.Write(thisrs2.Fields(fldname2))
end if
if thisrs2.Fields(fldname3) <> 0 and not isnull(thisrs2.Fields(fldname3)) then Response.write(" (" & GetFaunalTextForACode("Fauna_Code_Bone_Measurement_Modifier", thisrs2.Fields(fldname3)) & ")")
Response.Write(" |
")
end if
measurementcount = measurementcount + 1
loop
if not isnull(thisrs2("Comments")) then Response.Write("| Comments: " & thisrs2("Comments") & " |
")
thisrs2.MoveNext
loop
Response.Write("| |
")
if yr <= 1999 then
'only allow download of data before 99
downloadsp = server.URLEncode("Web_Specialist_Fauna_Measurements_with_Von_Driesch_Specific") 'this will be passed as qstr so chop off the begining so not giving away fullname
Response.Write("| ")
Response.Write("Download this Measurement Data")
Response.Write(" |
")
end if
end if
call CloseARecordset(thisrs2)
end sub
%>