%@LANGUAGE="VBSCRIPT"%> <% set ClutArea = Server.CreateObject("ADODB.Recordset") ClutArea.ActiveConnection = MM_anthro_STRING ClutArea.Source = "SELECT * FROM dbo.CultureAreaAuthority" ClutArea.CursorType = 0 ClutArea.CursorLocation = 2 ClutArea.LockType = 3 ClutArea.Open() ClutArea_numRows = 0 %> <% set CollName = Server.CreateObject("ADODB.Recordset") CollName.ActiveConnection = MM_anthro_STRING CollName.Source = "SELECT * FROM dbo.CollectionNameAuthority" CollName.CursorType = 0 CollName.CursorLocation = 2 CollName.LockType = 3 CollName.Open() CollName_numRows = 0 %> <% set ObjAuth = Server.CreateObject("ADODB.Recordset") ObjAuth.ActiveConnection = MM_anthro_STRING ObjAuth.Source = "SELECT * FROM dbo.ObjectAuthority" ObjAuth.CursorType = 0 ObjAuth.CursorLocation = 2 ObjAuth.LockType = 3 ObjAuth.Open() ObjAuth_numRows = 0 %> <% set ModAuth = Server.CreateObject("ADODB.Recordset") ModAuth.ActiveConnection = MM_anthro_STRING ModAuth.Source = "SELECT * FROM dbo.ModifierAuthority" ModAuth.CursorType = 0 ModAuth.CursorLocation = 2 ModAuth.LockType = 3 ModAuth.Open() ModAuth_numRows = 0 %> <% set PrimeAuth = Server.CreateObject("ADODB.Recordset") PrimeAuth.ActiveConnection = MM_anthro_STRING PrimeAuth.Source = "SELECT * FROM dbo.PrimaryFunctionAuthority" PrimeAuth.CursorType = 0 PrimeAuth.CursorLocation = 2 PrimeAuth.LockType = 3 PrimeAuth.Open() PrimeAuth_numRows = 0 %> <% set SecAuth = Server.CreateObject("ADODB.Recordset") SecAuth.ActiveConnection = MM_anthro_STRING SecAuth.Source = "SELECT * FROM dbo.SecondaryFunctionAuthority" SecAuth.CursorType = 0 SecAuth.CursorLocation = 2 SecAuth.LockType = 3 SecAuth.Open() SecAuth_numRows = 0 %> <% set CultAuth = Server.CreateObject("ADODB.Recordset") CultAuth.ActiveConnection = MM_anthro_STRING CultAuth.Source = "SELECT * FROM dbo.CultureAuthority" CultAuth.CursorType = 0 CultAuth.CursorLocation = 2 CultAuth.LockType = 3 CultAuth.Open() CultAuth_numRows = 0 %> <% set MatAuth = Server.CreateObject("ADODB.Recordset") MatAuth.ActiveConnection = MM_anthro_STRING MatAuth.Source = "SELECT * FROM dbo.MaterialsAuthority" MatAuth.CursorType = 0 MatAuth.CursorLocation = 2 MatAuth.LockType = 3 MatAuth.Open() MatAuth_numRows = 0 %>
Select one of the items below to search the Ethnographic Catalog:
<% ClutArea.Close() %> <% CollName.Close() %> <% ObjAuth.Close() %> <% ModAuth.Close() %> <% PrimeAuth.Close() %> <% SecAuth.Close() %> <% CultAuth.Close() %> <% MatAuth.Close() %>