%@LANGUAGE="VBSCRIPT"%> <% set title = Server.CreateObject("ADODB.Recordset") title.ActiveConnection = MM_anthro_STRING title.Source = "SELECT Distinct PublicationTitle FROM dbo.ArchaeologyReports ORDER BY PublicationTitle ASC" title.CursorType = 0 title.CursorLocation = 2 title.LockType = 3 title.Open() title_numRows = 0 %> <% set SeriesName = Server.CreateObject("ADODB.Recordset") SeriesName.ActiveConnection = MM_anthro_STRING SeriesName.Source = "SELECT Distinct SeriesName FROM dbo.ArchaeologyReports ORDER BY SeriesName ASC" SeriesName.CursorType = 0 SeriesName.CursorLocation = 2 SeriesName.LockType = 3 SeriesName.Open() SeriesName_numRows = 0 %> <% set Publisher = Server.CreateObject("ADODB.Recordset") Publisher.ActiveConnection = MM_anthro_STRING Publisher.Source = "SELECT DISTINCT Publisher FROM dbo.ArchaeologyReports ORDER BY Publisher ASC" Publisher.CursorType = 0 Publisher.CursorLocation = 2 Publisher.LockType = 3 Publisher.Open() Publisher_numRows = 0 %> <% set yesr = Server.CreateObject("ADODB.Recordset") yesr.ActiveConnection = MM_anthro_STRING yesr.Source = "SELECT Distinct PublicationYear FROM dbo.ArchaeologyReports ORDER BY PublicationYear ASC" yesr.CursorType = 0 yesr.CursorLocation = 2 yesr.LockType = 3 yesr.Open() yesr_numRows = 0 %>
<% title.Close() %> <% SeriesName.Close() %> <% Publisher.Close() %> <% yesr.Close() %>