%@LANGUAGE="VBSCRIPT"%> <% set ownedBY = Server.CreateObject("ADODB.Recordset") ownedBY.ActiveConnection = MM_anthro_STRING ownedBY.Source = "SELECT * FROM dbo.LandOwnerAuthority" ownedBY.CursorType = 0 ownedBY.CursorLocation = 2 ownedBY.LockType = 3 ownedBY.Open() ownedBY_numRows = 0 %> <% set siteType = Server.CreateObject("ADODB.Recordset") siteType.ActiveConnection = MM_anthro_STRING siteType.Source = "SELECT * FROM dbo.SiteTypeAuthority" siteType.CursorType = 0 siteType.CursorLocation = 2 siteType.LockType = 3 siteType.Open() siteType_numRows = 0 %> <% set ProjName = Server.CreateObject("ADODB.Recordset") ProjName.ActiveConnection = MM_anthro_STRING ProjName.Source = "SELECT DISTINCT Project FROM dbo.Sites" ProjName.CursorType = 0 ProjName.CursorLocation = 2 ProjName.LockType = 3 ProjName.Open() ProjName_numRows = 0 %>
<% ownedBY.Close() %> <% siteType.Close() %> <% ProjName.Close() %>