%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim query Dim query_cmd Dim query_numRows Set query_cmd = Server.CreateObject ("ADODB.Command") query_cmd.ActiveConnection = MM_SIERRA_STRING query_cmd.CommandText = "SELECT rmb.record_num as bibrecord, date(b.cataloging_date_gmt) as catdate, brp.best_title as title, count(h.id) as holds FROM sierra_view.bib_record_property brp JOIN sierra_view.bib_record b ON b.record_id = brp.bib_record_id JOIN sierra_view.hold h ON h.record_id = b.record_id JOIN sierra_view.record_metadata rmb ON b.record_id = rmb.id GROUP BY 1,2,3 HAVING count(h.id) > 19 ORDER BY 4 desc" query_cmd.Prepared = true Set query = query_cmd.Execute query_numRows = 0 %>
Record | Cat Date | Title | #Holds |
---|---|---|---|
b" & query("bibrecord") & "a | ") Response.Write("" & query("catdate") & " | ") Response.Write("" & "" & query("title") & " | ") Response.Write("" & query("holds") & " |
All titles listed reflect number of bibliographic level holds and do not include item level holds.
Click here to Export Data to Excel