%@LANGUAGE="VBSCRIPT"%> <% set objectAuth = Server.CreateObject("ADODB.Recordset") objectAuth.ActiveConnection = MM_anthro_STRING objectAuth.Source = "SELECT * FROM dbo.ObjectAuthority" objectAuth.CursorType = 0 objectAuth.CursorLocation = 2 objectAuth.LockType = 3 objectAuth.Open() objectAuth_numRows = 0 %> <% set modifierAuth = Server.CreateObject("ADODB.Recordset") modifierAuth.ActiveConnection = MM_anthro_STRING modifierAuth.Source = "SELECT * FROM dbo.ModifierAuthority" modifierAuth.CursorType = 0 modifierAuth.CursorLocation = 2 modifierAuth.LockType = 3 modifierAuth.Open() modifierAuth_numRows = 0 %> <% set TypeAuth = Server.CreateObject("ADODB.Recordset") TypeAuth.ActiveConnection = MM_anthro_STRING TypeAuth.Source = "SELECT * FROM dbo.AlternateNameAuthority" TypeAuth.CursorType = 0 TypeAuth.CursorLocation = 2 TypeAuth.LockType = 3 TypeAuth.Open() TypeAuth_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 cultureAuth = Server.CreateObject("ADODB.Recordset") cultureAuth.ActiveConnection = MM_anthro_STRING cultureAuth.Source = "SELECT * FROM dbo.CultureAuthority" cultureAuth.CursorType = 0 cultureAuth.CursorLocation = 2 cultureAuth.LockType = 3 cultureAuth.Open() cultureAuth_numRows = 0 %> <% set materialsAuth = Server.CreateObject("ADODB.Recordset") materialsAuth.ActiveConnection = MM_anthro_STRING materialsAuth.Source = "SELECT * FROM dbo.MaterialsAuthority" materialsAuth.CursorType = 0 materialsAuth.CursorLocation = 2 materialsAuth.LockType = 3 materialsAuth.Open() materialsAuth_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 %>
<% objectAuth.Close() %> <% modifierAuth.Close() %> <% TypeAuth.Close() %> <% primeAuth.Close() %> <% secAuth.Close() %> <% cultureAuth.Close() %> <% materialsAuth.Close() %> <% CollName.Close() %>